Word2003 通用模板（扩展宏）2016-1-1 元旦版

413191246se · 发表于 2016-1-1 11:58

本帖最后由 413191246se 于 2016-1-2 20:15 编辑

录制宏 Macro1，再用压缩包中代码覆盖之，执行 aaaa自定义按钮（宏），关闭WORD，再重新打开WORD即可。
***

Word2003 通用模板（扩展宏）2016-1-1.rar (19.55 KB, 下载次数: 322)

vvw123 · 发表于 2016-8-4 08:33

感谢！支持！

13907933959 · 发表于 2016-8-29 16:04

师傅好！
文本内有一个“Sub 短标题()”宏，运行不了，提示“编辑错误，子过程或函数未定义”。

13907933959 · 发表于 2016-9-1 07:40

师傅好！
模板里的这个代码不知什么原因，运行不了。运行后，弹出提示框，“编译错误，子过程或函数未定义”。再查看代码窗口，该句 TitleExtend 代码为选中状态。

Sub 短标题()
Dim i As Paragraph
For Each i In ActiveDocument.Paragraphs
   If Not (i.Range Like "*[。：；，、！？”…—.:;,!?]" & vbCr) Then
         With i.Range
            .Style =ActiveDocument.Styles(wdStyleSubtitle)
            .Font.Name = "黑体"
            .Font.Name = "Times NewRoman"
            With .ParagraphFormat
                  .LineUnitBefore = 2
                  .LineUnitAfter = 1.5
                  .AutoAdjustRightIndent =False
                  .DisableLineHeightGrid =True
            End With
            .Select
            TitleExtend
         End With
   End If
Next
End Sub

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

[分享] Word2003 通用模板（扩展宏）2016-1-1 元旦版