在页眉页脚中插入图形或者文本框

batmanbbs

为什么文本框没有插入到页脚中，.Footers(wdHeaderFooterPrimary).Shapes.Count返回总是0，代码如下：

1. Sub 在页脚插入文本框()
   
2. 
   
3.     Dim mySec As Section
   
4.     For Each mySec In ActiveDocument.Sections ' 在文档的节中循环
   
5.         With mySec.Footers(wdHeaderFooterPrimary)
   
6.             '添加文本框
   
7.             .Shapes.AddTextbox msoTextOrientationHorizontal, 100, 100, 100, 100
   
8.             MsgBox .Shapes.Count  '为什么会插入到主文档中，没有插入到页脚中？？？
   
9.         End With
   
10.     Next mySec
    
11.    
    
12. End Sub

复制代码

413191246se

楼主，你录个宏就明白了。不要在文档界面操作，而要进入到页眉页脚中后再操作才行。请看下面的示例：

1. Sub a0312_Enter_PageHeader()
   
2.     Documents.Add
   
3.    
   
4.     'Enter PageFooter
   
5.     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
   
6.    
   
7.     Selection.HeaderFooter.Shapes.AddTextbox msoTextOrientationHorizontal, 100, 770, 100, 100
   
8.    
   
9.     Selection.TypeText Text:="China"
   
10.    
    
11.     'Exit PageFooter
    
12.     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    
13. End Sub

复制代码

batmanbbs

413191246se 发表于 2023-3-12 23:24
楼主，你录个宏就明白了。不要在文档界面操作，而要进入到页眉页脚中后再操作才行。请看下面的示例：

谢谢，我也是看了宏和群里几个代码才知道，页眉页脚挺特殊