关于Word实现一键将选定文本转为非断行格式的功能问询

I feel your pain—manually inserting non-breaking characters for chunks of text like <!--<add key="env" value="prod" />--> is such a drag. Here's how to build a custom right-click menu option that does all the conversion automatically when you select text:

Step 1: Create the Conversion Macro #

First, we'll write a VBA macro that replaces all breakable characters with their non-breaking equivalents:

1. Open Word, go to the Developer tab (if you don't see it, enable it via File > Options > Customize Ribbon and check "Developer").
2. Click Visual Basic to open the VBA editor.
3. Right-click your document in the Project Explorer > Insert > Module.
4. Paste this code into the module:

Sub ConvertToNonBreaking()
    ' Make sure text is selected
    If Selection.Type <> wdSelectionNormal Then
        MsgBox "请先选中一段文本！", vbExclamation
        Exit Sub
    End If
    
    Dim selectedRange As Range
    Set selectedRange = Selection.Range
    
    ' Replace regular spaces with non-breaking spaces (U+00A0)
    selectedRange.Find.Execute _
        FindText:=" ", _
        ReplaceWith:=Chr(160), _
        Replace:=wdReplaceAll, _
        MatchCase:=False, _
        MatchWholeWord:=False
    
    ' Replace regular hyphens with non-breaking hyphens (U+2011)
    selectedRange.Find.Execute _
        FindText:="-", _
        ReplaceWith:=ChrW(8209), _
        Replace:=wdReplaceAll, _
        MatchCase:=False, _
        MatchWholeWord:=False
    
    ' Add more replacements here if you need to handle other breakable characters
    ' Example: Replace en dashes with non-breaking en dashes
    ' selectedRange.Find.Execute FindText:=ChrW(8211), ReplaceWith:=ChrW(8212), Replace:=wdReplaceAll
End Sub

Step 2: Add the Right-Click Menu Option #

Next, we'll add a custom option to Word's text selection right-click menu:

1. In the same VBA module, paste this code:

Sub AddNonBreakingRightClickMenu()
    Dim targetMenu As CommandBar
    Dim newMenuItem As CommandBarControl
    
    ' Clean up existing menu item if it exists
    On Error Resume Next
    CommandBars("Text").Controls("转为非断行格式").Delete
    On Error GoTo 0
    
    ' Get the right-click menu for selected text
    Set targetMenu = CommandBars("Text")
    
    ' Add the new menu item
    Set newMenuItem = targetMenu.Controls.Add(Type:=msoControlButton, Before:=1)
    With newMenuItem
        .Caption = "转为非断行格式"
        .OnAction = "ConvertToNonBreaking" ' Links to our macro
        .Style = msoButtonCaption
    End With
End Sub

2. Run this macro: Click the play button (▶️) in the VBA editor while the AddNonBreakingRightClickMenu sub is selected.

Step 3: Use the Feature #

Now you're all set:

• Select any text you want to convert
• Right-click the selected text
• Choose 转为非断行格式 from the menu

The macro will instantly replace all regular spaces and hyphens with their non-breaking counterparts. You can extend the macro by adding more Find.Execute lines for other breakable characters you need to handle.

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