怎样给文档批量添加水印?
发布网友
发布时间：2022-04-02 13:08
共2个回答
热心网友
时间：2022-04-02 14:37
要用宏，录制添加水印的代码，加入到下面的代码中进行批量处理：
Sub 批量文件处理()
Dim strPath As String, strFile As String, pf As String, t
' 文件路径 文件名 带路径文件名
strPath = "D:\我的文档": strFile = Dir(strPath & "\*.doc")
On Error Resume Next
While Len(strFile) > 1
pf = strPath & "\" & strFile
Documents.Open FileName:=pf: Documents(strFile).Activate
'这里添加插入水印的代码
Documents(strFile).Close SaveChanges:=wdSaveChanges
DoEvents: strFile = Dir
Wend
End Sub
热心网友
时间：2022-04-02 15:55
ACDsee 就可以，批量编辑、
