对于一个word文档,  
 With .ActiveWindow.Selection.Find
    .ClearFormatting
    .Text = "飞机"
    .Format = True
    .Font.EmphasisMark = 4
 End With

解决方案 »

  1.   

    楼主的具体的问题是什么呢,代码不是已经写出来了吗,执行Find动作就可以了。
      

  2.   

    With .ActiveWindow.Selection.Find 
        .ClearFormatting 
        .Text = "飞机" 
        .Format = True 
        .Font.EmphasisMark = 4 
    End With 
       .ActiveWindow.Selection.Find.Execute
    用以上代码执行时查找不到带着重号的飞机,我也找不出原因,当将
        .Format = True 
        .Font.EmphasisMark = 4 
    两句注释后,可查到文档中的所有“飞机”,不论是否带着重号,是什么原因?请各位帮助!
      

  3.   

    帮楼主试了一下,如果Word文档手动设置字体的“着重号”,用下面的语句是可以找到的,楼主试试.Font.EmphasisMark = wdEmphasisMarkOverSolidCircle
      

  4.   

    谢谢3楼(bigriverhorse)高手,是我把参数搞错了,多谢帮助