Question

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

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

在单词文档中，我有这些简单的字符串：爱计算机科学，每个都用新的行分隔。

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

我基本上想要做的是，逐行读取当前打开的文档，如果可以节省一些额外的时间，则读取10行10行，并将文档中显示的确切行插入临时字符串

Answer 1

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

查看Interop Class Namespace和this for an example。

编辑：对不起，这是针对.NET的。还有VB6的Word Automation，我记得在当天做过这种事情。您需要为此添加参考。

新编辑：其实我用VB6为Word Automation找到了一个非常好的网站。 Click this link。此外，您还可能会发现this有用。

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

1 个答案: