批量去掉word文档页眉里的水印
阿东 7年前 (2018-04-19) 1491浏览 0评论
去掉word文档页眉里的水印，在一个空白word文件里创建宏，复制代码，运行，选择目录。 Dim ArrFiles() Dim FileCount% ‘替代filesearch的部分 Sub SearchFiles(ByVal fd As Object) Dim fl As Object Dim sfd As Object For Each fl In fd.Files If InStr(Right(fl.Path, Len(fl.Path) – InStrRev(f...
