使用 VBA 在 Microsoft Word 中隐藏 2 行答案

【问题标题】：Hiding 2 rows in Microsoft word using VBA使用 VBA 在 Microsoft Word 中隐藏 2 行
【发布时间】：2020-04-04 05:00:23
【问题描述】：

我一直试图弄清楚如何在 Microsoft Word 中隐藏 2 行。我知道它没有excel一样的功能，但是我做的事情需要用word来完成。我目前有一张桌子，我想隐藏 2 行。以下是基本信息： - 该表共有 17 行。
- 我想隐藏第 16 行和第 17 行。 - 第 16 行有 5 列 - 第 17 行有 3 列。 - 表格不能有标题... - 微软 word --> Office 16

正在使用不同的 VBA 脚本将该表拉入 excel，并且该脚本的参数要求该表仍包含 17 行。几天来，我一直在试图弄清楚如何最小化/隐藏这些行。我在网上找到了几段代码，每个代码都有错误。

在 VBA 方面我是个菜鸟。

这是我尝试使用的代码：

 Private Sub CommandButton1_Click()

   Dim BBGEarlyAppr As Range
   Dim BBGEarlyAppr2 As Range
      With ActiveDocument.Tables(1)
          Set BBGEarlyAppr = .Rows(7).Range
          BBGEarlyAppr.End = .Rows(41).Range.End
      End With

      With ActiveDocument.Tables(1)
          Set BBGEarlyAppr2 = .Rows(60).Range
          BBGEarlyAppr2.End = .Rows(68).Range.End
       End With

      With BBGEarlyAppr.Font
           .Hidden = True
      End With
      With BBGEarlyAppr2.Font
          .Hidden = True
      End With
  End Sub

我在BBGEarlyAppr.End = .Rows(41).Range.End 收到错误消息 "请求的集合成员不存在"

这是因为行已关闭吗？此外，隐藏字体似乎不会删除单元格内的字体...

任何帮助或解释将不胜感激。我

【问题讨论】：

您说您的表格有 17 行，但您引用的是第 41 行。
哦，好吧。我现在明白了。但是，当它取消代码时。细胞只是保持不变。我有一种感觉。
单击功能区主页选项卡上的 ¶ 符号以关闭 Word 对格式标记等的显示。除非它们被关闭，否则您仍然会看到任何隐藏的内容。由于这是应用程序级别的设置，而不是文档级别的设置，因此同样的问题将影响查看您文档的任何其他人。事实上，如果给定用户打开了 Word 的“打印隐藏文本”选项，隐藏的内容即使没有显示也会打印出来！

标签： vba ms-word

【解决方案1】：

我没有发现您的宏有任何问题。在 File>Options>Display 中，如果您设置了 Hidden Text 或 All 选项，隐藏的文本将保持可见，但会有一个罚款在其下方绘制虚线。关闭该选项以查看代码的真实效果。

【讨论】：