Neste artigo, existem 3 maneiras rápidas de converter em lote documentos do Word em arquivos docx e vice-versa.
Geralmente é bem conhecido que versões diferentes do Word salvam arquivos em tipos diferentes, com extensões como .doc ou .docx. No trabalho em equipe, é provável que membros diferentes usem versões diferentes do Word. Consequentemente, isso leva à dificuldade de abrir e editar arquivos compartilhados. Por exemplo, você não pode abrir arquivos docx no Word com versões anteriores a 2007. Além disso, você pode abrir arquivos doc no Word com versões de 2007 e superiores, mas algumas das opções podem ser restritas, causando transtornos no edição.
Assim, é de grande necessidade encontrar maneiras de converter entre arquivos Word doc e docx, melhor se conseguir o processamento em lote.
Método 1: Conversão em lote de documentos do Word em arquivos Docx
- primeiro e primeiroost, organize todos os arquivos a serem processados em uma pasta de arquivos.
- Em seguida, abra o Word e pressione “Alt+F11” para abrir o editor VBA.
- Agora clique no projeto “Normal” e clique em “Inserir” depois dele.
- Em seguida escolha “Módulo” para inserir um novo módulo no projeto.
- Em seguida, clique duas vezes no módulo para abrir a área de edição e cole os seguintes códigos:
Sub TranslateDocIntoDocx() Dim objWordApplication As New Word.Application Dim objWordDocument As Word.Document Dim strFile As String Dim strFolder As String strFolder = "E:\Temp\" strFile = Dir(strFolder & "*.doc", vbNormal) While strFile <> "" Com objWordApplication Defina objWordDocument = .Documents.Open(FileName:=strFolder &strFile, AddToRecentFiles:=False, ReadOnly:=True, Visible:=False) Com objWordDocument .SaveAs FileName:=strFolder & Replace(strFile, "doc ", "docx"), FileFormat:=16 .Close End With End With strFile = Dir() Wend Set objWordDocument = Nothing Set objWordApplication = Nothing End Sub
- Por fim, clique no botão “Executar”.
Segundos depois, você descobrirá que todos os arquivos doc foram convertidos em arquivos docx.
Nota:
Na linha de código “strPasta = “E:\Temp\””, você deve substituir o "E:\Temp.” com a localização da sua pasta de arquivos.
Método 2: Converter em lote arquivos Word Docx em arquivos Doc
- Para% starPara desativar, coloque todos os arquivos docx em uma pasta de arquivo.
- Da mesma forma, pressione “Alt+ F11” para abrir o editor VBA.
- Em seguida, siga o mesmo caminho do método 1 para inserir um novo módulo e abri-lo.
- Em seguida cole os seguintes códigos lá:
Sub TranslateDocxIntoDoc() Dim objWordApplication As New Word.Application Dim objWordDocument As Word.Document Dim strFile As String Dim strFolder As String strFolder = "E:\Temp\" strFile = Dir(strFolder & "*.docx", vbNormal) While strFile <> "" Com objWordApplication Defina objWordDocument = .Documents.Open(FileName:=strFolder & strFile, AddToRecentFiles:=False, ReadOnly:=True, Visible:=False) Com objWordDocument .SaveAs FileName:=strFolder & Replace(strFile, " docx", "doc"), FileFormat:=0 .Close End With End With strFile = Dir() Wend Set objWordDocument = Nothing Set objWordApplication = Nothing End Sub
- Por fim, pressione o botão "Executar" para start convertendo.
Ainda assim, você deve se lembrar de mudar “E:\Temp.” na linha de código “strPasta = “E:\Temp\”” para o caminho real da pasta do arquivo.
Método 3: Use o modo “Salvar como”
- Em primeiro lugar, organize todos os arquivos doc ou docx em uma pasta.
- Em segundo lugar, pressione “Ctrl” e clique para selecionar todos os arquivos.
- Em seguida, clique com o botão direito e escolha “Salvar como” no menu.
- Agora haverá várias janelas “Salvar como” aparecendo, então escolha doc ou docx para o tipo de arquivo de acordo.
- Por fim, clique em “Salvar” para fechar todas as janelas.
No entanto, devido à variedade de versões do Windows ou do Office, a opção “Salvar como” pode não estar disponível no menu contextual. Portanto, é altamente recomendável seguir as 2 formas macro para conduzir a tarefa.
Cuide da integridade de seus arquivos
Embora tenhamos apresentado 3 maneiras de converter entre arquivos Word doc e docx, esses arquivos são altamente suscetíveis a corrupções devido a erros humanos ou manuseio incorreto. Portanto, você deve fazer backup com freqüência e também manter um Utilitário de reparo de problemas em documentos do Word em caso de ocorrência de danos.
Introdução do autor:
Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo Ferramenta de reparo de erros de dados do Excel e a pdf reparar produtos de software. Para mais informações visite www.datanumen.com
运行一直提示文件为只读,怎么解决
O método 1 funcionou perfeitamente – obrigado
1
Este site me foi recomendado pelo meu primo. Não tenho certeza se isso post foi escrito por ele, pois ninguém mais sabe tão detalhadamente sobre o meu problema. Você é maravilhoso! Obrigado!
Certifique-se de adicionar o símbolo de barra invertida “\” no final do caminho do arquivo. Copiei acidentalmente o caminho da minha pasta e esqueci de adicionar a barra invertida. Isso resolveu meu problema.
O Método Um não funciona. Tinha 6 arquivos .doc. Apenas um foi convertido para .docs e esse mesmo arquivo .doc também criou um arquivo .docxx. Macro mostra ainda em execução, mas não fazendo nada.
O RECURSO SALVAR COMO NÃO FUNCIONA.