☰

无法删除页面，即使使用宏

tag-icon • tag-icon microsoft-word vba macros
无法删除页面，即使使用宏

我有一个 2 页文件（从网站输出，我无法控制它）。不知何故我根本无法删除第二页。

尝试了网络上的各种宏，但都不起作用。

这是文件。 https://filebin.net/18td6mriqmi6nrm4

是否有某种强制删除代码？我试过了

  • 手动删除
  • 使用我在网上找到的所有宏/脚本进行删除宏的示例
Sub test()

  Dim objRange As Range
  Dim strPage As String
  Dim objDoc As Document
  Dim nSplitItem As Long

  Application.ScreenUpdating = False
 
  ' Initialize and enter page numbers of pages to be deleted.
  Set objDoc = ActiveDocument
  strPage = 2

  ' Find specified pages and highlight their contents.
  For nSplitItem = nSplitItem To 0 Step -1
    With ActiveDocument
      Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=Split(strPage, ",")(nSplitItem)
      Set objRange = .Bookmarks("\Page").Range
      objRange.Delete
    End With
  Next nSplitItem
 
  Application.ScreenUpdating = True
End Sub

此宏适用于第 1 页，但不适用于第 2 页。

如果没有的话，有人能帮我用宏将文件“另存为”包含第 1 页而没有第 2 页的精确文件吗？

谢谢

答案1

您是否尝试过通过去对话？：

  1. 单击或点击要删除的页面中的任意位置，按 Ctrl+G。
  2. 在输入页码框中，键入 \page。
  3. 按下键盘上的 Enter 键，然后选择“关闭”。
  4. 确认已选择内容页面，然后按下键盘上的 Delete 键。

或者Word 支持网站上有说明如何删除文档末尾的空白页：

  1. 按 Ctrl+Shift+8（Mac 上为 ⌘+8）显示段落标记。
  2. 选择段落标记。
  3. 在字体大小框内选择，输入 01，然后按 Enter。
    现在段落适合前一页，删除了不需要的空白页。
  4. 再次按 Ctrl+Shift+8 隐藏段落标记（Mac 上为 ⌘+8）。

检查文件时，我发现第一页以分节符（下一页）。自然，在分节符之后，Word 会创建下一页。除非您删除该分节符或将其更改为分节符（连续）第一页之后，第二页将会是空白的。

相关内容