Как прочитать одну строку из документа Word

Метод, который я использовал, был для текстовых файлов и, как и ожидалось, дает тарабарщину.

In: John Smith
Out: PK!~8ìz‡­[Content_Types].xml ¢( ´”ÏNÂ@Æï&¾C³WÓ.x0ÆP8•D|€a;…Õvw³;ü{{§´5@UôBRf¾ß÷Ív;½Áº,¢%ú ­IE7鈲™6³T¼Lâ[“Aa
¦bƒAú—½ÉÆaˆXmB*æDîNÊ æXBH¬CÕÜúˆýL:Po0CyÝéÜHe
¡¡˜*†è÷†˜Ã¢ h´æ¿ë$SmDt_÷UV©ç
­€¸,—&KÊÛ<×

Я новичок в VBA, и я пытаюсь читать документ построчно, чтобы в конечном итоге макрос автоматически удалял целые строки на основе их содержимого.

Sub ayaya()
Dim TextLine As String
Open ActiveDocument.Path & "\Doc1.docm" For Input As #1
    Do While Not EOF(1) ' Loop until end of file.
    Line Input #1, TextLine ' Read line into variable.
    Debug.Print TextLine
    Loop
    Close #1


End Sub

Часть меня надеялась, что это даст «Джон Смит». Я видел некоторые решения, помещающие весь документ в текстовый файл. Есть ли способ, где я могу как-то разграничить данные? Я хотел бы иметь возможность изолировать одну строку и удалить ее.