如何读取在WORD中的"姓名:"
如何读取在WORD中的 "姓名: "二字..也就是说,我想实现如下效果,就是说,先在WORD中找到 "姓名: "二字,然后再回车下面自动将姓名补上去.不知该如何操作?



[解决办法]
//就是一个查找替换的功能,例如查找姓名: 替换为姓名:张三

var
wordApp : Variant;
wdReplaceAll;
begin
try
wordApp := CreateOleObject( 'Word.Application ');
wordApp.visible := true;
except
MessageBox(0, '请确定是否安装了Word ',MB_OK+MB_ICONINFORMATION);
Exit;
end;
wordApp.Documents.Open( 'c:\test.doc ',False,False,False, ' ', ' ',false);
wordApp.Selection.Find.ClearFormatting;
wordApp.Selection.Find.Replacement.ClearFormatting;
wordApp.Selection.Find.Text := '1234 ';
wordApp.Selection.Find.Replacement.Text := '4321 ';
wordApp.Selection.Find.Forward :=True;
wdFindContinue := 1;
wordApp.Selection.Find.Wrap := wdFindContinue;
wordApp.Selection.Find.Format :=False;
wordApp.Selection.Find.MatchCase :=False;
wordApp.Selection.Find.MatchWholeWord :=False;
wordApp.Selection.Find.MatchByte :=True;
wordApp.Selection.Find.MatchWildcards :=False;
wordApp.Selection.Find.MatchSoundsLike :=False;
wordApp.Selection.Find.MatchAllWordForms :=False;
wdReplaceAll := 2;

//下面这句最重要,是将文档中所有为1234的字符替换成4231,在Delphi中调用Word的宏命令
//如果有缺省参数可以不写后面直接打逗号
wordApp.Selection.Find.Execute( '1234 ',,,,,,,wdFindContinue,, '4231 ',wdReplaceAll);
end;
[解决办法]
回车#13
换行#10
wordApp.Selection.Find.Replacement.Text := #13 + '4321 '

[解决办法]
用servers下面的wodapplication.
WordApplication1.Selection.TypeText('asdfasdfasdf');