Word模板按回车键重复填充书签而非换行问题求助

我制作了一个包含SCRINFO表单的Word模板，用于收集信息并填充文档首页及其他页页眉的书签。操作流程为：打开Word选择该模板，在弹出的表单中输入信息后点击Submit按钮，按钮代码会填充书签并按表单内容命名保存文档。但后续编辑文档时，按下回车键不会将光标移至下一行，反而会重复将表单信息填充到书签中，多次按回车会持续执行该操作。我对Word不熟悉，怀疑焦点仍停留在Submit按钮导致代码重复运行，寻求解决帮助。

Submit按钮代码 #

Private Sub cmdDone_Click()
Dim VersionPage1 As Range
Set VersionPage1 = ActiveDocument.Bookmarks("VersionPage1").Range
VersionPage1.Text = Me.txtVersion.Value

Dim SCRNumberPage1 As Range
Set SCRNumberPage1 = ActiveDocument.Bookmarks("SCRNumberPage1").Range
SCRNumberPage1.Text = Me.txtSCRNumber.Value

Dim SCRTitle As Range
Set SCRTitle = ActiveDocument.Bookmarks("SCRTitle").Range
SCRTitle.Text = Me.txtSCRTitle.Value

Dim Version As Range
Set Version = ActiveDocument.Bookmarks("Version").Range
Version.Text = Me.txtVersion.Value

Dim SCRNumber As Range
Set SCRNumber = ActiveDocument.Bookmarks("SCRNumber").Range
SCRNumber.Text = Me.txtSCRNumber.Value

ActiveDocument.SaveAs2 FileName:=Me.txtVersion.Value & " SCR-" & Me.txtSCRNumber.Value & " " & Me.txtSCRTitle.Value & ".docx"

Me.Repaint
SCRINFO.Hide
End Sub

ThisDocument代码 #

Private Sub Document_New()
Dim Author As Range
Set Author = ActiveDocument.Bookmarks("Author").Range
Author.Text = Environ("USERNAME")

Dim AuthorPage1 As Range
Set AuthorPage1 = ActiveDocument.Bookmarks("AuthorPage1").Range
AuthorPage1.Text = Environ("USERNAME")
SCRINFO.Show
End Sub

核心原因 #

代码中使用SCRINFO.Hide仅隐藏了表单，并未彻底卸载。若cmdDone按钮被设置为默认按钮（按下回车会触发该按钮的Click事件），后续编辑时按回车会触发后台隐藏表单的cmdDone_Click过程，导致重复填充书签。

修复步骤 #

1. 替换表单隐藏为卸载
   将按钮代码中的SCRINFO.Hide替换为Unload Me，彻底关闭表单，避免后台残留触发事件：

   ' 原代码
   ' SCRINFO.Hide
   ' 替换为
   Unload Me
   

2. 强制切换焦点到文档
   可在卸载表单前添加代码，确保焦点回到Word文档窗口：

   ActiveDocument.ActiveWindow.SetFocus
   Unload Me
   

3. 取消按钮的默认属性（可选）
   打开SCRINFO表单设计视图，选中cmdDone按钮，在属性窗口将Default设置为False，让回车不会默认触发该按钮。

4. 优化：填充后重新创建书签
   当前代码填充书签时会覆盖原有书签（修改Range.Text会删除书签），后续编辑书签会受影响。可在填充后重新创建书签，示例：

   Dim VersionPage1 As Range
   Set VersionPage1 = ActiveDocument.Bookmarks("VersionPage1").Range
   VersionPage1.Text = Me.txtVersion.Value
   ' 重新创建书签
   ActiveDocument.Bookmarks.Add Name:="VersionPage1", Range:=VersionPage1
   

   其他书签可按同样方式处理。

内容的提问来源于stack exchange，提问作者Lizzie