Why Doesn't this work

[Jeff]

I wrote this code in Excel VBA. I am attempting to do a merge with a
Word Document. I cannot get an "Test Text" to write in word


NameAndPath = "C:\Users\Admin\Desktop\test.doc"
Set wordapp = CreateObject("Word.Application")
wordapp.Documents.Open (fNameAndPath)
wordapp.Visible = True
TypeText Text:="Test Text"

 

[Andy Pope]

Hi,

You need to qualify which object has the TypeText method for you to use it.
So something more like this, also I assume the f before NameAndPath was a
typo.

'----------------------
NameAndPath = "C:\Users\Admin\Desktop\test.doc"
Set wordapp = CreateObject("Word.Application")
wordapp.Documents.Open (NameAndPath)
wordapp.Visible = True
wordapp.ActiveWindow.Selection.TypeText Text:="Test Text"
'----------------------

Cheers
Andy