请问如何批量打开文件夹内所有word并删除最后一页

睡不饱的熊猫 · 发表于 2023-5-6 15:33

邮件合并拆分后，每个文档尾页都有一个空白页，请问如何批量删除
现在找到一个删除尾页的代码能够删除尾页且不影响文档格式变化
求问怎么写个批量打开文档并删除尾页的VBA
附：删除尾页代码

Sub shishi()
ActiveDocument.PageSetup.SectionStart = 0
End Sub

复制代码

梧叶沙沙 · 发表于 2023-5-6 15:46

Word魔方插件一键搞定

gwjkkkkk · 发表于 2023-5-6 21:23

Sub test()
n = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
With Selection
      .GoTo wdGoToPage, wdGoToAbsolute, n
      .EndKey unit:=wdStory, Extend:=wdExtend
      .Delete
      .TypeBackspace
End With
End Sub

睡不饱的熊猫 · 发表于 2023-5-8 10:13

gwjkkkkk 发表于 2023-5-6 21:23
Sub test()
n = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
With Selection

VBA运行第一行就报错

gwjkkkkk · 发表于 2023-5-8 11:32

睡不饱的熊猫发表于 2023-5-8 10:13
VBA运行第一行就报错

代码拷贝到word文档中运行。。。

batmanbbs · 发表于 2023-5-8 16:28

本帖最后由 batmanbbs 于 2023-5-8 19:27 编辑

第22句的"\"中\又被code吃掉了

batmanbbs · 发表于 2023-5-8 16:29

本帖最后由 batmanbbs 于 2023-5-8 16:51 编辑

请谨慎行事，没有后悔药

batmanbbs · 发表于 2023-5-8 16:53

修正一下，用这个

Sub 批量删除文档最后一页()
'
' 批量删除指定文件夹中所有WORD文档的最后一页
'
Dim Path$, FileName$
Dim myApp As Application
Dim myDoc As Document
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show <> -1 Then End
Path = .SelectedItems(1)
End With
FileName = Dir(Path & "\*.doc*")
If FileName = "" Then
MsgBox Path & "\ 目录下没有WORD文档！"
Else
Set myApp = CreateObject("Word.Application")
myApp.Visible = True
Do
Set myDoc = myApp.Documents.Open(Path & "" & FileName)
With myDoc
With .GoTo(wdGoToPage, wdGoToLast)
.EndOf unit:=wdStory, Extend:=wdExtend
.Delete
End With
.Characters.Last.Delete
.Close
End With
Set myDoc = Nothing
FileName = Dir
Loop Until FileName = ""
myApp.Quit
Set myApp = Nothing
End If
End Sub

复制代码

睡不饱的熊猫 · 发表于 2023-5-8 18:12

gwjkkkkk 发表于 2023-5-8 11:32
代码拷贝到word文档中运行。。。

依旧不行，你试一下，文档传上来了

睡不饱的熊猫 · 发表于 2023-5-8 19:03

batmanbbs 发表于 2023-5-8 16:29
请谨慎行事，没有后悔药

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

请问如何批量打开文件夹内所有word并删除最后一页

评分