Function CaseVariantParsing() As String
    Dim wdApp As Object
    Dim wdDoc As Object
    Set wdApp = CreateObject("Word.Application")
    wdApp.Options.CheckSpellingAsYouType = False
    
    fileToOpen = Application.GetOpenFilename("Text Files (*.doc), *.doc")
    If fileToOpen = False Then
      Exit Function
    End If
    
    Set wdDoc = wdApp.Documents.Open(Filename:=fileToOpen, ConfirmConversions:= _
            False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
            PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
            WritePasswordTemplate:="", XMLTransform:="", Format:= 0 )
    'wdOpenFormatAuto,

wdApp.Visible = True

    wdApp.ActiveWindow.Selection.Find.Text = "^p^t"
    CountPT = wdApp.ActiveWindow.Selection.Find.Execute
    
    If CountPT = True Then
        CaseVariantParsing = "PT Found"
        wdApp.Selection.Find.ClearFormatting
        wdApp.Selection.Find.Replacement.ClearFormatting
        With wdApp.Selection.Find
            .Text = "^p^t"
            .Replacement.Text = ChrW( 9830 )
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        wdApp.ActiveWindow.Selection.Find.Execute Replace:=wdReplaceAll
         wdDoc.SaveAs fileToOpen + ".tmp"
    End If