如何在Word文档点击位置同步插入CR并删除空格？

Absolutely, you can make this work in Microsoft Word—custom VBA macros are the way to go here, since there’s no built-in feature that does exactly what you’re requesting. Let’s walk through the solutions step by step:

This method lets you trigger the "insert CR + remove spaces" action exactly where you click (or at your current cursor) using a keyboard shortcut or custom button.

Step 1: Open the VBA Editor #

• Press Alt + F11 to launch Word’s VBA Editor.
• In the left Project Explorer pane, right-click your document (or Normal.dotm if you want the macro available in all Word files) and select Insert > Module.

Step 2: Paste the Macro Code #

Copy and paste this code into the new module. It targets your selected/clicked position, trims surrounding spaces, and inserts a paragraph break (CR):

Sub InsertCRAndTrimSpaces()
    Dim targetArea As Range
    ' Grab the current cursor or clicked selection
    Set targetArea = Selection.Range
    
    ' Trim spaces before and after the target position
    ' Remove the line below if you don't want to affect entire words
    targetArea.Expand wdWord
    targetArea.Text = Trim(targetArea.Text)
    
    ' Insert a paragraph break (CR) after the cleaned text
    targetArea.Collapse wdCollapseEnd
    targetArea.InsertParagraphAfter
    targetArea.Collapse wdCollapseEnd
End Sub

Quick Code Tweaks: #

• Skip targetArea.Expand wdWord if you only want to trim spaces directly at the cursor, not the entire surrounding word.
• Use LTrim(targetArea.Text) instead of Trim to only remove leading spaces, or RTrim for trailing spaces.

Step 3: Bind the Macro to a Shortcut/Trigger #

To use this with your desired key+mouse combination:

1. Return to Word’s main window, go to File > Options > Customize Ribbon.
2. Click the Customize... button next to "Keyboard shortcuts" at the bottom.
3. In the Categories list, select Macros, then choose InsertCRAndTrimSpaces.
4. Press your preferred shortcut (e.g., Ctrl+Shift+R) and click Assign to save it.

How to Use the Trigger: #

• To act on a clicked position: Hold your shortcut modifier (like Ctrl), click the target spot in your text, then press the rest of your shortcut (e.g., Shift+R) to run the macro.
• To act on the current cursor: Just press your assigned shortcut directly.

If you’re dealing with repeated patterns (e.g., multiple spaces that need to become line breaks), this is a simpler alternative for one-off fixes:

• Press Ctrl+H to open the Find and Replace dialog.
• In Find what, enter the space pattern you want to remove (e.g., two spaces ).
• In Replace with, enter ^p (Word’s code for a paragraph break/CR).
• Click Find Next to jump to your target position, then Replace to apply the change instantly.

Pro Tips: #

• Save macros in Normal.dotm to access them across all Word documents.
• Always back up your text before testing macros, just to avoid accidental changes.
• You can tweak the macro further to handle specific edge cases (e.g., only removing spaces before inserting the CR) by adjusting the code logic.

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