|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Не могу сохранить .doc
Привет друзья! С прошедшими праздниками вас
Такой вопросик Подключаюсь к Ворду и хочу (сохранить как) документ пишет ошибку Цитата:
Цитата:
Код:
procedure TForm11.Button4Click(Sender: TObject); var WordApp, doc :Variant; adrSaveStr2: String; Templ,Temp2:Olevariant; begin Templ:='C:\Test\'; Temp2:='.doc'; adrSaveStr2:='D:\Модуль Delphi\Bugalter\data\doc\workdoc\IIRozdel.docx'; if SaveDialog2.Execute then WordApplication1.Connect; WordApp:=CreateOleObject('Word.Application'); doc:=WordApp.Documents.open(adrSaveStr2); WordApplication1.ActiveDocument.SaveAs(Templ,Temp2); //закрываю WordApplication1.ActiveDocument.Close; WordApplication1.Quit; end; end. |
#2
|
|||
|
|||
Вот код, который генерит Word для операции "Сохранить как":
Код:
Sub Macro1() ActiveDocument.SaveAs FileName:="Doc1.doc", FileFormat:=wdFormatDocument, _ LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _ :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False End Sub |