ワード文書から読み込んだ行を正確に表示しない

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関数は、私の単純な文字列のそれぞれと奇妙な文字列を表示します。コードは3の代わりに4つの文字列を見つけます。

私が基本的にやりたいことは、現在の開いているドキュメントを1行ずつ読み込みます。余分な時間を空けることができる場合は10行で10行を読み込み、 s）を一時文字列に変換します。

Answer 1

する必要があるのは、Word Automationを使用することです。 Wordには多くのメタタグやその他の書式が含まれているため、ファイルにテキストファイルとしてアクセスすることはできません。

Interop Class Namespaceとthis for an exampleをご覧ください。

編集：これは.NET用です。 VB6用のWord Automationもありますが、この種のことを覚えています。このために参照を追加する必要があります。

新しい編集：実際に私はVB6でWord Automationのかなり良いサイトを見つけました。 Click this link。また、thisも便利です。