I was wrong in how I explained it earlier. The first time I try it, it works then every time after that it doesn't work. The only way I can get it to work again is to shut down my application then reopen it and it works after that but only one time. So I can get it to work only once for each time I open it. Here is my code:
Dim AutText As AutoTextEntry
Dim oApp As Object
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
oApp.Documents.Add [u]'This is where the error is thrown.</u>
I'm doing this from MS Access, not MS Word.