Question

Q1：

实际上，我必须在页面末尾插入类似<a id="page_1"/>, <a id="page_2"/>... n的页面ID，所以我在每页中都有以下插入页码的代码。

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：如何将页脚转换为同一页面中的普通文字？

问题3：或者是否可以直接将页脚添加为<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

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

1 个答案: