vba 页眉内容部分替换（非全替换）

jiangxsliu

功能描述：我有大约300个word文件，想实现的功能有1.替换”环境监测中心站“替换成”生态环境站“（其他不变），2.表格最下面的数字”Form No:XXXX-19-04“想自动加一；
问题描述：文字有可能在页眉或者正文，数字可能在正文或者页脚。我之前试过在论坛上查找，但只能实现正文内容的替换，也试过用replce函数替换，但会造成页眉部分的格式乱码，数字的加一，我没找到合适的方法，最终只能用通配符和穷举的方式来实现，但仍然无法解决页脚的问题。
以上便是全部情况，我弄了一两天了，确实没办法，还望各位不吝赐教，谢谢。
新建文件夹.zip (20.02 KB, 下载次数: 12)

2021-6-17 19:03 上传

点击文件名下载附件
两个例子

413191246se

楼主，你未提到会不会用宏。所以，别人给你编个宏，你不会用也帮不上忙呀！