word vba退出文本框编辑

您可以使用以下代码退出 Word 文档中的文本框编辑模式：

ActiveDocument.ActiveWindow.Selection.TypeText(Text:=" ")
ActiveDocument.ActiveWindow.Selection.TypeBackspace

这段代码会在当前文本框中插入一个空格并立即删除，从而退出文本框编辑模式并返回到文档主体。您可以将此代码放入一个名为 "exitTextbox" 的子程序中，以便在需要退出文本框编辑模式时调用。

Sub exitTextbox()
    ActiveDocument.ActiveWindow.Selection.TypeText(Text:=" ")
    ActiveDocument.ActiveWindow.Selection.TypeBackspace
End Sub

您可以使用以下代码将此子程序绑定到自定义按钮或快捷键：

Sub AssignButton()
    Dim newButton As CommandBarButton
    Set newButton = Application.CommandBars.FindControl(Id:=754) ' Change Id value to customize button placement
    newButton.BeginGroup = True
    Set newButton = Application.CommandBars("Standard").Controls.Add(msoControlButton)
    With newButton
        .Caption = "Exit Textbox"
        .OnAction = "exitTextbox"
        .Style = msoButtonIconAndCaption
        .FaceId = 488 ' Change FaceId value to customize button icon
    End With
End Sub

这段代码会在 Word 的标准工具栏上创建一个名为 "Exit Textbox" 的按钮，并将其绑定到 "exitTextbox" 子程序。您可以根据需要更改按钮的位置和图标。