You don't need a macro for this - it can be done with a
wildcard Find/Replace, where:
Find = (\]\])([!^13\]]@)^13
Replace = \1{{field-on:Bible}}\2{{field-off:Bible}}^p
That said, you could simply replace your existing Find/Replace parameters with the above:
Code:
Sub LogosField()
'
' LogosField Macro
'
Application.ScreenUpdating = False
With ActiveDocument.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Format = False
.Wrap = wdFindContinue
.MatchWildcards = True
.Text = "(\]\])([!^13\]]@)^13"
.Replacement.Text = "\1{{field-on:Bible}}\2{{field-off:Bible}}^p"
.Execute Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True
End Sub