标题：wordvba替换页眉

1楼

qaz17909 发表于：2024/2/22 16:17:00

当word页眉用下一页分隔符并且取消了“链接到前一条页眉”的时候，如何全文替换页眉？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:替换页眉.rar

2楼

有点蓝 发表于：2024/2/22 16:46:00

什么时代了，帮助以外的东西学会使用Ai搜索啊，都有现成的代码

此主题相关图片如下：1.png

Try

Dim doc = app.Documents.Open(fl)

For Each section As Object In doc.Sections

Dim headerRange = section.Headers(MSWord.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range

headerRange.Text = headerRange.Text.Replace("替换页眉", "111").trim(vbcr).trim(vblf)

Doc.save

Doc.close

Catch ex As exception

共2 条记录, 每页显示 10 条, 页签: [1]