Outro Script para converter arquivos .RTF para .docx ou .pdf

[pedroch]

Olá, sou novo no fórum e sou leigo em programação.

 

Estou precisando criar algum programa executável (de preferência no bloco de notas ou vba) que converta todos os arquivos do word da pasta salvos em .RTF para .docx ou .pdf de modo que não seja necessário abrir um por um e fazer manualmente, ou seja, algum programa/executável que faça essa conversão de modo automático em massa. Sei que existem websites e programas na internet, porém necessito disso para um projeto da empresa e os programas de terceiros são bloqueados pelo sistema, por isso fico restrito a codificar no bloco de notas, por exemplo.

 

Agradeço desde já,

[.if]

Dica: instale um programa de impressora pdf e a deixe como padrão, selecione os arquivos, clique com a direita, selecione imprimir... já era.

1 hora atrás, pedroch disse:

algum programa/executável que faça essa conversão de modo automático em massa

 

[ricardo_br]

@.if Isso vai converter todos os arquivos de uma vez?

 

@pedrochSe você tem o Word instalado tente um batch em combinação com o wordconv.exe ...

[.if]

38 minutos atrás, ricardo_br disse:

vai converter todos os arquivos de uma vez?

Foi uma maneira intuitiva que tive pra usar apenas modo gráfico. De fato deve imprimir sim em pdf (opção que o autor deu). Há de se pesquisar as opções de impressão da impressora pdf (eu uso a pdf creator)... pode ser que ela ajude na automação... de novo.. foi só 1 norte.

 

Dei uma olhadela rápida em wordconv.exe command line ... não consegui ver rapidamente uma opção que atende o garoto. Mas sim.. com tempo vale a pena pesquisar... Vai quê... Também vale pesquisar sobre a ferramenta "macro" que tem no pacote office

[ricardo_br]

Achei um que converte, se chama Convert Doc. Criei 5 rtf aqui e mandei  converter para docx e aparentemente deu tudo certo.

 

 

P.S: Uppps, esqueci do detahle "Programas de terçeiros são bloqueados pela empresa"....

[Basole]

@ricardo_br segue sugestão em VBA.

 

Sub BatchConvertToDocx()

    Application.ScreenUpdating = False

    Dim strFolder As String, strFile As String, wdDoc As Document

    strFolder = GetFolder

    If strFolder = "" Then Exit Sub

    strFile = Dir(strFolder & "\*.rtf", vbNormal)

    While strFile <> ""

      Set wdDoc = Documents.Open(FileName:=strFolder & "\" & strFile, AddToRecentFiles:=False, Visible:=False)

      With wdDoc

        .SaveAs2 FileName:=Left(.FullName, InStrRev(.FullName, ".")) & "docx", FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=False

        .Close wdDoNotSaveChanges

      End With

      strFile = Dir()

    Wend

    Set wdDoc = Nothing

    App

 

   Application.ScreenUpdating = True

End Sub

 

Function GetFolder() As String

    Dim oFolder As Object

    GetFolder = ""

    Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0)

    If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path

    Set oFolder = Nothing

End Function.        

 

fonte : Converter Rtf para word