Открытие документа Word, VBA
Ребят не могу разобраться как правильно прописать код.
А задача простая что бы из под документа Word (doc) открыть другой документ .doc. Фактически - это макрос.
Код я прописал такой:
Код:
Dim objWrd As Object, objDoc As Object
Set objWrd = CreateObject("Word.Application")
Set objDoc = objWrd.Documents.Open("Путь к файлу\name.doc")
Когда запускаю макрос, то ничего не происходит. Конечно если копнуть поглубже, то выясняется, что в Диспетчере задач повис процесс WINWORD.EXE.
Но процесс процессом, а документ-то не открывается.
Помогите пожалуйста разобраться что к чему. |
Код:
objWrd.Visible = True
после Documents.Open |
код из справки
Код:
Sub OpenDoc()
Documents.Open FileName:="Путь к файлу\name.doc", ReadOnly:=True
End Sub
|
Цитата:
Цитата Tomplier
Когда запускаю макрос, то ничего не происходит. »
|
Происходит.
Цитата:
Цитата Tomplier
Конечно если копнуть поглубже, то выясняется, что в Диспетчере задач повис процесс WINWORD.EXE. »
|
Разумеется. Вы ведь не закрываете Word.
Цитата:
Цитата Tomplier
Но процесс процессом, а документ-то не открывается. »
|
Открывается. С ним можно программно работать.
Если у Вас есть желание увидеть:
Цитата:
Цитата Delirium
Код:
objWrd.Visible = True
»
|
Если нужно просто открывать документ, то проще использовать ShellExecute.
Всё это относится к открытию документа извне.
Цитата:
Цитата Tomplier
А задача простая что бы из под документа Word (doc) открыть другой документ .doc. »
|
Коль Вы открываете документ уже из-под Word'а, то Вам нет никакой необходимости создавать новый экземпляр приложения:
Цитата:
Цитата Tomplier
Код:
Dim objWrd As Object
Set objWrd = CreateObject("Word.Application")
»
|
Используйте существующий экземпляр приложения:
Цитата:
Цитата ferget
код из справки
Код:
Sub OpenDoc()
Documents.Open FileName:="Путь к файлу\name.doc"
End Sub
»
|
|
Именно это мне и было нужно, пока
ferget и Iska
не подсказали конструкцию:
Код:
Documents.Open FileName:="Путь к файлу\name.doc"
Которая мне показалась более подходящей. но думаю, первоначальный код с доработкой - тоже пригодится.
В общем всем спасибо за помощь. :) |
Цитата:
Цитата Tomplier
…но думаю, первоначальный код с доработкой - тоже пригодится. »
|
Пригодится, когда Вам понадобится открывать документ извне макроса Word среды VBA — например, из скрипта WSH/PoSH. Хотя там чаще как раз не используют:
Код:
objWord.Visible = True
поскольку вся работа происходит полностью (или почти полностью) в автоматическом режиме. |
Время: 23:20.
© OSzone.net 2001-
