From：https://www.wpsds.com/wordzhishi/51721.html
一、打开Word文档
在Delphi中，我们可以使用类库comobj来操作Word文档。首先，我们需要在uses中添加comobj单元，然后就可以通过以下代码打开Word文档：
var
WordApp: Variant;
WordDoc: Variant;
begin
WordApp := CreateOleObject('Word.Application');
WordDoc := WordApp.Documents.Open('D:\test.docx');
end;
上述代码中，CreateOleObject(‘Word.Application’)可以创建一个Word应用程序对象，然后我们可以使用Documents.Open方法来打开指定的Word文档。需要注意的是，使用完毕后一定要及时释放资源，否则会影响系统的性能。
二、操作Word文档
使用Delphi操作Word文档，主要是对Word文档的内容进行操作，比如对段落进行增删改查，对文本进行替换等。下面我将给大家介绍一些常用的操作技巧。
1. 插入文本
如果我们需要在Word文档中插入文本，可以使用Selection对象的TypeText方法，例如：
WordApp.Selection.TypeText('这是一段测试文本');
2. 插入图片
要将图片插入Word文档中，可以先创建一个InlineShape对象，然后将图片添加到InlineShape对象中，最后将InlineShape对象插入到Word文档中，例如：
var
InlineShape: Variant;
begin
InlineShape := WordDoc.InlineShapes.AddPicture('D:\test.jpg', False, True);
WordApp.Selection.Range.InsertParagraphAfter;
WordDoc.Content.InsertParagraphAfter;
WordDoc.Content.InsertParagraphAfter;
WordApp.Selection.Range.InlineShapes.Add(InlineShape.Range);
end;
上述代码中，InlineShapes.AddPicture方法可以将指定路径的图片添加到InlineShape对象中，并返回该对象。然后通过Add方法将InlineShape对象添加到Word文档中。
3. 修改文本
如果我们需要替换Word文档中的某个字符串，可以通过Range对象的Find方法找到该字符串，然后使用Range对象的Text属性替换为新的字符串，例如：
var
Range: Variant;
begin
Range := WordDoc.Content;
Range.Find.Execute('测试文本', False, True, False, False, False, True, 1, True, '替换后的文本', 2);
上述代码中，Range.Find方法可以查找指定的字符串，然后使用第10个参数指定要替换成的新的字符串，第11个参数为替换的方式，2表示替换所有出现的字符串。
4. 插入表格
如果我们需要在Word文档中插入表格，可以使用Tables对象，例如：
var
Tbl: Variant;
RowCnt: Integer;
ColCnt: Integer;
i: Integer;
j: Integer;
begin
RowCnt := 3;
ColCnt := 3;
Tbl := WordDoc.Tables.Add(WordApp.Selection.Range, RowCnt, ColCnt);
for i := 1 to RowCnt do
begin
for j := 1 to ColCnt do
begin
Tbl.Cell(i, j).Range.Text := 'Row ' + IntToStr(i) + ', Column ' + IntToStr(j);
end;
end;
end;
上述代码中，Tables.Add方法可以创建一个新的表格，并返回该对象。然后我们可以使用Tbl对象的Cell方法来操作表格中的每一个单元格，使用Range.Text属性设置单元格中的文本内容。
三、关闭Word文档
在操作Word文档时，需要及时关闭Word文档，以释放系统资源，防止对系统的影响。可以使用以下代码来关闭Word文档：
WordDoc.Close(False, EmptyParam, False);
WordApp.Quit;
上述代码中，Close方法可以关闭Word文档，第一个参数指定是否保存文档，第二个参数是文档保存名称，默认为空，第三个参数指定是否将文档从最近使用的文档中删除，默认为False。最后通过Quit方法退出Word应用程序。