Teil-String auslesen

Sub erste_Wordvorlage_öffnen2()
Dim wb As Workbook
Dim wksWd As Worksheet
Dim WdApp As Object
Dim wdDok As Object
Dim Pfad As String
Dim varText As String       'benötigt für Auslesen von Code aus Worddokument
Set wb = ThisWorkbook
Set wksWd = wb.Worksheets("Worddaten")
Pfad = Worksheets("Worddaten").Range("B26") & Worksheets("Worddaten").Range("C2")
Debug.Print Pfad
Set WdApp = CreateObject("Word.Application")
WdApp.Visible = True
WdApp.Activate
Set wdDok = WdApp.Documents.Open(Pfad)   'öffnet die Vorlage
wdDok.ActiveWindow.View.ShowFieldCodes = True    'Word-VBA öffnen
'Anfang ersten Eintrag auswählen und auslesen
With wdDok
varText = .Fields(1).Code   'Code aus dem 1. Feld aus geöffnetem  _
Worddokument
'''                    varText = Mid(varText, InStr(1, varText, ":") - 1, InStr(1, varText, ". _
xlsm") + 6 - InStr(1, varText, ":")) 'Umwandlung nur Teil aus dem Code
'varText = Mid(varText, InStr(1, varText, ":") - 1, InStr(1, varText, ". _
xlsm") + 7 - InStr(1, varText, ":")) 'Umwandlung nur Teil aus dem Code
Debug.Print varText
End With
'Ende ersten Eintrag auswählen und auslesen
'wksWd.Range("B44") = """" & varText & """"   'hinzufügen von Anfü _
hrungszeichen vor und nach dem ausgelesenen Code
wksWd.Range("B44") = varText                    'ohne hinzufügen von Anfü _
hrungszeichen vor und nach dem ausgelesenen Code
'Debug.Print wksWd.Range("B44")
Set wdDok = Nothing
Set WdApp = Nothing
End Sub