[求助]如何删除word中的固定大小的所有图片，用vba删除。

守柔

QUOTE:

以下是引用downbaidu在2008-3-3 23:38:23的发言：

再问版主一个问题，附件中的开始修改是怎么做的？里面有一个图片，还有一个源文件。

也不知道楼主具体想知道些什么？自定义工具栏/命令，还是其背后的代码？

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2008-3-4 6:25:49
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0348^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit
Sub XuiGai()
    Dim strPW As String
    On Error Resume Next
    strPW = "123"
    If Me.CommandBars.ActionControl.Caption = "开始修改" Then
        Me.Unprotect strPW    '取消保护文档
        Me.CommandBars.ActionControl.Caption = "结束修改"
        Me.CommandBars.ActionControl.TooltipText = "结束修改"
    Else
        Me.CommandBars.ActionControl.Caption = "开始修改"
        Me.CommandBars.ActionControl.TooltipText = "开始修改"
        Me.Protect wdAllowOnlyFormFields, True, strPW
    End If
End Sub
'----------------------

Private Sub Document_Open()
'注意,如果文档已保护,再保护文档时会出错,请按以下代码如实设置
'即先判断文档是否保护,再作决定
    Dim strPW As String
    strPW = "123"
    If ActiveDocument.ProtectionType = wdNoProtection Then
        Me.CommandBars("Standard").Controls(1).Caption = "开始修改"
        ActiveDocument.Protect wdAllowOnlyFormFields, True, strPW
        '仅允许在文档中作此类编辑
        'wdAllowOnlyComments'批注
        'wdAllowOnlyFormFields'填写窗体域
        'wdAllowOnlyReading'未作任何更改(只读)
        'wdAllowOnlyRevisions'修订
    End If
End Sub
'----------------------

rM9ZCy3k.rar (6.79 KB, 下载次数: 27)

2008-3-4 06:26 上传

点击文件名下载附件
[求助]如何删除word中的固定大小的所有图片，用vba删除。

downbaidu

如何知道一个doc里面有修改密码，如果里面有修改密码如何把这些资料移到另一个文件夹里。用宏操作。

 

WXpVNACi.rar (1.88 KB, 下载次数: 17)

2008-3-4 16:15 上传

点击文件名下载附件
[求助]如何删除word中的固定大小的所有图片，用vba删除。

守柔

QUOTE:

以下是引用downbaidu在2008-3-4 16:15:16的发言：

如何知道一个doc里面有修改密码，如果里面有修改密码如何把这些资料移到另一个文件夹里。用宏操作。

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2008-3-5 6:02:45
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0349^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit

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, ReadOnly:=True, Visible:=False)
            '定义两个数组,以","分隔
            With oDoc
                If .WriteReserved = True Then '如果具有修改权限密码
                '另存为至指定文件夹中并与原文档同名,取消修改权取密码
                    .SaveAs FileName:=NewFolder & .Name, WritePassword:=""
                    .Close '关闭文档
                End If
            End With
        Next oFile
    End With
End Sub
'----------------------

downbaidu

版主真是高手，基本上是没有问题可以难到版主的！学习对象！

downbaidu

QUOTE:

以下是引用守柔在2008-3-5 6:03:27的发言：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2008-3-5 6:02:45
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0349^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit

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, ReadOnly:=True, Visible:=False)
            '定义两个数组,以","分隔
            With oDoc
                If .WriteReserved = True Then '如果具有修改权限密码
                '另存为至指定文件夹中并与原文档同名,取消修改权取密码
                    .SaveAs FileName:=NewFolder & .Name, WritePassword:=""
                    .Close '关闭文档
                End If
            End With
        Next oFile
    End With
End Sub
'----------------------

版主如果用这个方法的话，那我打开其他doc用只读的方法打开，就不能修改了吧。里面有的文件是有密码，有的是没有密码的。没有密码的打开修改，有密码的移到另一个文件夹里。有没有更好的办法呢？

守柔

QUOTE:

以下是引用downbaidu在2008-3-5 13:24:31的发言：

版主如果用这个方法的话，那我打开其他doc用只读的方法打开，就不能修改了吧。里面有的文件是有密码，有的是没有密码的。没有密码的打开修改，有密码的移到另一个文件夹里。有没有更好的办法呢？

如果每次我的回答总是没有到位，只能说明你的提问很成问题！

我依然无法理解你目前的要求，尽管你的要求非常非常多。

你能不能多写几句话，写得让想帮助你的人少走一些弯路，少浪费一些时间，多对你有些帮助！

我想，我的时间比你有限！！！！！！！！！！！！！！

风吹过的地方

删除word中的固定大小的所有图片[em08][em08]

downbaidu

这下出事情了，版主生气了。

不过还是非常感谢版主一直以来的帮助。

downbaidu

QUOTE:

以下是引用风吹过的地方在2008-3-6 10:31:34的发言：
删除word中的固定大小的所有图片[em08][em08]

你这是提问吗？

zh8224

版主很负责

[此贴子已经被作者于2008-3-14 10:01:51编辑过]