Question

delphi操作word的问题

我想在delphi的MEMo中输入一些字符串，然后让这些字符串在word的某一个模板中用指定的格式，在指定的位置显示传来，也就是说，我想做一个delphi填充word模板的程序。不知道用什么方法？是不是要调用VBa？如果是该怎么调用？

Answer 1

我不太理解你想要做什麽，不过我看了你的问题后也做了一个把memo中的纪录导入到word档的例子，你可以参考一下：
单元接口引用 comobj单元。
procedure TForm1.Button3Click(Sender: TObject);

var Word : Variant;

begin

try

Word := CreateOLEObject('Word.Application')；

Word.Documents.Open(extractfilepath(Application.ExeName)+'\test.doc',false);

Word.Visible := false;

Word.ActiveDocument.Range(0, 0);

Word.ActiveDocument.Range.InsertAfter(memo1.Lines.Text);

Word.ActiveDocument.Range.InsertParagraphAfter;

Word.ActiveDocument.Range.Font.Name := 'MS Sans Serif';//砞竚�砰

Word.ActiveDocument.Range.Font.Size := 24;//砞竚�砰��掜

Word.Quit;

finally

Word.Quit;

end;

end;

Answer 2

搞不清你要做什么？不过上边人的回答不错。我想如果直接用剪切板和字型即可。。