Sub ConvertToCaption() 
     '
     ' Convert CaptionFigureStart and -End cotag to Cpation
     '
    Dim RngTmp As Range, StrTmp As String, StrTxt As String, StrSreenTip As String 
    With ActiveDocument.Range 
         'Convert CaptionFigureStart and -End codes to {CAPTIONLINK}\1 formatWith .Find
        .Text = "CaptionFigureStart(*)CaptionFigureEnd" 
        .ClearFormatting 
        .Replacement.ClearFormatting 
        .Replacement.Text = "CAPTIONtempLINK: \1" 
        .Forward = True 
        .MatchWildcards = True 
        .Wrap = wdFindStop 
        .Execute Replace:=wdReplaceAll 
    End With 
    With .Find 
        .Text = "CAPTIONtempLINK" 
        .Replacement.Text = "" 
        .Wrap = wdFindStop 
        .Execute 
    End With 
     'Convert Caption fields
    Do While .Find.Found = True 
        Set RngTmp = .Duplicate 
        .Text = Replace(.Text, "CAPTIONtempLINK", vbNullString, 1, -1, vbTextCompare) 
        StrTxt = "" 
        .InsertCaption Label:="Figure", Title:=StrTxt, ExcludeLabel:=False 
        .Find.Execute 
    Loop 
End With 
Set RngTmp = Nothing 
End Sub