VBA 插入页脚出问题

weiyingde

怪事：下列代码，在录制宏后，接着运行，没有错误，但关闭文档再运行代码时，却弹出“运行时错误‘5941’集合所要求的成员不存在”对话框，不知何故。
代码如下：

Sub 插入页脚出问题()
With ActiveWindow.ActivePane.View
  .SeekView = wdSeekCurrentPageFooter
Application.Templates("C:\Users\Administrator\AppData\Roaming\Microsoft\Document Building Blocks\2052\14\Built-In Building Blocks.dotx").BuildingBlockEntries("普通数字 3").Insert Where:=Selection.Range
With Selection
     .MoveUp Unit:=wdParagraph, Count:=1
     .InsertBefore "第"
     .MoveRight Unit:=wdCharacter, Count:=2
     .TypeText Text:="页(共"
     .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="NUMPAGES  ", PreserveFormatting:=True
     .MoveUp Unit:=wdParagraph, Count:=1
     .MoveRight Unit:=wdCharacter, Count:=Selection.Paragraphs(1).Range.Characters.Count - 1
     .InsertBefore "页)"
     .Paragraphs(1).Range.Select
     .ParagraphFormat.Alignment = wdAlignParagraphRight
     .Font.Name = "楷体"
     .Font.Name = "Arial Narrow"
End With
End With
End Sub

weiyingde

再求大侠指路，赐教。

413191246se

* 魏老师：“ActiveWindow”这句代码意思是“激活窗口”，如果没有激活窗口，代码必定提示错误。是否如此？

sylun

我的版本16也一样。估计公共模板未成功加载Built-In Building Blocks.dotx。可试试如下代码是否可行：

1. Sub test()
   
2.     Dim a As String
   
3.    
   
4.     a = "C:\Users\Administrator\AppData\Roaming\Microsoft\Document Building Blocks\2052\14\Built-In Building Blocks.dotx"
   
5.     AddIns(a).Installed = True
   
6.     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
   
7.     With Selection
   
8.          .Text = "第 页(共 页)"
   
9.          .Fields.Add .Characters(6), wdFieldEmpty, "NUMPAGES  ", True
   
10.          Templates(a).BuildingBlockTypes(6).Categories(5).BuildingBlocks(1).Insert .Characters(2)
    
11.     End With
    
12. End Sub

复制代码

weiyingde

sylun 发表于 2020-5-18 00:05
我的版本16也一样。估计公共模板未成功加载Built-In Building Blocks.dotx。可试试如下代码是否可行：

谢谢你，多次得到指教，甚至感谢！

weiyingde

weiyingde 发表于 2020-5-18 08:12
谢谢你，多次得到指教，甚至感谢！

其实不用“a = C:\Users\Administrator\AppData\Roaming\Microsoft\Document Building Blocks\2052\14\Built-In Building Blocks.dotx"好像也行。

weiyingde

413191246se 发表于 2020-5-17 00:16
* 魏老师：“ActiveWindow”这句代码意思是“激活窗口”，如果没有激活窗口，代码必定提示错误。是否如此？

谢谢你，你的selection用的很活，以后还要你指教。

loquat

http://club.excelhome.net/thread-1115544-1-1.html

weiyingde

loquat 发表于 2020-5-24 13:53
http://club.excelhome.net/thread-1115544-1-1.html

谢谢提供这么好的资料。