Как открыть конкретную версию Word 2007/2010 в Excel

У меня установлены оба Word 2007 и 2010. Мне нужно открыть Word из Excel, но мне нужно указать, какую версию мне нужно открыть в VBA.

Я пробовал позднее связывание

Dim wordApp2007 As Object
Dim wordApp2010 As Object

Set wordApp2007 = CreateObject("Word.Application.12")
wordApp2007.Visible = True
Set wordApp2010 = CreateObject("Word.Application.14")
wordApp2010.Visible = True

но оба открывают Word 2010

Я также пробовал раннее связывание с помощью

Dim wordApp As Word.Application
Set wordApp2007 = New Word.Application
wordApp2007.Visible = True

и установка ссылок на объектную модель Word 12.0, но это по-прежнему открывает Word 2010 enter image description here

Если я зарегистрирую каждую версию Word, используя

"C:\Program Files\Microsoft Office\Office12\WINWORD.EXE" /regserver

"C:\Program Files\Microsoft Office\Office14\WINWORD.EXE" /regserver

затем открывается зарегистрированная версия, но затем я не могу открыть незарегистрированную.

Может кто-нибудь помочь и показать мне, как открыть конкретную версию Word в Excel с помощью VBA?

Спасибо

Изменить: Пример кода ....

Option Explicit

Dim wordApp2007 As Word.Application

Sub Word_InfoEarly()
'early binding
Set wordApp2007 = New Word.Application
wordApp2007.Visible = True

    'other Stuff
    Stop

    wordApp2007.Quit
    Set wordApp2007 = Nothing

End Sub


Sub Word_InfoLate()
Dim wordApp2007 As Object
Dim wordApp2010 As Object

    Set wordApp2007 = CreateObject("Word.Application.12")
    wordApp2007.Visible = True
    Set wordApp2010 = CreateObject("Word.Application.14")
    wordApp2010.Visible = True

    'other Stuff
    Stop

    wordApp2007.Quit
    Set wordApp2007 = Nothing
    wordApp2010.Quit
    Set wordApp2010 = Nothing

End Sub

Ответы на вопрос(5)

Ваш ответ на вопрос