https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=2033#CommentId17752
投稿者 るきお  () 投稿日時 2007/9/2 05:41:00
'▼Wordのドキュメントから文章を取得 
        Dim WordApp As New Microsoft.Office.Interop.Word.Application 
        Dim Doc As Microsoft.Office.Interop.Word.Document 
        Dim FileName As String = "C:\Test\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 & "を作成しました。")
0