Como salvar a página atual ou cada página como um documento do Word separado?

Se houver várias páginas em seu documento do Word, agora, você só precisa salvar apenas uma página atual como um novo arquivo do Word. Normalmente, você pode copiar e colar os dados da página atual em um novo arquivo do Word e salvá-lo. Mas, neste artigo, vou falar sobre como salvar a página atual ou cada página como documentos separados de um arquivo do Word.

Salvar a página atual como um novo documento do Word com código VBA

Salve cada página como documentos do Word separados com o Kutools for Word

Salvar a página atual como um novo documento do Word com código VBA

O seguinte código VBA pode ajudá-lo a salvar o conteúdo da página atual em um novo arquivo do Word, faça o seguinte:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

Código VBA: Salve a página atual como um novo documento do Word:

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

3. E então, pressione F5 chave para executar este código, na caixa de diálogo exibida, insira um nome para o novo arquivo, consulte a captura de tela:

4. Então clique OK botão e na segunda janela exibida, escolha uma pasta para a saída do novo arquivo, veja a captura de tela:

5. Clique OK botão, o conteúdo da página atual foi salvo como um novo arquivo do Word, você pode ir para a pasta para ver o resultado.

Salve cada página como documentos do Word separados com o Kutools for Word

Se você quiser salvar cada página de todo o documento como arquivos separados, o Kutools for Word'S Split função pode lhe fazer um favor.

Depois de instalar Kutools for Word, siga os seguintes passos:

1. Clique Kutools Plus > Split, veja a captura de tela:

2. No Dividir Documento caixa de diálogo:

(1.) Selecione Página do Dividido por lista suspensa;

(1.) Clique botão para escolher uma pasta para a saída dos novos arquivos;

(2.) Em seguida, especifique o prefixo para os novos arquivos salvos conforme necessário.

3. Depois de terminar as configurações, clique OK para iniciar a divisão e, em seguida, todas as páginas do documento do Word foram salvas como arquivos separados na pasta específica, conforme mostrado a seguir:

Clique para baixar o Kutools for Word e testar gratuitamente agora!

Melhores ferramentas de produtividade de escritório

Kutools for Word - Eleve sua experiência com palavras com mais 100 Recursos notáveis!

🤖 Assistente de IA do Kutools: Transforme sua escrita com IA - Gerar conteúdo  /  Reescrever texto  /  Resumir documentos  /  Pergunte para obter informações com base no documento, tudo dentro do Word

📘 Domínio de documentos: Páginas divididas  /  Mesclar Documentos  /  Seleção de exportação em vários formatos (PDF/TXT/DOC/HTML...)  /  Conversão em lote para PDF  /  Exportar páginas como imagens  /  Imprima vários arquivos de uma vez...

✏ Edição de conteúdo: Localização e substituição em lote em vários arquivos  /  Redimensionar todas as imagens  /  Transpor linhas e colunas da tabela  /  Converter tabela em texto...

🧹 Limpeza sem esforço: Varrer Espaços extras  /  Quebras de seção  /  Todos os cabeçalhos  /  Caixas de Texto  /  hiperlinks  / Para mais ferramentas de remoção, acesse nosso Remover Grupo...

➕ Inserções criativas: Inserir Mil Separadores  /  Caixas de seleção  /  botões de rádio  /  QR Code  /  Código de barras  /  Tabela de linhas diagonais  /  Legenda da equação  /  Legenda da Imagem  /  Legenda da Tabela  /  Várias fotos  / Descubra mais no Inserir Grupo...

🔍 Seleções de precisão: Identificar páginas específicas  /  tabelas  /  formas  /  parágrafos de título  / Melhore a navegação com mais Selecione recursos...

⭐ Aprimoramentos de estrelas: Navegue rapidamente para qualquer local  /  inserir automaticamente texto repetitivo  /  alternar perfeitamente entre janelas de documentos  /  11 ferramentas de conversão...

👉 Quer experimentar esses recursos? Kutools para Word oferece um 60-day free trial, sem limitações! 🚀

Download grátis     Saiba Mais     Compre Agora