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

1367268951 · 发表于 2021-1-7 16:03

ming0018 发表于 2021-1-7 15:58
自己看附件吧

你那个就是放到页眉那里去了我知道这样可以，我的意思是不放到页眉那里去，有没有这样一个宏代码去实现它，我只改变第一页的编号，后面的自动变一样的，大佬你说的这个方法我知道，查找替换的我也知道，有没有其他方法呢，大佬

1367268951 · 发表于 2021-1-7 16:07

zhanglei1371 发表于 2021-1-7 16:00
看我以前回复过的帖子:http://club.excelhome.net/forum.php?mod=viewthread&tid=1469788

我打开看不了，没有东西啊

ming0018 · 发表于 2021-1-7 16:29

1367268951 发表于 2021-1-7 16:03
你那个就是放到页眉那里去了我知道这样可以，我的意思是不放到页眉那里去，有没有这样一个宏代码去实现它 ...

放在每页的第一行，万一文档段落有变化，就全完了！你要考虑这个问题。

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

Sub ReportNumber()
Dim s$
s = InputBox("格式：2020101607-V1", "请输入新的<报告编号>！", "2021010715-V2")
If s = "" Then End
ActiveDocument.Content.Find.Execute "(报告编号^9)(*)(^9)", , , 1, , , , , , "\1" & s & "\3", 2
End Sub

复制代码

sylun · 发表于 2021-1-7 21:11

如果文档第2页之后的版心上部的内容都是固定位置格式和内容的，其实可以考虑在页眉结合域代码与图文框设置

1367268951 · 发表于 2021-1-8 08:12

sylun 发表于 2021-1-7 21:11
如果文档第2页之后的版心上部的内容都是固定位置格式和内容的，其实可以考虑在页眉结合域代码与图文框设置

上部的内容格式一样的，页眉内用图文框也试过，但是页眉始终是页眉，我就是不想用到页眉，大佬还有其他办法吗

413191246se · 发表于 2021-1-8 13:25

楼主，第25楼我的代码已经解决了你的问题。你要做的就是，如何使用宏代码，执行宏。网络查询一下吧！

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

413191246se 发表于 2021-1-8 13:25
楼主，第25楼我的代码已经解决了你的问题。你要做的就是，如何使用宏代码，执行宏。网络查询一下吧！

我昨天学会了宏，你一说我就去看了，知道怎么使用宏了，就是没有宏代码
。大佬能否发出来看看能不能解决

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

413191246se 发表于 2021-1-8 13:25
楼主，第25楼我的代码已经解决了你的问题。你要做的就是，如何使用宏代码，执行宏。网络查询一下吧！

后面的日期能否一起修改跟着改变，大佬

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

ming0018 发表于 2021-1-7 16:29
放在每页的第一行，万一文档段落有变化，就全完了！你要考虑这个问题。

不会有变化，报告编号就是在那里，这就相当于一个模板的了

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