Question

。我一直试图找出一种方法来选择我在页面上的所有文本框，其中一些文本框隐藏在其他文本框后面。每页大约有30个文本框。这些很难手动SHIFT选择。当然，有一些方法可以选择文档中的所有对象，但我找不到任何方法来挑出一个页面。

通过反复试验，我能够通过编号找到对象，我可以使用以下代码选择它们

    Sub GetPageTextBoxes()

    Dim pageNum As Integer

    'Shape Numbers on Page 4
    ActiveDocument.Shapes.Range(Array(37, 38, 39, 40, 41, 42, 43, 44, 45)).Select
End Sub

该示例仅选择其中一些。对象在创建时进行编号，因此形状45和46可以位于不同的页面上。

我需要一种方法来查找和选择单个页面上的所有形状。抱歉，这是一个Word文档，我忘了指定。

提前致谢

Answer 1

选择文档上的所有形状。

Sub SelectAllShapesOnTheActiveSheet()
  ActiveDocument.Shapes.SelectAll
End Sub

Answer 2

For Word

ActiveDocument.Shapes.SelectAll

Office WORD 365 VBA - 选择特定页面上的所有文本框

2 个答案: