String 显示从word文档读取的行不准确

在我读取的同一个文件中，作为宏

在word文档中，我有几个简单的字符串：love computer science，每个字符串之间用新行分隔

当我尝试运行代码时，msgbox函数会为我的每个简单字符串显示奇怪的字符串，并显示一个额外的字符串。代码将查找4个字符串，而不是3个

---

我基本上想做的是，逐行读取当前打开的文档，或者如果您可以抽出一些额外的时间，则可以逐行读取10行，然后将文档中显示的确切行插入临时字符串。

您需要做的是使用Word Automation。您不能以文本文件的形式访问该文件，因为Word包含许多元标记和其他格式

看一看，看一看

编辑：对不起，这是针对.NET的。还有VB6的自动化，我记得以前做过类似的事情。您需要为此添加引用

新编辑：事实上，我发现了一个非常好的网站，用VB6实现Word自动化。此外，您还可能会发现它很有用

Sub test()
    Dim TextLine As String
    Open "E:\PROJECTS\CLIENTS\VINCI\MACROS\vn_macro\test.docx" For Input As #1

    Do While Not EOF(1)    ' Loop until end of file.
        Line Input #1, TextLine    ' Read line into variable.
        MsgBox TextLine    ' Print to the Immediate window.
    Loop
    Close #1    ' Close file.
End Sub