Hazır Script – Hazır Kod

Asp ile word dosyalarinin htm formatina cevrilmesi

Asp ile word dosyalarini htmle cevirme gerekirse pratik bir cozum onerisi

codeDivStart()

'

' Server uzerince ms word bulunmasi gerekir  )

' RTF ve DOC formatlari icin calisiyor

' RTFFileNAme ile verilen dosyayi cHtmlFile ile verilen dosyaya kaydeder

' ------------------------------------------------------------------------

Public Function RTF2HTML(cRtfFile, cHtmFile)

   Dim wApp

   dim fileObj

   Set fileObj = CreateObject("Scripting.FileSystemObject")

   if fileOBJ.FileExists(cRTFFile) = False Then

      RTF2HTML = FALSE

   Else

      Set wApp = CreateObject("Word.Application")

      wApp.Visible = True

      wApp.ShowMe()

      wApp.Documents.Open(cRTFFile)

      wApp.Documents(1).Activate

      call wApp.Documents(1).saveas(cHtmFile,8)

      call wApp.Documents.close()

      wApp.Quit

      RTF2HTML = TRUE

   End if

   Set wApp = Nothing

   Set fileObj = Nothing

End Function