如何批量删除Word中最后一行?
发布网友
发布时间：2022-04-23 03:05
共3个回答
热心网友
时间：2023-06-22 16:17
这种情况还是vba进行批量操作最为方便
题主的截图看着最后一行是最后一段，下面是删除最后一段的方法，如果确实是最后一行，可移步到解答的最下方
也可以直接下载最后的宏文档，直接使用即可，也可以按照下面的操作步骤自己操作
操作步骤1、alt+F11打开vb编辑器
步骤2、插入-模块
步骤3、粘贴下面的代码
Sub 遍历所有文件并删除最后一段()
On Error Resume Next
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
路径 = .SelectedItems(1)
End With
Set FSO对象 = CreateObject("Scripting.FileSystemObject")
Set 文件夹 = FSO对象.GetFolder(路径)
For Each i In 文件夹.Files
Call 删除最后一段(CStr(i)) '执行命令
Next
End Sub
Sub 删除最后一段(文件路径)
Set 文档 = Documents.Open(文件路径)
Set 结尾 = 文档.Paragraphs.Last
With 结尾
.Range.Delete
.Range.Delete
End With
文档.Save
文档.Close
End Sub
步骤4、
然后点击运行（快捷键F5）
步骤5、然后会出现一个文件夹选择器，你可以选择你想要处理的word文件所在的文件夹
点击确定后，会自动运行，停止运行后，你会发现所有的文档最后一行都被删除了
扩展：
你也可以直接下载使用后面的这个文档，直接点击箭头所指，即可批量删除最后一段，操作方法参考上方的步骤5
如果真的确定是文档最后一行，那么我们需要把步骤3的代码修改一下，
Sub 遍历所有文件并删除最后一行()
On Error Resume Next
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
路径 = .SelectedItems(1)
End With
Set FSO对象 = CreateObject("Scripting.FileSystemObject")
Set 文件夹 = FSO对象.GetFolder(路径)
For Each i In 文件夹.Files
Call 删除最后一行(CStr(i)) '执行命令
Next
End Sub
Sub 删除最后一行(文件路径)
Set 文档 = Documents.Open(文件路径)
With Selection
.EndKey Unit:=wdStory
.HomeKey Unit:=wdLine
.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
.Delete Unit:=wdCharacter, Count:=1
End With
文档.Save
文档.Close
End Sub
同样可下载文档最后的网盘文件
点击第三个批量删除尾行即可
热心网友
时间：2023-06-22 16:17
批量删除word中最后一行，直接选择最后这一行，点击一下，然后右击会出现删除键，点击删除 。
热心网友
时间：2023-06-22 16:18
我可以给你提供正确的解决代码。
