Convertendo um documento padrão WORD para outro formato.

Quer converter um documento padrão Word para outro formato ? 

1-) Inicie um novo projeto no VB e no formulário padrão insira um botão de comando e duas caixas de texto, conforme o layout abaixo:

2-) Faça uma referência a biblioteca : Microsoft Word object library

3-) Insira o seguinte código no formulário:

Function ConverteWordDocumento(ByVal sArquivoNome As String, Optional ByVal wdFormato As WdSaveFormat = wdFormatText, Optional ByVal sNovoArquivo As String) As Boolean

Dim iPointer As MousePointerConstants
Dim sExtensao As String
Dim oWord As New Word.Application

On Error GoTo Trataerro
iPointer = Screen.MousePointer

' abre o arquivo
oWord.Documents.Open sArquivoNome, False, False, False, , , , , , _
wdOpenFormatAuto

' o nome do arquivo de destino se nao for informado
If Len(sNovoArquivo) = 0 Then
    sNovoArquivo = sArquivoNome
    ' remove a extensao atual e inclue a definida
   If InStr(sNovoArquivo, ".") > 0 Then sNovoArquivo = Left$(sNovoArquivo, InStr(sNovoArquivo, ".") - 1)
     ' define a extensão para a selecionada na conversao
        sExtensao = Switch(wdFormato = wdFormatDocument, ".doc", _
        wdFormato = wdFormatDOSText, ".txt", _
        wdFormato = wdFormatDOSTextLineBreaks, ".txt", _
        wdFormato = wdFormatEncodedText, ".txt", wdFormato = wdFormatHTML, _
        ".htm", wdFormato = wdFormatRTF, ".rtf", wdFormato = wdFormatTemplate, _
        ".doc", wdFormato = wdFormatText, ".dot", _
        wdFormato = wdFormatTextLineBreaks, ".txt", _
        wdFormato = wdFormatUnicodeText, ".txt")
      ' adiciona a extensao ao arquivo
      sArquivoNome = sArquivoNome & sExtensao
   End If

  ' salva o arquivo
  oWord.ActiveDocument.SaveAs sNovoArquivo, wdFormato, , , False

  ' fecha o word
  oWord.Quit
  Set oWord = Nothing

ConverteWordDocumento = True

Trataerro:
' restaura o ponteiro original do mouse
Screen.MousePointer = iPointer
End Function

A função ConverteWordDocumento possui os seguintes parâmetros:

 - sArquivoNome o arquivo converter
 - wdFormato o formato do arquivo de destino
 - sNovoArquivo o arquivo de destino

Para fazer a conversão basta chamar a função passando os parâmetros, assim:
 ConverteWordDocumento("C:\teste\ArquivoWord.doc", wdFormatHTML)

Você pode salvar um arquivo Doc nos formatos : TXT , HTML  , DOT e RTF .

4-) Agora para basta usar o código abaixo para chamar a função passando os parâmetros informados na caixa de texto: 

Private Sub Command1_Click()

' chama a funcao passando os parametros
If ConverteWordDocumento(Text1.Text, wdFormatText, Text2.Text) Then
   MsgBox " Arquivo convertido com sucesso ! "
End If

End Sub

Na chamada acima estamos convertendo um arquivo doc para o formato texto :  - wdFormatText

Até mais ...