Замена текста по регулярному выражению (Макрос для Word)

Dim regExp As Object
Set regExp = CreateObject("vbscript.regexp")
With regExp
    .Pattern = "\[\[+(.*)+\]\]"
    .Global = True
    Selection.Text = .Replace(Selection.Text, "==> LinkIsHere")
End With

Option Explicit
 
Private Sub Form_Load()
    Dim regExp As Object
    Set regExp = CreateObject("vbscript.regexp")
    
    Dim sText As String
    sText = "[[DF45|Ссылка 1]] [[DF46|Ссылка 2]]" & vbCrLf & _
        "[[DF47|Ссылка 3]]"
        
    With regExp
        .Pattern = "\[\[(\w+)\|([A-Za-zА-Яа-я0-9_ ]+)\]\]"
        .Global = True
        .MultiLine = True
        Debug.Print .Replace(sText, "[URL=""http://myservice.ru/linkId?id=$1""]$2[/URL]")
    End With
End Sub

.Pattern = "\[\[(\w+)\|([^\]]+)\]\]"

Dim sel As Object
Dim selText As String
Dim i As Integer
 
Set sel = ActiveDocument.Sections(1)
selText = sel.Range.Text
 
Dim regExp As Object
Set regExp = CreateObject("vbscript.regexp")
   
Dim res As String
   
With regExp
    .Pattern = "\[\[(\w+)\|([^\]]+)\]\]"
    .Global = True
    .MultiLine = True
    selText = .Replace(selText, "[URL=""http://myservice.ru/linkId?id=$1""]$2[/URL]")
End With

sel.Range.Text = .Replace(selText, "[URL=""http://myservice.ru/linkId?id=$1""]$2[/URL]")

Dim selText As String
Dim RA as Range
 
set RA = ActiveDocument.Sections(1).Range
selText = RA.text
 
Dim regExp As Object
Set regExp = CreateObject("vbscript.regexp")
  
With regExp
    .Pattern = "\[\[(\w+)\|([^\]]+)\]\]"
    .Global = True
    .MultiLine = True
    RA.text = .Replace(selText, "[URL=""http://myservice.ru/linkId?id=$1""]$2[/URL]")
End With
 
set RA = nothing
set regExp = nothing