word录制宏-插入页码-运行时错误5941，求大佬解决

eh864166675

录制代码如下：


Sub 插入页码()
'
' 插入页码 宏
'
'

    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    With Selection.HeaderFooter.PageNumbers
        .NumberStyle = wdPageNumberStyleNumberInDash
        .HeadingLevelForChapter = 0
        .IncludeChapterNumber = False
        .ChapterPageSeparator = wdSeparatorHyphen
        .RestartNumberingAtSection = False
        .StartingNumber = 0
    End With
    Application.Templates( _
        "C:\Users\admin\AppData\Roaming\Microsoft\Document Building Blocks\2052\16\Built-In Building Blocks.dotx" _
        ).BuildingBlockEntries("普通数字").Insert Where:=Selection.Range, RichText:= _
        True
    Selection.Font.Size = 14
    Selection.Font.Name = "Times New Roman"
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    Application.Templates( _
        "C:\Users\admin\AppData\Roaming\Microsoft\Document Building Blocks\2052\16\Built-In Building Blocks.dotx" _
        ).BuildingBlockEntries("普通数字").Insert Where:=Selection.Range, RichText:= _
        True
    Selection.Font.Size = 14
    Selection.Font.Name = "Times New Roman"
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub


运行时提示错误5941，调试定位错误为


    Application.Templates( _
        "C:\Users\admin\AppData\Roaming\Microsoft\Document Building Blocks\2052\16\Built-In Building Blocks.dotx" _
        ).BuildingBlockEntries("普通数字").Insert Where:=Selection.Range, RichText:= _
        True

没学过wordvba，网上很少这个错误的资料，自动尝试抄作业未果，故来提问

batmanbbs

没有看懂这句的意思，不是加页码吗，直接用 .PageNumbers.Add 就可以了呀

eh864166675

batmanbbs 发表于 2023-5-31 23:21
没有看懂这句的意思，不是加页码吗，直接用 .PageNumbers.Add 就可以了呀

需求是：
1.页码格式"-1-"；
2.奇偶页不同；
3.奇数页，页码居右，空一格；
4.偶数页，页数居左，空一格；
5.页码字号4，字体 Time New Roman
可能是录制宏的缘故，我的代码有一些可以简化（比方说进入编辑页脚视图，退出页脚视图）

batmanbbs

是公文吗？如果你知道Quicker，可以用我的一个动作"公文排版"。
PS：如果是公文，你的要求至少有2处不符合党政公文国标要求，一个是一字线，一个是字体。

batmanbbs

至少还需要要
一是奇偶页

二是用域添加页码（替换你那句）

eh864166675

batmanbbs 发表于 2023-6-1 09:16
至少还需要要
一是奇偶页

wordvba大白一名，代码全靠录制出来的，大佬说的两点，我都不知道怎么改进去（刚刚自己瞎改了一下，错误运行不了）

batmanbbs

你可以借这个机会正好认真学习一下啊^_^

给你简单弄了一下，没有考虑多节的问题，如果有多节，自己加个循环

eh864166675

batmanbbs 发表于 2023-6-1 09:57
你可以借这个机会正好认真学习一下啊^_^

给你简单弄了一下，没有考虑多节的问题，如果有多节，自己加个 ...

最佳答案，感谢大佬

413191246se

* 楼主，我有现成的《插入页码公文一字线》宏你可以试用一下，还请 batmanbbs 老师斧正！
* 请将代码粘贴到空白文档后，全选，剪切，再粘贴到 VBE 中，否则可能有乱码。

1. Sub PageNumGW()
   
2.     With ActiveDocument.Sections(1)
   
3.         With .Footers(wdHeaderFooterPrimary)
   
4.             .Range.Delete
   
5.             If .Parent.Parent.ComputeStatistics(wdStatisticPages) > 2 Then
   
6.                 With .PageNumbers
   
7.                     .NumberStyle = wdPageNumberStyleArabic
   
8.                     .Add PageNumberAlignment:=wdAlignPageNumberCenter, FirstPage:=True
   
9.                 End With
   
10.                 With .Range
    
11.                     .InsertBefore Text:=ChrW(8212) & " "
    
12.                     .Characters.Last.Previous.InsertAfter Text:=" " & ChrW(8212)
    
13.                     With .Font
    
14.                         .Name = "宋体"
    
15.                         .Size = 14
    
16.                     End With
    
17.                 End With
    
18.             End If
    
19.         End With
    
20.         .Headers(wdHeaderFooterPrimary).Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    
21.     End With
    
22. End Sub

复制代码

batmanbbs

413191246se 发表于 2023-6-2 03:38
* 楼主，我有现成的《插入页码公文一字线》宏你可以试用一下，还请 batmanbbs 老师斧正！
* 请将代码粘贴 ...

晕，您是我的老师呀，刚刚入门一直都在看你的代码学习呢，还发给我学习资料，再次表示感谢！

斧正我可不敢：）针对楼主的需求，我觉得老师您的这段代码好像不太适合：
一是楼主需要的奇偶页设置，老师您的代码好像是只能添加奇数页的页码；
二是楼主需要奇数页页码右对齐，偶数页页码左对齐，老师的代码是页码居中；
三是楼主需要排版时，在页码和边距间左右空一个空格。您使用的图文框的方式，不太容易定位。

PS：如果老师又什么好的定位图文框的方法也请共享出来，我好认真学习。比如：图文框居页面左侧（或者右侧）空一个汉字的距离。