ник: АлексейЕ
У меня "CreateObject("Word.Application.9")" не сработал, 2007 Ворд грузится в любом случае.
Сработал такой вариант
Dim varProgramID
Dim objWord As Object
varProgramID = Shell("C:\Program Files\Microsoft Office\OFFICE9\WINWORD.EXE")
AppActivate varProgramID
Set objWord = GetObject(, "Word.Application.9")
objWord.Selection.TypeText Text:="Хелло Ворд!"
objWord.Visible = True
|