如何将英文单词换成对应数量的空格

军生

例如 ：原件为：

           

yes   n.是，是的

old   adj.老的

变换成：

       n.是，是的

       adj.老的

详见附件！

weiyingde

Sub 替换()
Set regx = CreateObject("VBscript.REGEXP")
    regx.Global = True
    regx.MultiLine = True
    regx.Pattern = "^[a-z]+(?=\s)"
     With ActiveDocument
          sr = .Content.Text
          Set mh = regx.Execute(sr)
         
       For Each mt In mh
           ft = mt.firstindex
           ln = mt.Length
           .Range(.Range.Start + ft, .Range.Start + ft + ln) = String(Len(mt), Space(1))
       Next
     End With
End Sub
可行，赏朵小花支持一下。

daibao88

Sub test()
    Dim rg As Range, MyStr As String
    FindText = "^13[a-zA-Z]{1,}"
    Do
        With ActiveDocument.Range.Find
            .ClearFormatting
            .Text = FindText
            .MatchWildcards = True
            .Replacement.ClearFormatting
            .Execute
            If .Found = False Then Exit Sub
            Set rg = .Parent
            MyStr = rg.Text
            rg.Text = VBA.Chr(13) & VBA.Space(Len(MyStr) - 1)
        End With
    Loop
End Sub
来个纯wordvba