https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=2033#CommentId17753
投稿者 すさん  () 投稿日時 2007/9/2 07:32:00
こんにちは。 
早速お返事いただいて、コードまで書いていただき（＿＿；すごい感謝しています。どちらも試してみたのですが、エラーになってしまい、いろいろウェブを検索してみたのですが、糸口がみつからず・・・戻ってきました。 
 
Microsoft.Office.Interop.Word._ApplicationとMicrosoft.Office.Interop.Word.Documentなのですが、「型""が定義されていません」と出ます。これは私のVB 2005の設定で何かが間違っているのでしょうか。 
いまのところほぼコピーしてファイル名を変えただけですが、2番目のコードはこのようになっています。 
 
Public Class Form1 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        '▼Wordのドキュメントから文章を取得  
        Dim WordApp As New Microsoft.Office.Interop.Word._Application 
        Dim Doc As Microsoft.Office.Interop.Word.Document 
        Dim FileName As String = "C:\Documents and Settings\jennifer\Test.docx" 
        Dim Contents As String 
 
        Doc = WordApp.Documents.Open(FileName) 
 
        Contents = Doc.Range.Text 
 
        Doc.Close() 
        WordApp.Quit() 
 
        '▼HTMLに保存  
        Dim HTMLFileName As String = IO.Path.ChangeExtension(FileName, ".htm") 
        Dim Writer As New IO.StreamWriter(HTMLFileName, False) 
 
        Writer.WriteLine("<HTML>" & vbNewLine) 
        Writer.WriteLine("<HEAD>" & vbNewLine) 
        Writer.WriteLine("<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & vbNewLine) 
        Writer.WriteLine("</HEAD>" & vbNewLine) 
        Writer.WriteLine("<BODY>" & vbNewLine) 
        Contents = Contents.Replace("<", "&lt;") 
        Contents = Contents.Replace(">", "&gt;") 
        Writer.WriteLine(Contents & vbNewLine) 
        Writer.WriteLine("</BODY></HTML>" & vbNewLine) 
 
        Writer.Close() 
 
        MsgBox(HTMLFileName & "を作成しました。") 
    End Sub 
End Class 
 
一応、VBがメインのお仕事ではなく、会社側からはいい反応が来ているようなのですが・・・。＊＿＿
0