Office中国论坛/Access中国论坛

标题: 求助：如何用VBA实现WORD替换功能（比如将宋体的1该为TIMES AND NEWROMAM的1） [打印本页]

作者: babaiyi 时间: 2008-5-12 16:25
标题: 求助：如何用VBA实现WORD替换功能（比如将宋体的1该为TIMES AND NEWROMAM的1）
求助：如何用VBA实现WORD替换功能（比如将宋体的1该为TIMES AND NEWROMAM的1）

求助：如何用VBA实现WORD替换功能（比如将宋体的1该为TIMES AND NEWROMAM的1）求助：如何用VBA实现WORD替换功能（比如将宋体的1该为TIMES AND NEWROMAM的1）

我在用宏录制之后的代码如下

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
      .Text = "1"
      .Replacement.Text = "1"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = True
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

其中尝试选择了格式，并想调为TIMES AND NEWROMAM的字体（原文为宋体，这里我对原文没有加格式限制），但是在代码中没有出现字体的选项，不知道怎么改。请大家指导下，多谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)