ConvertWordDocument – Convert a Microsoft Word DOC file to another format

ConvertWordDocument – Convert a Microsoft Word DOC file to another format

' Convert a Word-compatible format to an other format.' Parameters:'  - sFileName is the file to convert'  - wdFormat is the destination file's format'  - sNewFileName is the destination file. If not specified the the routine ' will use the sFileName's path & name'' NOTE: requires the Microsoft Word type library'' Example: convert from DOC to HTML'   ConvertWordDocument("C:DocumentsMyWordFile.doc", wdFormatHTML)Function ConvertWordDocument(ByVal sFilename As String, _    Optional ByVal wdFormat As WdSaveFormat = wdFormatText, _    Optional ByVal sNewFileName As String) As Boolean    Dim iPointer As MousePointerConstants    Dim sExtension As String    Dim oWord As New Word.Application    On Error GoTo ErrHandler    iPointer = Screen.MousePointer        ' open the file    oWord.Documents.Open sFilename, False, False, False, , , , , , _        wdOpenFormatAuto        ' the destination filename if sFileName is sNewFileName is missing    If Len(sNewFileName) = 0 Then        sNewFileName = sFilename        ' remove the actual extension ad add the one specified by sExtension        If InStr(sNewFileName, ".") > 0 Then sNewFileName = Left$(sNewFileName, _            InStr(sNewFileName, ".") - 1)        ' set the extension for the selected destination format        sExtension = Switch(wdFormat = wdFormatDocument, ".doc", _            wdFormat = wdFormatDOSText, ".txt", _            wdFormat = wdFormatDOSTextLineBreaks, ".txt", _            wdFormat = wdFormatEncodedText, ".txt", wdFormat = wdFormatHTML, _            ".htm", wdFormat = wdFormatRTF, ".rtf", wdFormat = wdFormatTemplate, _            ".doc", wdFormat = wdFormatText, ".dot", _            wdFormat = wdFormatTextLineBreaks, ".txt", _            wdFormat = wdFormatUnicodeText, ".txt")        ' add the extension to the file name        sFilename = sFilename & sExtension    End If        ' save the file    oWord.ActiveDocument.SaveAs sNewFileName, wdFormat, , , False        ' close Word    oWord.Quit    Set oWord = Nothing    ConvertWordDocument = True    ErrHandler:    ' restore the original mouse pointer    Screen.MousePointer = iPointerEnd Function

See also  How to Create and Deploy QR Codes Online: A Comprehensive Guide

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist