Question

我有大约60页的代码，我已从其他员工中选择并编辑。我所拥有的是Userform，其中一个人将输入一些细节来创建一封信。这部分都很好并且有效。接下来的部分是我遇到麻烦的地方。基本上，如果有人点击按钮，那么它将插入一些自动文本并根据需要填写任何书签。

If chk1 = True Then
   ActiveDocument.AttachedTemplate.AutoTextEntries("1").Insert Where:=Selection.Range, RichText:=True
   ActiveDocument.Bookmarks("bm1").Select
   Selection.Text = txt1.Value
End If

If chk2 = True Then
   ActiveDocument.AttachedTemplate.AutoTextEntries("2").Insert Where:=Selection.Range, RichText:=True

结束如果现在我想弄清楚的是如何将选择/范围更改为插入下方。因此，当输入自动文本条目并且在根据需要更改书签之后，我希望选择它以开始新的段落。

示例：文本文本文本文本文本文本

＆lt; - 此处将选择输入新的自动文本。

我一直在网上看，我只是不知道怎么做！我应该提一下，这有点在文档的中间。我有一个签名和下面的东西，所以它并没有真正起作用选择最后一段东西。

Answer 1

如果你想知道这样的事情，请问Word。

将光标放在宏离开的地方，Alt + T，M，R。用键盘将光标移动到你想要的位置。关闭录音（Alt + T，M，R）。将新宏复制并粘贴到宏中。

这些是在Excel中执行相同操作的一些示例。

您正在使用Excel，您可以将其记录在Excel中并让Excel编写您的代码。

Alt + T，M，R

然后是Home键，然后是Up Arrow。停止录音。

看看Excel写的是什么

Selection.End(xlUp).Select

或者您是否有录制的“转到”对话框

Application.Goto Reference:="R1C1"

或者您已录制了Ctrl + Home

Range("A1").Select

Word 2010 Userform + VBA AutoTextEntry问题

1 个答案: