如何批量去除word文档中图片水印

jiangxiaoyun

413191246se 发表于 2019-1-2 14:11
2007，循环遍历文件夹，须用 dir 方法来编程，我不会，抱歉！楼上朋友 可以搜索网络查找相关知识。

Sub FileList()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim mydoc As Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    sPath = ActiveDocument.Path & "\新建文件夹\"
    Set objFolder = objFSO.GetFolder(sPath)
    '    On Error Resume Next
    For Each objFile In objFolder.Files
        Set mydoc = Documents.Open(objFile.Path)
        '            Set mydoc = GetObject(objFile.path)
        Debug.Print mydoc.Paragraphs(1).Range
        mydoc.Close False
        Set mydoc = Nothing
    Next objFile
End Sub

Sub FileList1()
    Dim MyName As String
    Dim MyPath As String
    Dim sFType As String
    Dim mydoc As Document
    sFType = "*.doc*" '文件类型
    MyPath = ActiveDocument.Path & "\新建文件夹\" '路径
    MyName = Dir(MyPath & sFType)    '返回文件名称
    Do Until MyName = ""
        Set mydoc = Documents.Open(MyPath & MyName)
        '            Set mydoc = GetObject(MyPath & MyName)
        Debug.Print mydoc.Paragraphs(1).Range
        mydoc.Close False
        Set mydoc = Nothing
        MyName = Dir
    Loop
End Sub