VB, Wd: Как из VB открыть документ Word?
Dim Wrd As Word.Document
Set Wrd = New Word.Document
А дальше как? Сейчас просто всё второпях делаю, и всё из башки вылетает. Как прасильно связывать дальше:
Wrd.Application.Documents.Open "\Shablons\" & FlName, App.Path & "\Anket\" & FlName, , False
Либо как-то по-другому? В силу жуткой усталости нифига не соображаю - нужна помощь!
Подключил библиотеку для работы с Word. Описал:
Dim Wrd As Word.Document
Set Wrd = New Word.Document
А дальше как? Сейчас просто всё второпях делаю, и всё из башки вылетает. Как прасильно связывать дальше:
Wrd.Application.Documents.Open "\Shablons\" & FlName, App.Path & "\Anket\" & FlName, , False
Либо как-то по-другому? В силу жуткой усталости нифига не соображаю - нужна помощь!
Да, действительно сдурел я - написал
Wrd.Application.Documents.Open "\Shablons\" & FlName, App.Path & "\Anket\" & FlName, , False
Ага, 2 документа открыть пытаюсь:D
Дла сравнения (правильный синтаксис)
Wrd.Application.Documents.Open App.Path & "\Anket\" & FlName, , False
:D :D :D
Вот что значит, второпях всё делать:D Торопи - плохое место, в них лучше не находться :D
Можно еще так - GetObject(,"c:\1.doc") - если документ уже загружен, то подсоединится к нему, а если нет, то загрузит его , получается очень удобная штука.
Спасибо большое - я об этом методе не знал:) Теперь попробую его использовать:)
Спасибо большое - я об этом методе не знал:) Теперь попробую его использовать:)
Новая проблема:
Конструкция следующая:
Dim Wrd As Word.Application
Dim WrdDc As Object
Set Wrd = New Word.Application
Set WrdDc = Wrd.Documents.Open((SaveFlName), , False) 'Application.
WrdDc.Application.Visible = True
<извращения с документом>
WrdDc.PrintOut
WrdDc.Application.Visible = False
WrdDc.Close False
Set WrdDc = Nothing
Set Wrd = Nothing
После этого остаётся открытым приложение Word - пустое без страницы. Как его закрыть?
вместо WrdDc.Close False
WrdDc.Application.Quit SaveChanges:=False
вместо WrdDc.Close False
Или соответственно:
Wrd.Quit SaveChanges:=False/True
mhaturov у тебя же еще вторая переменная есть, она как раз для таких случаев и остается.
Или соответственно:
Wrd.Quit SaveChanges:=False/True
mhaturov у тебя же еще вторая переменная есть, она как раз для таких случаев и остается.
Огромное спасибо!
Вы колоссально облегчили мою работу - без вас всех я бы ещё копался бы с печатью, а так сегодня демонстрашку уже буду сдавать!!!:D