word vba取消选中文本框编辑

以下是在 Word VBA 中取消选中文本框编辑的代码：

Sub CancelTextboxEditing()
    If Selection.Range.ParentContentControl.Type = wdContentControlText Then
        Selection.Range.ParentContentControl.Range.Select
    End If
End Sub

这个子程序会检查当前是否有文本框被选中，如果是，则取消选中文本框。您可以将此代码放入一个名为 "CancelTextboxEditing" 的子程序中，并将其绑定到您喜欢的按钮或快捷键。

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

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 = "Cancel Textbox Editing"
        .OnAction = "CancelTextboxEditing"
        .Style = msoButtonIconAndCaption
        .FaceId = 488 ' Change FaceId value to customize button icon
    End With
End Sub

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