在Word中实现格式查找的问题?

OpenDoc         '这是我自定义的一个过程,功能是打开一个Word文档,并激活它  
  ActiveDocument.Content.Select  
  With   Selection.Find  
          .ClearFormatting  
          .Text   =   "重量"  
          .Font.Name   =   "黑体"  
          .Forward   =   True  
  End   With  
  Selection.Find.Execute  
  If   Selection.Find.Found   =   True   Then  
          MsgBox   "找到!"  
  Else  
          MsgBox   "没找到!"  
  End   If  
   
  本人想通过以上一段代码实现在文档中查找黑体的“重量”这个词。在相关的文档中，该格式的字符是存在的，但我运行的结果就是显示没找到。  
  请问一下，是不是哪地方错了，还是漏了点什么？  
  谢谢！  
  ActiveDocument.Close  
  问题点数：20、回复次数：5Top

1 楼gsj326（朱宁）回复于 2005-09-13 12:05:20 得分 0

楼主，可以把你打开文档的程序贴出来吗？Top

2 楼techgopher（米粒之珠也放光华）回复于 2005-09-16 09:50:29 得分 0

在.ClearFormatting后加  
  .Format   =   trueTop

3 楼szjhxu（天野）回复于 2005-09-20 00:42:36 得分 0

我试过了,没有用Top

4 楼techgopher（米粒之珠也放光华）回复于 2005-09-21 10:13:11 得分 0

你确认了ActiveDocument就是你想要的文档？另外，我不知道黑体字体的名字是否会本地化。建议你录制一个做同样操作的宏对照一下代码。Top

5 楼yas（新一代的矿工）回复于 2005-09-21 10:31:13 得分 20

楼主给分  
   
  .Font.NameFarEast   =   "黑体"Top

相关问题

• 文档
• 黑体
• activedocument
• 找到
• find

• 帖主：szjhxu
• yas

• Visual Basic类图书
• Visual Basic类源码下载