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

Вниз

Передача данных из 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;
Скачать: CL | DM;

Наверх

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