Текущий архив: 2003.01.30;
Скачать: CL | DM;

Вниз

Что делаю не так ?   Найти похожие ветки 

← →
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;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.022 c