Word 2010 Userform + VBA AutoTextEntry problems

Question

我有大约60页的代码，这些代码是我从另一名员工那里学到并编辑的。我有一个用户表单，一个人可以在其中输入一些详细信息来创建一封信。这部分都很好，很管用。下一部分是我遇到麻烦的地方。基本上，如果有人点击一个按钮，它会插入一些自动文本，并根据需要填写任何书签。

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

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

示例：文本文本文本文本

<-选择将在此处输入新的自动文本。

我一直在网上找，只是不知道怎么做！我应该提到的是，这在某种程度上是在文件的中间。我有一个签名和下面的东西，所以它真的不适用于让选择成为最后一段或其他东西。

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