宏的使用 -- 定制菜单 -- 让Word统计文本种文字出现的次数

让Word统计文本种文字出现的次数

1：单击Word菜单[工具]→[宏]→[宏]，输入宏的名称“FindText” ，然后单击[创建]按钮。

2：在弹出的VisualBasic编辑器的代码窗口中完成以下内容 ：
Sub FindText()
  Text = InputBox("请输入要查找的文本 : ", "计算文本出现次数")
  With ActiveDocument.Content.Find
    Do While .Execute(FindText:=Text) = True
       tim = tim + 1
    Loop
  End With
  MsgBox ("当前文档查找到" + Str(tim) + "个" + Text), 48, "查找完成"
End Sub

3：录入完毕后，单击菜单[文件]→[关闭并返回到Micrcsoft后Word]。

4：单击菜单[工具]→[自定义]，单击“命令”选项卡，在“类别”中选择“宏”，将右边的
   “Normal.NewMacros.FindText”命令拖入“编辑”菜单中，并右击拖入的命令，在“命名”框中重命名为“查找文本数量”

5：以后要统计文本数量时，只要单击[编辑]→[查找文本数量]，按提示输入要查找的内容，单击[确定]就得到统计结果。

<script type=text/javascript charset=utf-8 src="http://static.bshare.cn/b/buttonLite.js#style=-1&uuid=&pophcol=3&lang=zh"></script> <script type=text/javascript charset=utf-8 src="http://static.bshare.cn/b/bshareC0.js"></script>

阅读(732) | 评论(0) | 转发(0) |

0

上一篇：宏的使用 -- 在 word 中使用快捷键插入指定的字符串

下一篇：装了XP系统后，意想不到的事情发生了

相关热门文章

• 日语学习资料（电子书/mp3/视...
• 韩剧《大长今》主题曲（粤语、...
• 中日关系论文
• 8分钟快速装系统教程
• 字体软件－－中文字体下载大全...

• php集成环境和自己配置的区别...
• flash播放控件
• 查看nginx某一时段的日志...
• ftp服务器日志分析
• mpi 目标机器积极拒绝,下面错...

给主人留下些什么吧！~~

评论热议