Como guardar o anexo atual ou cada página como um documento do Word separado?

AutorXiaoyang Data de Modificação2024-09-18

Se o seu documento do Word tiver várias páginas, poderá precisar de guardar apenas a página atual como um novo ficheiro do Word. O método habitual passa por copiar e colar o conteúdo dessa página para um novo documento e guardá-lo. Contudo, este artigo apresenta-lhe métodos mais eficientes para guardar a página atual — ou cada página — como documentos separados a partir de um único ficheiro do Word.

Salvar o anexo atual página como novo documento do Word com código VBA

Guarde cada página como documentos do Word separados com Kutools para Word

Salvar o anexo atual página como novo documento do Word com código VBA

O código VBA seguinte permite-lhe guardar o conteúdo da página atual num novo ficheiro do Word. Siga estes passos:

Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

Clique em Inserir>Módulo, e cole o seguinte código na janela do Módulo:

Sub SaveCurrentPageAsANewDoc()
    Dim xDoc As Document
    Dim xNewDoc As Document
    Dim xFileName As String
    Dim xFolderPath As Variant
    Dim xDlg As FileDialog
    Set xDoc = ActiveDocument
    xFileName = InputBox("Enter file name here: ", "KuTools for Word")
    If xFileName = "" Then Exit Sub
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFolderPath = xDlg.SelectedItems(1)
        xDoc.Bookmarks("\Page").Range.Select
        Selection.Copy
        Set xNewDoc = Documents.Add
        Selection.Paste
        xNewDoc.SaveAs xFolderPath & "\" & xFileName & ".docx"
        xNewDoc.Close
    End If
End Sub

Prima F5 para executar este código. Na caixa de diálogo que surge, introduza um nome para o ficheiro gerado. Veja a captura de ecrã:
Clique em OK, e na segunda caixa de diálogo Procurar, selecione onde o Arquivo gerado será guardado.
Clique em OK e o conteúdo da página atual será guardado como um novo ficheiro do Word. Pode visualizar o resultado na pasta selecionada.

Guarde cada página como documentos do Word separados com Kutools para Word

Se pretender guardar cada página do documento inteiro como ficheiros separados, a função Kutools para Word’s Dividir pode ajudá-lo.

Após instalar o Kutools para Word, siga estes passos:

Clique em KUTOOLS PLUS > Dividir. Veja a captura de ecrã:
Na caixa de diálogo Dividir Documento:
1. Selecione Página na lista suspensa Dividir por.
2. Clique no botão para escolher uma pasta onde guardar o ficheiro gerado.
3. Especifique, conforme necessário, o prefixo dos novos ficheiros guardados.
Após concluir as definições, clique em OK para iniciar a divisão. Todas as páginas do documento do Word serão guardadas como ficheiros separados na pasta especificada. Veja a captura de ecrã:

As Melhores Ferramentas de Produtividade para o Office

Kutools para Word – Potencie a sua experiência no Word com mais de 100 funcionalidades extraordinárias!

🤖Funcionalidades do KUTOOLS AI: Assistente de IA / Assistente em Tempo Real / Super Polir (Preservar Formato) / Super Traduzir (Preservar Formato) / Redação por IA / Revisão por IA…

📘Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Vários Formatos (PDF, TXT, DOC, HTML...) / Conversão em Lote para PDF...

✏Edição de Conteúdos: Localizar e Substituir em Lote em Múltiplos Ficheiros / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela em Texto...

🧹Limpeza sem Esforço: remova facilmente Espaços Extra, Quebras de Secção, Caixas de Texto e Hiperligações. Para mais ferramentas de remoção, aceda ao grupo Remover...

➕Inserções Criativas: Insira Separadores de Milhares, Caixa de Seleção, Botão de Rádio, Código QR, Código de Barras ou Múltiplas Imagens — descubra mais no grupo Inserir...

🔍Seleções Precisas: Selecione com precisão Páginas Específicas, Tabelas, Formas e Parágrafo de Título. Melhore a navegação com mais funcionalidades de seleçãofeatures ......

⭐Melhorias Estrela: Navegar para Qualquer Localização / Inserir Automaticamente Texto Repetitivo / Alternar entre Documentos do Windows / 11 Conversão Ferramentas de...

🌍Suporta mais de 40 idiomas: Utilize o Kutools na sua língua preferida – disponível em inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Separadores Kutools for Word na faixa de opções

Transferência Gratuita Comprar Agora Saber Mais

Office Tab– Traz a interface com separadores para o Office, tornando o seu trabalho muito mais fácil

Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
Abra e crie múltiplos documentos em novos separadores da mesma janela, em vez de em novas janelas.
Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato por dia!

Transferência Gratuita Comprar Agora Saber Mais

✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!

Inclui Office Tab Pro·Kutools para Excel·Kutools para Outlook·Kutools para Word·Kutools for PowerPoint

📦 Obtenha todas as 5 ferramentas num único conjunto | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economizar Tempo e potencie imediatamente a produtividade

⬇️ Transferir Agora 🎁 Comprar o Conjunto Completo 📖 Saber Mais

As Melhores Ferramentas de Produtividade para o Office

Kutools para Word– Ferramentas 100+ para o Word

🤖KUTOOLS AI Funcionalidades:Assistente de IA/Assistente em Tempo Real/Super Polir/Super Traduzir/Redação por IA/Revisão por IA
📘Domínio de Documentos:Dividir Páginas/Mesclar Documentos/Conversão em Lote para PDF
✏Edição de Conteúdos:Localizar e Substituir em Lote/Redimensionar Todas as Imagens
🧹Limpeza sem Esforço:Remover Espaços Extra/Remover Quebra de Seção
➕Inserções Criativas:Inserir Separadores de Milhares/Inserir Caixa de Seleção/Criar Códigos QR
🌍Suporta mais de 40 idiomas: O Kutools fala a sua língua – com suporte a mais de 40 idiomas!

Transferência Gratuita Comprar Agora Saber Mais sobre o Kutools