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

Question

Sub test()
    Dim TextLine As String
    Open "E:PROJECTSCLIENTSVINCIMACROSvn_macrotest.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

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

在word文档中，我有这些简单的字符串:love computer science，每个字符串用新行分隔。

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

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

Answer 1

您需要做的是使用Word自动化。由于Word包含许多元标记和其他格式，因此无法将该文件作为文本文件访问。

看一下互操作类命名空间和这个例子。

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

新编辑:实际上我找到了一个用VB6实现Word自动化的很好的网站。点击这个链接。此外，您可能还会发现这很有用。