谁有标准公文自动排版的模板。

nmll316

yian123

Sub 标题1号()


    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Name = "黑体"
        .Size = 16
        .Bold = False
        .Italic = False
    End With
    With Selection.Find
        .Text = "^13[一-龥]{1,2}、*[。：:^13]"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub


Sub 标题2号()

'Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Name = "楷体"
        .Size = 16
        .Bold = False
        .Italic = False
    End With
    With Selection.Find
        .Text = "^13[（][一-龥]{1,2}[[）]*[!、]*[。：:^13]"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub 全文编号转文本内()

'将文档中全部自动编号转成正常文本。

ActiveDocument.Range.ListFormat.ConvertNumbersToText

End Sub

nmll316

虽然一下没看明白但是非常感谢楼上yian123老师的帮助

yian123

nmll316 发表于 2020-4-19 09:29
虽然一下没看明白但是非常感谢楼上yian123老师的帮助

C:\Users\Administrator\Desktop.jdfw.gif

yian123

nmll316 发表于 2020-4-19 09:29
虽然一下没看明白但是非常感谢楼上yian123老师的帮助

就是按照公文自动设置字体。先手动全选内容，设置为正文。然后通过代码，标题设置为3号黑体，和（一）标题设置为3号楷体。

413191246se

楼主朋友，请试试我的 VBA 自动排版宏（通用模板宏），如果排版小文件的话（详情请参见说明）：
链接：http://club.excelhome.net/thread-1503844-1-3.html