Sub Demo()
With ActiveDocument.Content.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchAllWordForms = False
  .MatchSoundsLike = False
  .MatchWildcards = True
  .Text = "([!^13]@^13)(*^13)([!^13]^13)([!^13]@^13)[!^13]@^13([!^13]@^13)"
  .Replacement.Text = "AN \1AC \3AH \4AL \5\2"
  .Execute Replace:=wdReplaceOne
  .Text = "(DP )([!^13]{1,})([^13]VD*VX[!^13]{1,}[^13])(DP )([!^13]{1,}[^13])"
  .Replacement.Text = "\1\2\3DB \2,\5\4\5"
  .Execute Replace:=wdReplaceAll
  .Text = "<Front[!0-9]{1,}"
  .Replacement.Text = "**French border**^p"
  .Execute Replace:=wdReplaceAll
End With
End Sub