不用页眉的办法，怎么把第一页的报告编号统一到后面的每一页去，第一页的报告编号...

1367268951 · 发表于 2021-1-8 14:37

413191246se 发表于 2021-1-7 19:07

我试了，可以的，大佬很强。另外可以让在同一行的最右边的那个目录页码变化吗，例如这个检测报告总共有7页，我在第一页那里写了“第 1 页共 7 页”，后面的第二页会自动变成“第 2 页共 7 页”，第三页会自动变成“第 3 页共 7 页”.。。。。到第7页会自动变成“第 7 页共 7 页”。
这个功能可以实现吗，大佬

1367268951 · 发表于 2021-1-8 14:42

zhanglei1371 发表于 2021-1-7 16:00
看我以前回复过的帖:改变一处内容，其他也随之改变http://club.excelhome.net/forum.php?mod=viewthread&ti ...

看了，也可以，感谢大佬

413191246se · 发表于 2021-1-8 23:21

Sub aaaa报告编号()
Dim s$
s = InputBox("格式：2020101607-V1", "请输入新的<报告编号>！", "2021010715-V2")
If s = "" Then End
With ActiveDocument.Content.Find
.Execute "^12", , , 0, , , , , , "", 2
.Execute "检测报告^p", , , 0, , , , , , "^12^&", 2
.Execute "(报告编号^9)(*)(^9)(*)(^13)", , , 1, , , , , , "\1" & s & "\3\5", 2
End With
With Selection
.HomeKey 6
With .Find
.ClearFormatting
.Text = "(报告编号^9)(*)(^9)(^13)"
.Replacement.Text = ""
.Forward = True
.MatchWildcards = True
Do While .Execute
With .Parent
.EndKey
.TypeText Text:="第 "
.Fields.Add Range:=.Range, Type:=wdFieldEmpty, Text:="PAGE ", PreserveFormatting:=True
.TypeText Text:=" 页共 "
.Fields.Add Range:=.Range, Type:=wdFieldEmpty, Text:="NUMPAGES ", PreserveFormatting:=True
.TypeText Text:=" 页"
End With
Loop
End With
End With
End Sub

复制代码

1367268951 · 发表于 2021-1-9 08:34

413191246se 发表于 2021-1-8 23:21

试过可以的，大佬真的很强，跪谢大佬，祝大佬身体健康、万事如意、事事顺利。

1367268951 · 发表于 2021-1-9 08:35

413191246se 发表于 2021-1-8 23:21

试过可以的，大佬真的很强，大佬请收下我的膝盖，祝大佬身体健康、万事如意、事事顺利。

1367268951 · 发表于 2021-1-9 08:38

到此，本问题已解决，再次特别感谢413191246se这位大佬，还有给我提供了其他解决方法的坛友，非常感谢你们，我在这里学到很多，不能早点来到这个论坛相遇大家是我的遗憾。再次感谢大家

		自动登录	找回密码
密码			免费注册