Форум: "Основная";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];
Вниз
Передача данных из Delphi в MS Word, что не так делаю ? Найти похожие ветки
← →
Veles (2003-01-16 10:39) [0]procedure TForm1.Button1Click(Sender: TObject);
var
MSWord: Variant;
begin
try
MsWord := GetActiveOleObject("Word.Application");
except
try
MsWord := CreateOleObject("Word.Application");
MsWord.Visible := True;
except
Exception.Create("Error");
end;
end;
MSWord.Documents.Open("C:\ex.doc");
{MSWord.Selection.Font.Size := 12;}
MSWord.Selection.TypeText("###M1&","первое поле");
MSWord.Selection.TypeText("###M2&","второе поле");
MSWord.Selection.TypeText("###M3&","третье поле");
MSWord.Selection.TypeText("###M4&","четвертое поле");
MSWord.Selection.TypeText("###M5&","пятое поле");
MSWord.ActiveDocument.SaveAs("C:\ex1.doc");
end;
Документ с шаблоном открывается, затем выдается сообщение:
"Неопознанная ошибка"
← →
Calm (2003-01-16 11:38) [1]Попробуй через интерфейсы, а не через OLE.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c
