Question

谁能帮我用Delphi做个Word？！谢谢了，大神帮忙啊

救命的！做个Word！高手们...救命啊！！死人了... 能帮忙的速度站出来了，怎么样子都行！我考试想过关！！ 麻烦了！！！！！！

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;