Форум: "Потрепаться";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];
Вниз
Что делаю не так ? Найти похожие ветки
← →
Veles (2003-01-14 06:19) [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;
Документ с шаблоном открывается, затем выдается сообщение:
"Неопознанная ошибка"
← →
Думкин (2003-01-14 08:37) [1]MSWord.Selection. - ты уверен что так надо?
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c
