Excel VBA操作word文件

yf_home

这两段代码，是在论坛上找到的（出处：守柔版主）

批量添加，解除word打开密码。

如何修改才能让这两段代码，在excel中能够运行？
要引用word对象，这点我添加了，也是报错，调试了很久，没有成功，故发贴求解，谢谢。

Sub SAMPLE()
'批量添加打开文档密码
    Dim myDialog As FileDialog, oFile As Variant, oDoc As Document
    Dim NewFolder As String
    On Error Resume Next
    NewFolder = "F:\TEMP\"
    '定义一个文件夹选取对话框
    Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
    With myDialog
        .Filters.Clear    '清除所有文件筛选器中的项目
        .Filters.Add "所有 WORD 文件", "*.doc", 1    '增加筛选器的项目为所有WORD文件
        .AllowMultiSelect = True    '允许多项选择
        If .Show <> -1 Then Exit Sub
        For Each oFile In .SelectedItems    '在所有选取项目中循环
            Set oDoc = Documents.Open(FileName:=oFile, Visible:=False)
            With oDoc
                .Password = "你的密码"
                .Close True   '关闭文档
            End With
        Next oFile
    End With
End Sub



Sub Example()
'批量解除打开文档密码
    Dim myDialog As FileDialog, oFile As Variant, oDoc As Document
    Dim myPassWord As String
    '    On Error Resume Next
    myPassWord = "tangqingfu"
    '定义一个文件夹选取对话框
    Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
    With myDialog
        .Filters.Clear    '清除所有文件筛选器中的项目
        .Filters.Add "所有 WORD 文件", "*.doc", 1    '增加筛选器的项目为所有WORD文件
        .AllowMultiSelect = True    '允许多项选择
        If .Show <> -1 Then Exit Sub
        For Each oFile In .SelectedItems    '在所有选取项目中循环
            Set oDoc = Documents.Open(FileName:=oFile, Visible:=False, PasswordDocument:=myPassWord)
            With oDoc
                .ReadOnlyRecommended = False '请勿省略
                .Password = ""
                .Save
                .Close    '关闭文档
            End With
        Next oFile
    End With
End Sub




。

loquat

这样咯，引用工程-引用，添加word

1. Sub SAMPLE()
   
2. '批量添加打开文档密码
   
3.     Dim myDialog As FileDialog, oFile As Variant
   
4.     Dim NewFolder As String
   
5.     On Error Resume Next
   
6.     NewFolder = "F:\TEMP"
   
7.     '定义一个文件夹选取对话框
   
8.     Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
   
9.     With myDialog
   
10.         .Filters.Clear    '清除所有文件筛选器中的项目
    
11.         .Filters.Add "所有 WORD 文件", "*.doc", 1    '增加筛选器的项目为所有WORD文件
    
12.         .AllowMultiSelect = True    '允许多项选择
    
13.         If .Show <> -1 Then Exit Sub
    
14.         For Each oFile In .SelectedItems    '在所有选取项目中循环
    
15.             With Word.Documents.Open(FileName:=oFile, Visible:=False)
    
16.                 .Password = "你的密码"
    
17.                 .Close True   '关闭文档
    
18.             End With
    
19.         Next oFile
    
20.     End With
    
21. End Sub
    
22. 
    
23. 
    
24. 
    
25. Sub Example()
    
26. '批量解除打开文档密码
    
27.     Dim myDialog As FileDialog, oFile As Variant
    
28.     Dim myPassWord As String
    
29.     '    On Error Resume Next
    
30.     myPassWord = "tangqingfu"
    
31.     '定义一个文件夹选取对话框
    
32.     Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
    
33.     With myDialog
    
34.         .Filters.Clear    '清除所有文件筛选器中的项目
    
35.         .Filters.Add "所有 WORD 文件", "*.doc", 1    '增加筛选器的项目为所有WORD文件
    
36.         .AllowMultiSelect = True    '允许多项选择
    
37.         If .Show <> -1 Then Exit Sub
    
38.         For Each oFile In .SelectedItems    '在所有选取项目中循环
    
39.             With Word.Documents.Open(FileName:=oFile, Visible:=False, PasswordDocument:=myPassWord)
    
40.                 .ReadOnlyRecommended = False '请勿省略
    
41.                 .Password = ""
    
42.                 .Save
    
43.                 .Close    '关闭文档
    
44.             End With
    
45.         Next oFile
    
46.     End With
    
47. End Sub

复制代码

yf_home

loquat 发表于 2015-4-7 17:29
这样咯，引用工程-引用，添加word

感谢指点，但经测试，还是不行。

loquat

dim aWord as new word.application
with aWord.documents.open()
自行修改

yf_home

loquat 发表于 2015-4-8 00:08
dim aWord as new word.application
with aWord.documents.open()
自行修改

还是不行：