Drazhar
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
mflash123
Если я правильно понял, то
Код: Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim i As Integer
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Add ' create a new document
' or
'appwd = CreateObject("word.application")
With wrdDoc
namedocument = "NAME.DOC"
.SaveAs Filename:=namedocument, FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
.Close
End With
wrdApp.Quit |
Айс?
Добавлено:
Точнее
Код: Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim i As Integer
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Add ' create a new document
' or
'appwd = CreateObject("word.application")
With wrdDoc
namedocument = "NAME.DOC"
.SaveAs Filename:=namedocument, FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
' .Close
End With
wrdApp.Windows(namedocument).Close |
Вот только как подключиться к уже имеющемуся application я не знаю((( |
ut of range %)
(хелп в моем офисе 2007 какой-то странный)