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

downbaidu · 发表于 2008-2-29 15:43

再问个问题，如何做到一个doc文档，保存的文件名是文档的标题？用宏。或者用另存为的方法，存一个文档的名为文档的标题，再将之前的文档删除。

我想将附件中的文档的名称改为“下载摆渡”。

Xa8UVOl7.rar (1.87 KB, 下载次数: 9)

[此贴子已经被作者于2008-2-29 16:26:50编辑过]

downbaidu · 发表于 2008-2-29 16:11

QUOTE:

以下是引用守柔在2008-2-29 6:39:25的发言：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2008-2-29 6:39:07
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0344^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit

Sub Example()
'注意,如果文档已保护,再保护文档时会出错,请按以下代码如实设置
'即先判断文档是否保护,再作决定
    Dim strPW As String
    strPW = "123"
    If ActiveDocument.ProtectionType = wdNoProtection Then
        ActiveDocument.Protect wdAllowOnlyFormFields, True, strPW
        '仅允许在文档中作此类编辑
        'wdAllowOnlyComments'批注
        'wdAllowOnlyFormFields'填写窗体域
        'wdAllowOnlyReading'未作任何更改(只读)
        'wdAllowOnlyRevisions'修订
    Else
        ActiveDocument.Unprotect strPW    '取消保护文档
        '此处可用代码进行文档编辑
        '编辑完成后再进行文档保护
    End If
End Sub
'----------------------

可以对页眉页脚单独进行保护吗？

downbaidu · 发表于 2008-2-29 19:32

老大，还有一个问题，就是如何一次将ppt中的所有页眉页脚，全部删除。用宏操作。

SOHiMyPD.rar (17.83 KB, 下载次数: 6)

守柔 · 发表于 2008-3-1 05:25

QUOTE:

以下是引用downbaidu在2008-2-29 16:11:39的发言：

可以对页眉页脚单独进行保护吗？

见附件

6A8NtiH2.rar (7.71 KB, 下载次数: 12)

要求:

分节,保护文档

守柔 · 发表于 2008-3-1 05:34

QUOTE:

以下是引用downbaidu在2008-2-29 19:32:47的发言：

老大，还有一个问题，就是如何一次将ppt中的所有页眉页脚，全部删除。用宏操作。

我录了个宏,请楼主测试一下:

Option Explicit

Sub Macro1()
On Error Resume Next

    If ActivePresentation.HasTitleMaster Then
        With ActivePresentation.TitleMaster.HeadersFooters
            With .DateAndTime
                .Format = ppDateTimeMdyy
                .Text = ""
                .UseFormat = msoFalse
                .Visible = msoTrue
            End With
            .Footer.Visible = msoFalse
            .SlideNumber.Visible = msoFalse
        End With
    End If
    With ActivePresentation.SlideMaster.HeadersFooters
        With .DateAndTime
            .Format = ppDateTimeMdyy
            .Text = ""
            .UseFormat = msoFalse
            .Visible = msoTrue
        End With
        .Footer.Visible = msoFalse
        .SlideNumber.Visible = msoFalse
    End With
    With ActivePresentation.Slides.Range.HeadersFooters
        With .DateAndTime
            .Format = ppDateTimeMdyy
            .Text = ""
            .UseFormat = msoFalse
            .Visible = msoTrue
        End With
        .Footer.Visible = msoFalse
        .SlideNumber.Visible = msoFalse
    End With
End Sub

downbaidu · 发表于 2008-3-1 14:34

QUOTE:

以下是引用downbaidu在2008-2-29 15:43:39的发言：

再问个问题，如何做到一个doc文档，保存的文件名是文档的标题？用宏。或者用另存为的方法，存一个文档的名为文档的标题，再将之前的文档删除。

我想将附件中的文档的名称改为“下载摆渡”。

麻烦还有这个问题呢！怎么我录宏都不行呢？

konggs · 发表于 2008-3-2 15:28

呵呵，老大一路走下来，辛苦了。

守柔 · 发表于 2008-3-2 17:03

QUOTE:

以下是引用konggs在2008-3-2 15:28:46的发言：

呵呵，老大一路走下来，辛苦了。

有感于楼主的"没完没了",无奈.

[em06]

希望楼主在得到帮助的同时,也能帮助论坛的其他网友.

[再问个问题，如何做到一个doc文档，保存的文件名是文档的标题？用宏。或者用另存为的方法，存一个文档的名为文档的标题，再将之前的文档删除。

我想将附件中的文档的名称改为“下载摆渡”。

图片点击可在新窗口打开查看点击浏览该文件]

请楼主参考http://club.excelhome.net/viewthread.php?tid=275661&replyID=1067254&skin=0中第6\7楼的代码及下载第7楼的成品,运行即可批量完成此项功能.

[此贴子已经被作者于2008-3-2 17:03:55编辑过]

downbaidu · 发表于 2008-3-3 13:41

非常感谢版主！

downbaidu · 发表于 2008-3-3 23:38

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

fHPEJxho.rar (1.87 KB, 下载次数: 9)

		自动登录	找回密码
密码			免费注册