Word2003VBA 通用模板宏（2019元旦版）更新：2018-12-29

458863601

能告诉我改字体的代码在哪里 下次我可以自己修改 不用在线找你
如果下次还有其他文件需要修改的 我发格式图片发给你 谢谢你的帮忙哈

413191246se

* 首页元旦版：有 Win7、Winxp 两种可以选择。
* 私人定制版：标题1是方正小标宋简体，标题2345是公文标准自动设置，正文是仿宋_GB2312。
* 楼主，字体的代码其实可以通过录制宏得到，其实就是 .Font.Name="仿宋_GB2312"或
  .Font.NameFarEast="楷体_GB2312"，将光标放在 VBE 窗口最上面，查找 .Name 即可。
* 关于批量处理文件夹及子文件夹中的文件：在 Word2003 版本中，常用方法是利用 .FileSearch 对象（2007及以上不能用此方法），但我感觉该方法并不好用，速度奇慢，还是用 dir 函数 或 FSO 递归方法比较快，但后两者我并不会。
* 楼主，我给你做的《私人定制版》代码，我希望你打开文档后，再打开 VBE，按 F8 一次按一下，逐行地运行，看看有什么需要改动的地方。

458863601

413191246se 发表于 2019-1-9 11:14
* 首页元旦版：有 Win7、Winxp 两种可以选择。
* 私人定制版：标题1是方正小标宋简体，标题2345是公文标准 ...

批量修改 一定是doc格式才可以批量修改的吗？ 我尝试了 好像不行的？

tanshuizhu

求助：将word表格数据链接到excel后，excel数据变更后如何让word表格格式不变更。 如附件，word中的表格格式要求保持（如行高、边框、字体、居中等），想变更excel数据然后word数据刷新但格式保持不变，不知如何实现。

458863601

413191246se 发表于 2019-1-9 11:14
* 首页元旦版：有 Win7、Winxp 两种可以选择。
* 私人定制版：标题1是方正小标宋简体，标题2345是公文标准 ...

可以把改变字体的代码 用其他颜色的字体显示 或者在代码后面用文字说明呢？

458863601

458863601 发表于 2019-1-9 14:34
批量修改 一定是doc格式才可以批量修改的吗？ 我尝试了 好像不行的？

可以把改变字体的代码 用红色字体显示 或者在后面用文字注明？

413191246se

* 458863601 朋友：你到底想怎么改字体呢？你提供的图片中的公文格式，我认为已经达到了你的要求，其实不要求，我的公文标题四个层次也是标准的。
* 想改变字体名称的话，可以在 VBE 中从头查找 .Name 即可，看看等号后面是什么字体名称，其实也是可以通过录制宏得到，无需注释。
* 还有，公文落款，要是盖印的话，须右空四个汉字；否则（不盖印），须右空两个汉字。
* 楼主，你还有哪些不满意的地方呢（关于公文排版）？
* 批量转换格式：不仅可以 doc2txt（Word文档转换为纯文本文档），也可以 txt2doc（纯文本文档转换为Word文档），也可以 docx2doc（Word2007文档转换为Word2003文档）。但有个问题是：在 Word2003 中，如果用它自带的《转换向导》的话，有可能会引起崩溃；而用 .FileSearch 对象来转换的话，也是有可能引起崩溃的。前几天，我在网上找到一个捷克人编制的 VBA 程序，在 Word2003 下能够几百上千地将 Word文档转换为纯文本文档，我已经成功地将单位的 8000 多个也许是 5000 多个 Word2003 文档转换为纯文本文档了，就怕哪天 Word 文档打不开，可以看纯文本文档来重新排版，主要是文字有用。但我也发现，它对于一个文件夹中，子文件夹名称如果有空格，可能不予转换，只好手动找到该文件夹再用它来转换。
* 楼主，你到底想怎么进行批量转换格式呢？请详细说明。

413191246se

tanshuizhu 朋友：我暂时也无好办法……

tanshuizhu

413191246se 发表于 2019-1-10 00:59
tanshuizhu 朋友：我暂时也无好办法……

您好，可否加下qq178701509？

413191246se

楼上朋友，现在我不用QQ。你的问题，好像是2007版本的问题。前几天，zhanglei1371老师做了回答，你看了没有？就是目的性粘贴，我也不懂。请搜索网络上是否有答案。