选择所有没有ActiveX按钮的文本

Question

我正在尝试构建一个具有ActiveX按钮以调用Sub过程的模板。在某些时候，我必须选择文本并将其转换为表格。

因此，我必须找到一种选择文本的方法，而不必选择ActiveX控件。 我认为会有两种方法：

1. 编写代码选择没有对象的文本（我只有 ActiveX对象）；
2. 以无法获得的方式更改对象属性 使用Selection.WholeStory或类似代码选择。

我尝试了以下方法，但没有成功：

• 使用Selection.WholeStory-选择所有文本，包括ActiveX控件
• 包装Square而不与文本对齐的对象，并将其放置在打印区域之外-仍会选择对象
• 将对象放入标题中-这样，按钮将无法使用/单击
• 将控件放在文本框中-仍会被选中

你知道实现我目标的方法吗？

Answer 1

最简单的方法是在按钮（配置为“ inline ”的按钮）之后放置一个区域标记，并保护第一部分不受编辑。

单击Developer-> Restrict Editing->选中Allow only this type of editing in the document，然后选择Filling in forms。然后，单击Select Sections并选择第一部分。

接下来，在VBA代码中，选择所有文本，我使用以下代码：

Dim rngText As Range
Set rngText = ActiveDocument.Sections(2).Range
rngText.Select