Wordファイルを読みこんで、テキストボックスに表示させるには？ (ID:125370)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 テキストの書いてるファイルをVBで開き、暗号化するプログラムを作っています。 .txtのファイルは正常に読込、テキストボックスに表示することができるのですが Wordのファイルは正常に読み込めず、文字化けしてしまいます。 最初、1Byte文字のみを対象としたプログラムだったので、 どこかにまだ、byte型変数やBinaryなど使ってると重いしらべたのですが 使ってなく、原因がわかりません・・。 よかったら知恵をおかしください！お願いします ファイルオープンの時点で文字化けするので、「ファイルを開く」のコードが間違っていると思われます。 そのコードを下に書きます。 Private Sub cmdOpen_Click() '変数の定義 Dim TargetFileName As String Dim readData As String Dim temp As String '読み込むファイル名の取得 If Right(Dir1.Path, 1) = "\" Then TargetFileName = Dir1.Path & txtTargetFile.Text Else TargetFileName = Dir1.Path & "\" & txtTargetFile.Text End If 'データの読み込み readData = "" Open TargetFileName For Input As #1 Do Until EOF(1) 'データを１行ずつ読み込む Line Input #1, temp readData = readData & temp Loop Close #1 'データを表示する txtDisplayBox.Text = readData End Sub