Note: The other languages of the website are Google-translated. Back to English
English English

Como converter em lote arquivos de formato .doc para .docx no Word?

Supondo que você tenha recebido alguns documentos do Word no formato 97-2003, como você pode converter em lote todos esses documentos no formato .doc para o formato .docx de uma vez? Este artigo mostrará dois métodos para resolver esse problema.

Converta em lote arquivos de formato .doc para .docx com código VBA
Converta em lote arquivos de formato .doc para .docx com Kutools para Word


Converta em lote arquivos de formato .doc para .docx com código VBA

Esta seção mostrará o código VBA para converter todos os documentos no formato .doc em uma pasta especificada para documentos .docx de uma só vez. Faça o seguinte.

1. Reúna todos os documentos no formato .doc que você converterá para .docx em uma pasta especificada.

2. aperte o outro + F11 chave para abrir o Microsoft Visual Basic para Aplicações janela.

3. Na janela, clique em inserção > Módulo. Em seguida, copie o código VBA abaixo para a janela Módulo.

Código VBA: converter em lote todos os documentos no formato .doc para .docx em uma determinada pasta

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20181128
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.doc", vbNormal)
    While xFileName <> ""
        Documents.Open FileName:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs xFolder & Replace(xFileName, "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub

4. aperte o F5 chave para executar o código. Na abertura Procurar janela, selecione a pasta que contém os documentos no formato .doc e clique OK. Veja a imagem:

Em seguida, todos os documentos no formato .doc são convertidos em documentos .docx imediatamente, conforme mostrado na imagem abaixo.


Converta em lote arquivos de formato .doc para .docx com Kutools para Word

Um utilitário útil será recomendado nesta seção. Com o Doc / Docx utilidade de Kutools for Word, você pode converter facilmente todos os documentos no formato .doc em uma pasta em documentos .docx. Por favor, tente o seguinte.

Kutools for Word : Com mais de 100 suplementos úteis do Word, grátis para experimentar sem limitação em 60 dias.

1. Reúna todos os documentos no formato .doc em uma pasta especificada e clique em Kutools Plus > Doc / Docx. Veja a imagem:

2. No Conversor de formato de documento caixa de diálogo, você precisa fazer o seguinte:

2.1) Selecione a pasta que contém documentos em formato .doc no Pasta do arquivo de origem seção;
2.2) Selecione Converter doc para docx de Converter formato lista suspensa;
2.3) Por padrão, o Caminho de destino igual à origem caixa está marcada. Se você deseja colocar todos os documentos .docx convertidos na mesma pasta, apenas mantenha esta opção selecionada;
Se você deseja separar os documentos .docx e os documentos .doc de origem, desmarque a Caminho de destino igual à origem caixa e selecione uma nova pasta para salvar os documentos .docx no salvar a caixa;
2.4) Clique no Início botão. Veja a imagem:

3. Em seguida, uma caixa de diálogo aparecerá para informar quantos documentos foram convertidos com sucesso, clique no OK botão e feche o Conversor de formato de documento janela.

Agora, todos os documentos no formato .doc são convertidos em arquivos .docx. Veja a imagem:

Se você deseja ter um teste gratuito deste utilitário, vá para baixe gratuitamente o software primeiro e, em seguida, aplique a operação de acordo com as etapas acima.


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (17)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Parabéns! Obrigado por compartilhar. Isso foi extremamente útil. Eu tinha mais de 50 documentos que precisavam ser convertidos. Levou apenas um toque mais de 000 horas para fazê-los todos. Grande ajuda. Eu usei a opção 39
Este comentário foi feito pelo moderador no site
Abra o documento do Word que você deseja transformar em um arquivo PDF. Se você deseja importar apenas ... ConvertOnlineFree - conversas individuais e em lote de documentos do Word para PDF ... PDFOnline - conversor de Word (doc, docx e txt) para PDF gratuito.

Bom blog, o artigo que você compartilhou é bom. Este artigo é muito útil. Meu amigo me sugere usar este blog.

https://customersurveyinfo.com
Este comentário foi feito pelo moderador no site
Olá, obrigado por compartilhar.
Este comentário foi feito pelo moderador no site
Coisas interessantes para ler. Mantem.
Este comentário foi feito pelo moderador no site
Olá,
Fico feliz em encontrar esta informação útil Obrigado por compartilhar este artigo incrível.
Este comentário foi feito pelo moderador no site
Oi....Oi, Este blog contém informações muito técnicas, é um dos melhores blogs que eu tenho. Muito interessante e descreve de uma forma muito fácil.
Este comentário foi feito pelo moderador no site
Olá senhor,
Eu amo com este post.Eu realmente aprecio por este site.Sua informação é tão boa e valiosa.Adorável idéia e conceito para compartilhar este site.
Este é um site incrível. Este post é bom.
Obrigado por compartilhar
Este comentário foi feito pelo moderador no site
OláNice post .. Continue compartilhando.Obrigado
Este comentário foi feito pelo moderador no site
Este é um artigo realmente perspicaz, achei muito útil e informativo
Este comentário foi feito pelo moderador no site
Obrigado por compartilhar esta informação útil.
Este comentário foi feito pelo moderador no site
melhor empresa de design gráfico na índia
Projetar é um ofício de comunicar palavras como articulações. Visuais importam mais do que palavras no campo avançado.
Os especialistas em design recomendam que as ilustrações sejam mais simples de lembrar do que as palavras,
e essa é a razão pela qual o design e os gráficos do site desempenham um trabalho imperativo.

Este comentário foi feito pelo moderador no site
Obrigado por compartilhar
Este comentário foi feito pelo moderador no site
Ótimas informações Muito útil obrigado por compartilhar.

Farmtrac 60
Este comentário foi feito pelo moderador no site
Boa ferramenta, mas eu tenho o problema, que não consigo converter arquivos DOC (escritos em maiúsculas!) em arquivos docx.
Funciona com arquivos doc.
Este comentário foi feito pelo moderador no site
Oi,
O código a seguir pode ajudar a converter tanto doc. e DOC. arquivos em arquivos docx. Por favor, tente. Obrigado pelo seu feedback!

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20220506
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.doc", vbNormal)
    While xFileName <> ""
        Documents.Open FileName:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs xFolder & Replace(VBA.LCase(xFileName), "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub
Este comentário foi feito pelo moderador no site
Dobrý den,
já bych potřeboval, ale script VBA který por fungoval včetně podsložek. Umíte někdo prosím upravit i tento skript? Děkuji.

ENG:
Dia bom,
Eu precisaria de um script VBA que funcionasse incluindo subpastas. Alguém pode editar esse script também? Obrigada.
Este comentário foi feito pelo moderador no site
Olá Daniel Benes,
Para incluir subpastas, tente o seguinte código VBA.
Depois de adicionar o código, vá para o Ferramentas guia, clique em Referências, na abertura Referências - Projeto caixa de diálogo, verifique a Tempo de execução de scripts da Microsoft e, em seguida, clique no OK botão para salvar as alterações. Veja a seguinte captura de tela:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
Depois disso, pressione o F5 chave para executar o código.

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20221124
  Dim xDlg As FileDialog
  Dim xFldPath As Variant
  Dim xFileName As String
  On Error Resume Next
  Application.ScreenUpdating = False
  Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
  If xDlg.Show <> -1 Then Exit Sub
  xFldPath = xDlg.SelectedItems(1) + "\"
  Call ListAllFiles(xFldPath)
  Application.ScreenUpdating = True
End Sub

Function ListAllFiles(FldPath)
  Dim xFSO As FileSystemObject
  Dim xFolder As Folder
  Dim xSubFolder As Folder
  Dim xNewName As String
  On Error Resume Next
  xFileName = Dir(FldPath & "*.doc", vbNormal)
  While xFileName <> ""
    xNewName = VBA.Left$(xFileName, VBA.InStrRev(xFileName, "doc") - 1) & "docx"
    Documents.Open FileName:=FldPath & xFileName, _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
    ActiveDocument.SaveAs FldPath & xNewName, wdFormatDocumentDefault
    ActiveDocument.Close
    xFileName = Dir()
  Wend
  Set xFSO = CreateObject("Scripting.FileSystemObject")
  Set xFolder = xFSO.GetFolder(FldPath)
  For Each xSubFolder In xFolder.SubFolders
    Call ListAllFiles(xSubFolder.Path + "\")
  Next
  Set xFSO = Nothing
  Set xFolder = Nothing
End Function
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos