Word2003 通用模板（元旦版）2014-1-1

413191246se · 发表于 2014-1-1 10:26

* 祝论坛各位朋友——新年快乐！元旦快乐！合家欢乐！
* 模板内 VBA 代码，均可免费复制、使用，没有版权。
* 模板能提供初级自动排版，方便大家快速简便地使用。
* 模板内工具栏上的辅助按钮中，有本模板使用说明，请详细阅读之。
* 模板使用方法：关闭 Word2003 后，查找 C 盘 Normal.dot 文件（必须勾选搜索隐藏文件选项方可），如果找到两个，最新的一个文件所在文件夹即是模板压缩包所解压释放的地方，覆盖原文件即可，再打开 Word 应用。
* 由于本人水平有限，大多数宏都是在录制宏的基础上修改编辑而成，故错误、不足之处在所难免，敬请广大朋友批评指正，谢谢大家！

★ Word2003 通用模板（元旦版）2014-1-1 下载链接：

Word2003 通用模板（元旦版）2014-1-1.rar (61.61 KB, 下载次数: 393)

413191246se · 发表于 2014-1-1 10:38

补：
* 请自动排版完毕，以“页宽“显示保存文档，以便下次再打开可以以页宽方式呈现（自动排版后以多页形式显示，以便进一步编辑，观看页面）。
* 本次修正主要是重写了《证书自动编号》和《A4纸张》两个宏代码及其它一些小改动。
* 请详细阅读模板帮助，在打印保存时尽量用我的快捷键（热键），方便、快速、高效。

gxsws · 发表于 2014-1-1 15:09

谢谢楼主，您辛苦了！！！

lee小猪 · 发表于 2014-1-1 23:55

谢谢 ···正在找模板···辛苦了

loquat · 发表于 2014-1-3 14:13

本帖最后由 loquat 于 2014-1-3 23:53 编辑

这个绝对可以简化

Sub 选定当前页()
Selection.GoTo What:=wdGoToBookmark, Name:="\page"
End Sub

复制代码

这个做成带参数的，可以节省代码

Sub 行高(h As Double)
Dim i&
For i = 1 To Selection.Tables.Count
If Selection.Type = wdSelectionIP Then Selection.Tables(i).Select
Selection.Rows.Height = CentimetersToPoints(h)
Next i
End Sub

复制代码

上面不知道是不是实际上可以简化

Sub 行高(h As Double)
Dim i&
For i = 1 To Selection.Tables.Count
If Selection.Type = wdSelectionIP Then Selection.Tables(i).Rows.Height = CentimetersToPoints(h)
Next i
End Sub

复制代码

纯粹交流

413191246se · 发表于 2014-1-3 16:20

谢谢 loquat 朋友！——《选定当前页》一行代码，测试 OK（收藏！）！但《行高》宏两段代码均未测试通过。
如果 loquat 有时间的话，可以全面地把我的 Word 2003 通用模板（元旦版）2014-1-1 中的代码不管是哪个宏，能优化的优化，把我未做到位的代码做到最好，谢谢！
对哪个宏有精简优化建议，请提出来，咱们共同改进……说这在话，你是第一个针对我的模板中的代码提出改进方案的第一人！达人！

loquat · 发表于 2014-1-3 23:54

413191246se 发表于 2014-1-3 16:20
谢谢 loquat 朋友！——《选定当前页》一行代码，测试 OK（收藏！）！但《行高》宏两段代码均未测试通过。
...

应该是少了一行Next

413191246se · 发表于 2014-1-4 17:29

不是少了一行 NEXT 的问题……（请仔细看看我的模板中的《表格处理》宏和《表格全选》宏代码）

413191246se · 发表于 2014-1-10 16:58

顶一下，希望给朋友们提供一下方便……

413191246se · 发表于 2014-4-18 10:29

再顶一下，虽然编程水平很低，但对于简单排版还是比较有帮助的，模板里面也有一些初步的VBA代码可以供新手来学习；另，有些新人朋友可能不知道有这个模板，希望下载试用（本模板是免费的），谢谢！

		自动登录	找回密码
密码			免费注册

[分享] Word2003 通用模板（元旦版）2014-1-1