Hey there! Let's tackle your two regex requirements in VBA, since your current pattern isn't quite hitting the mark. I'll break this down into clear, actionable solutions with explanations.

1. Regex to Highlight All Punctuation Matches #

First, let's define a regex that targets common punctuation marks (adjust the character set if you need to include/exclude specific ones). This covers both English and Chinese punctuation for broader use cases:

Dim highlightRegex As New RegExp
highlightRegex.Pattern = "[.,;:!?""'()\[\]{}，。；：！？""''（）【】{}]"
highlightRegex.Global = True ' Match all occurrences, not just the first

How to Use This for Highlighting (Word VBA Example) #

If you're working in Word, you can loop through matches and apply yellow highlighting:

Sub HighlightPunctuation()
    Dim highlightRegex As New RegExp
    highlightRegex.Pattern = "[.,;:!?""'()\[\]{}，。；：！？""''（）【】{}]"
    highlightRegex.Global = True
    
    Dim match As Match
    For Each match In highlightRegex.Execute(ActiveDocument.Content.Text)
        ' Word ranges start at 1, so adjust indices accordingly
        ActiveDocument.Range(match.FirstIndex + 1, match.FirstIndex + match.Length + 1).HighlightColorIndex = wdYellow
    Next match
End Sub

2. Regex to Capture Invalid Punctuation Formatting #

Your goal is to enforce the rule: [word][punctuation][single space][word] (e.g., end. start), and catch invalid cases like end.start, end . start, end .start. Let's build a precise regex to target all these violations:

Final Regex Pattern #

Dim invalidFormatRegex As New RegExp
invalidFormatRegex.Pattern = "(\s+[.,;:])|([.,;:]\s{2,})|([.,;:]\w)"
invalidFormatRegex.Global = True
invalidFormatRegex.IgnoreCase = True ' Optional, for case-insensitive word matching

Breakdown of Each Part: #

• (\s+[.,;:]): Matches one or more spaces before a punctuation mark (e.g., end . start → captures .).
• ([.,;:]\s{2,}): Matches two or more spaces after a punctuation mark (e.g., end. start → captures . ).
• ([.,;:]\w): Matches a punctuation mark directly followed by a word character (e.g., end.start → captures .s, end .start → captures .s).

How to Fix Violations (Replace with Correct Format) #

Here's an example that replaces invalid formats with the proper [punctuation][single space] structure:

Sub FixPunctuationFormatting()
    Dim invalidFormatRegex As New RegExp
    invalidFormatRegex.Pattern = "(\s+)([.,;:])|([.,;:])(\s{2,})|([.,;:])(\w)"
    invalidFormatRegex.Global = True
    
    ' Use backreferences to preserve the original punctuation mark
    ActiveDocument.Content.Text = invalidFormatRegex.Replace(ActiveDocument.Content.Text, "$2$3$5 ")
    ' Clean up any residual extra spaces
    ActiveDocument.Content.Text = Replace(ActiveDocument.Content.Text, "  ", " ")
End Sub

Why Your Original Pattern Didn't Work #

Your regex ([\s{0,}][\.]|[\.][\s{2,}a-z]|[\.][\s{0,}a-z]) had a few key issues:

• \s{0,} matches 0 or more spaces, which includes valid cases (since valid formatting has 0 spaces before punctuation). You need \s+ to target only invalid pre-punctuation spaces.
• Grouping \s{2,}a-z together matches either 2+ spaces OR a lowercase letter, which lacks precision. Separating these into distinct branches makes the regex more accurate.

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