如何查找和替换页脚，然后使用 VBA 将页脚转换为 word 中的纯文本？

Question

第一季度：

实际上，我必须在页面末尾插入页面 id，如 <a id="page_1"/>, <a id="page_2"/>... n，所以我有以下代码用于在每个页面中插入页码。

Sub pagenosadd()
With ActiveDocument.Sections(1)
 .Footers(wdHeaderFooterPrimary).PageNumbers.add _
 PageNumberAlignment:=wdAlignPageNumberLeft, _
 FirstPage:=True
 End With
End Sub

运行宏后，我必须找到页码并替换为<a id="page_1"/>, <a id="page_2"/>...<a id="page_n"/>

如何查找和替换页脚？

Q2：如何在同一页面中将页脚转换为普通文本？

Q3：或者是否可以直接将页脚添加为<a id="page_1">...n并转换为页面上的文本？

提高我的技能真的很有帮助吗？

编辑：

现在，我尝试使用以下代码将页脚插入为<a id="page_1"/>...n

Sub addfootaspage()

Dim k As Integer

For k = 0 To ActiveDocument.Sections.Count
k = k + 1
    With ActiveDocument.Sections(k)
        .Footers(wdHeaderFooterPrimary).Range.Text = "<a id=""page_" & k & "> "
    End With
Next k
End Sub

但作为<a id="page_1"/> 插入到所有页面，它不计算值。

Answer 1

看看下面的link或link

此示例将页码添加到活动文档第一部分的主页脚。

With ActiveDocument.Sections(1) 
 .Footers(wdHeaderFooterPrimary).PageNumbers.Add _ 
 PageNumberAlignment:=wdAlignPageNumberLeft, _ 
 FirstPage:=True 
End With

此示例在活动文档的页眉中创建和格式化页码。

Set myPgNum = ActiveDocument.Sections(1) _ 
 .Headers(wdHeaderFooterPrimary) _ 
 .PageNumbers.Add(PageNumberAlignment:= _ 
 wdAlignPageNumberCenter, FirstPage:= True) 
myPgNum.Select 
With Selection.Range 
 .Italic = True 
 .Bold = True 
End With