Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

Tip of the Day
Language: VB5,VB6
Expertise: Intermediate
Apr 28, 2001



Building the Right Environment to Support AI, Machine Learning and Deep Learning

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:\Documents\MyWordFile.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, , , , , , _
    ' 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
    Set oWord = Nothing

    ConvertWordDocument = True
    ' restore the original mouse pointer
    Screen.MousePointer = iPointer
End Function

Marco Bellinaso
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date