VFP控制Word进行多次替换的问题.docVIP

VFP控制Word进行多次替换的问题代码如下：oWord=Createobject(Word.Application)oWord.Documents.Open(D:\VFP\测试\Word\hyxz.doc)oWord.Visible=.F.oWord.Selection.find.Execute(会议须知,.f.,.t.,.f.,.f.,.f.,.t.,1,.t.,重要说明,1)oWord.QuitDeclare keybd_event In Win32API Short bVk,Short bScan,Integer dwFlags, Integer deExtraInfokeybd_event(13, 0, 0, 0)keybd_event(13, 0, 2, 0)其目的是通过VFP控制Word，将D:\VFP\测试\Word\hyxz.doc文档中的“会议须知”替换为“重要说明”。最后三行代码是模拟键盘的回车动作，响应执行替换操作后关闭word时提示的是否保存更改对话框。以上代码在VFP9中成功运行。现在的问题是：1、假如我要替换多个不同字词，除了重复运行以上8行代码外，有没有整合性（或者说简洁一点）的代码可以操作？2、oWord.Selection.find.Execute(会议须知,.f.,.t.,.f.,.f.,.f.,.t.,1,.t.,重要说明,1)一句中括号内的那些内容是什么意思，尤其是中间的那一段。3、oWord.Selection.find.Execute可以支持的替换的字符串的最大长度是多少？寻求帮助，谢谢 1、假如我要替换多个不同字词，除了重复运行以上8行代码外，有没有整合性（或者说简洁一点）的代码可以操作？只需要重复运行(建议不要用Selection,直接引用 对象比较可靠)oWord.Documents(hyxz.doc).Range.find.Execute(会议须知1,.f.,.t.,.f.,.f.,.f.,.t.,1,.t.,重要说明1,1)oWord.Documents(hyxz.doc).Range.find.Execute(会议须知2,.f.,.t.,.f.,.f.,.f.,.t.,1,.t.,重要说明2,1).....oWord.Documents(hyxz.doc).Range.find.Execute会议须知8,.f.,.t.,.f.,.f.,.f.,.t.,1,.t.,重要说明8,1) 2、oWord.Selection.find.Execute(会议须知,.f.,.t.,.f.,.f.,.f.,.t.,1,.t.,重要说明,1)一句中括号内的那些内容是什么意思，尤其是中间的那一段。运行指定的查找操作。如果查找成功，则返回 True。Boolean 类型。expression.Execute(FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl)expression 必需。该表达式返回 Find 对象。FindText Variant 类型，可选。指定需搜索的文本。可用空字符串 () 搜索格式，也可通过指定相应的字符代码搜索特殊字符。例如，“^p”对应段落标记，“^t”对应制表符。有关可以使用的特殊字符列表，请参阅查找和替换文本或其他项。MatchCase Variant 类型，可选。如果为 True，则指定查找文本区分大小写。相当于“编辑”菜单“查找和替换”对话框中的“区分大小写”复选框。MatchWholeWord Variant 类型，可选。如果为 True，则查找操作只定位于完全匹配的单词，而并非长单词中的部分文字。相当于“查找和替换”对话框中的“全字匹配”复选框。MatchWildcards Variant 类型，可选。如果为 True，则查找的文字包含特殊搜索操作符。相当于“查找和替换”对话框中的“使用通配符”复选框。MatchSoundsLike Variant 类型，可选。如果为 True，则查找操作定位于与要查找的文字发音相近的单词。相当于“查找和替换”对话框中的“同音”复选框。MatchAllWordForms Variant 类型，可选。如果为 True，则查找操作定位于要查找的文字的所有形式（例如，查找“sit”的同时，还查找