PPT宏编程——ChineseCounter

最新推荐文章于 2024-03-23 15:48:28 发布

Leeforall

最新推荐文章于 2024-03-23 15:48:28 发布

阅读量5.1k

点赞数 1

分类专栏：业余文章标签：宏 PPT 统计中文

本文链接：https://blog.csdn.net/leestar0622/article/details/9264285

版权

本文介绍了作者如何使用VB宏为PPT开发一个统计中文字数的功能ChineseCounter，因PPT本身不支持此功能。通过Google搜索发现网上方法繁琐，作者决定自己动手，经过一晚上研究，成功实现简单版。代码简洁，但存在误差，主要在统计表格中文时，计划后续改进。

摘要由CSDN通过智能技术生成

大学期间一直让好朋友提需求来让我帮他们开发一些能够改善和方便他们生活的软件，只可惜感觉四年了，大家都不了了之了

知道最近我的一个死党，业余时间从事翻译工作的，郁闷的跟我说PPT 没有统计中文字数的功能，让我帮忙实现一下

我心想：怎么可能这么常用的功能会没有的。。。。Google了一下才发现几乎没有，网上有很多比较繁琐的办法，比如转PDF 啊，转Word

好吧。。。终于有需求了，可以想象怎么实现了，然后就一步一步找ms 的帮助文档，了解到用vb实现宏来完成一些特定功能

终于一个晚上的时间搞定了一个简单的PPT统计中文的功能，希望能够帮助有同样需要的人

这里姑且叫他ChineseCounter for PPT , 代码还是蛮简单的，统计的结果会有误差，误差在于表格里面的中文，由于表格的一些不确定的行列项导致的，有时间再改进吧。。。

Sub ChineseCounter()
    Dim sPrompt As String, sTitle As String, sDefault As Integer, sStart As String, sEnd As String
    sPrompt1 = "请输入起始页"
    sPrompt2 = "请输入结束页"
    sTitle = "输入数字"
    sDefault = 1
    sStart = InputBox(sPrompt1, sTitle, sDefault)
    Dim iNum As Integer, iCount