DOBON.NET DOBON.NETプログラミング掲示板過去ログ

Word文章(変更履歴付)をテキストに変換

環境/言語:[VB.NET2003 WindowsXP Word2000]
分類:[.NET]

いつも参考にさせていただいています

VB.NET Word文章(変更履歴付)をテキストに変換したい
誰か、情報くださいお願いします

補足ですが、VB6の環境ではできておりました
現在VB.NETに移行しながら勉強中です
すみませんがよろしくお願いします
参考になるかはわかりませんが、VB6で使用したソース(ベース)です


以下 簡単ですがソースとなります
'Microsoft word 9.0 Object Library を参照設定する

Private Sub Command1_Click(Index As Integer)

Dim wdApp As New Word.Application
Dim wdDoc As Word.Document
Dim strTemplate As String

Set wdDoc = wdApp.Documents.Open(App.Path & "\TEST.doc")

'テキストファイルを作成
wdDoc.SaveAs App.Path & "\TEST.txt", wdFormatText

wdDoc.Close
Set wdDoc = Nothing
wdApp.Quit
Set wdApp = Nothing

MsgBox "ファイルを作成しました"

End Sub
こんにちわ。

こんな感じで出来ましたが、如何でしょうか?

Private Sub btnSaveAsText_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSaveAsText.Click
  Dim wdApp   As Word.Application
  Dim wdDoc   As Word.Document
  Dim nFilePath As String

  ' 新しいインスタンスを生成
  wdApp = New Word.Application()

  ' ファイルパスを設定
  nFilePath = Application.StartupPath & "\Test.doc"

  Try ' Microsoft Word ファイルを開いて保存
    wdDoc = wdApp.Documents.Open(CType(nFilePath, Object))
    wdDoc.SaveAs(CType(nFilePath & ".txt", Object), Word.WdSaveFormat.wdFormatText)
    wdDoc.Close()
    wdApp.Quit()
    MessageBox.Show("どうやら正常終了したみたいです。")
  Catch ex As Exception
    MessageBox.Show("どうやら失敗したみたいです。")
  End Try
End Sub
java.lang.Nullpoさん

こんにちわ レスありがとうございます
完璧っす

java.lang.Nullpoさん 返信が遅くなりましてすみませんでした
ありがとうございました
解決済み!

DOBON.NET | プログラミング道 | プログラミング掲示板