MS-Word中VBA，正則表達式，只更換的第一個捕獲組

Question

我試圖記錄使用搜索&在VBA的替代品，使用通配符替換格式：

我有由3個空格後面的字普通字符串，像「正常」，並希望用「1」（1後面跟兩個空格）替換3個前導空格中的藍色字體「1」。

，並提供：「1正常」，在藍色原始格式爲「正常」的1 ..

我試圖匹配：

([^s]{3})normal 

但隨着一種新的格式，我總是更換時得到整個字符串重新格式化.. 如何保留字符串「正常」的原始格式

任何指針，可能直接使用VBA？

Answer 1

我設法做我想做的。然而，我不使用正則表達式，我想有一個更優雅的方式來做到這一點（我做了兩個替換，以獲得我想要的）。我認爲關鍵詞是「lookaround」，但我沒有得到解決。

Sub replace_3spaces() 

Dim str_after As String 
Dim re_number As Integer 

str_after = "normal" 
re_number = "1" 

    Selection.Find.ClearFormatting 
    Selection.Find.Replacement.ClearFormatting 
    With Selection.Find 
     .Text = "([^s]{3})" & "(" & str_after & ")" 
     .Replacement.Text = "§§§\2" 
     .Forward = True 
     .Wrap = wdFindContinue 
     .Format = False 
     .MatchCase = False 
     .MatchWholeWord = False 
     .MatchAllWordForms = False 
     .MatchSoundsLike = False 
     .MatchWildcards = True 
    End With 
    Selection.Find.Execute Replace:=wdReplaceAll 

    Selection.Find.ClearFormatting 
    Selection.Find.Replacement.Font.ColorIndex = wdBlue 
    With Selection.Find 
     .Text = "§§§" 
     .Replacement.Text = re_number & " " 
     .Forward = True 
     .Wrap = wdFindContinue 
     .Format = True 
     .MatchCase = False 
     .MatchWholeWord = False 
     .MatchAllWordForms = False 
     .MatchSoundsLike = False 
     .MatchWildcards = True 
    End With 
    Selection.Find.Execute Replace:=wdReplaceAll 
End Sub 

Answer 2

使用此regex代替：^ {3}(normal.*)

^   # Matched the start of the string 
{3}  # Followed by 3 spaces 
(normal.*) # Followed by normal + anything else (captured) 

測試與sed：

$ cat file.txt 
    normal string 
no spaces 
    two spaces 
    another normal string 

$ sed -E 's/^ {3}(normal.*)/1 \1/' file.txt 
1 normal string 
no spaces 
    two spaces 
another normal string