请教如何用WORD VBA检查公文格式？

goodfrd2018

没办法呀，领导安排的任务，几千号人呢，领导希望用程序每人都可以自查。

goodfrd2018

正文每页22行，每行不超26个字 —— LEN() 函数返回的是字符数，如何把半角字符（英文字母数字等）算半个字，各位有现成的 LENHZ （）函数吗？谢谢！

413191246se

——楼主，对不起！你写了排版要求，我稍微编了编《页面设置》这块儿的编码，但觉得比较麻烦，何况再牵涉到更多的标题、正文、每页字数、行数等，更是麻烦不已！
——所以，我就不打算给楼主写代码了！
——这么说吧，虽然我的《公文自动排版》代码也不算标准，但也是一定程度上是很不错的了。
——如果没人给楼主写代码的话，加上楼主觉得对不起领导的话，我建议楼主，如果你们也用 WORD 2003 或 2007，不妨试试我的《公文自动排版》代码，看看我的代码排版后和你们手动排版的一样不一样？
——“领导希望用程序每人都可以自查。”如果每个人都学习公文排版的话，每个人都要当打字员了！
——没有必要！强烈建议楼主用我的代码一键自动排版公文即可，不必费心再编写格式检查程序了。
（楼主多少天也不露一面；或者楼主可以联系本坛高人付费编程也可。）

ke3088

这是巨大的工程，我也尝试作了一下，光是发文单位落款与正文不同页这一项的调整，就没有信心了。发文单位落款与正文不同页有以下几种情形：
1.发文单位与正文同页，发文日期在下一页；
2.发文单位在下一页的第一行；
3.发文单位在下一页的第二行；
4.正文在上页最后一行，发文单位在下一页的第三行，空二行盖章用；
5.上报的请示文，附注的联系人在下页第五行、第四行、第三行、第二行、第一行；
6.公文总页数二页与超过二页的差别。
用VBA进行设置公文格式，仅仅是落款的调整，都要对上述问题都要考虑得到，要不把行距变小，要不把行距扩大，使之撑满页面

413191246se

楼上说得不错！过去的97公文标准，我就觉得不标准；如今的2012公文标准，我觉得也不标准。
那么，我们怎么办？能做到的就尽量做到，不能做到的就算了，不必强求！
像纸张，什么3.7/3.5/2.7/2.6，我们单位还是用默认的A4就行了，没必要弄偏。

yjm36

楼主需求的检测公文排版的vba问题解决了吗？