如何将 Memo中的文本内容保存到当前目录下的 Word 文档中

最新推荐文章于 2025-08-09 12:08:48 发布

转载最新推荐文章于 2025-08-09 12:08:48 发布 · 1.5k 阅读

Delphi 专栏收录该内容

79 篇文章

订阅专栏

本文介绍如何通过Delphi编程语言调用Microsoft Word应用程序接口(API)，实现自动打开指定文档、插入文本并调整字体样式及大小等功能。文章提供了一段示例代码，详细展示了创建Word对象、设置文档属性及操作文档内容的过程。

//在单元接口部分引用 Comobj ;

procedure TForm1.Button3Click(Sender: TObject);
var Word : Variant;
begin
try
Word := CreateOLEObject('Word.Application');
except
Showmessage('请检查您的系统中有没有安装 Microsoft Word! ');
end;
Word.Options.CheckSpellingAsYouType := False;{关闭拼音检查}
Word.Options.CheckGrammarAsYouType := False; {关闭语法检查}
try
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;