Como excluir rapidamente várias páginas em seu documento do Word via VBA

Neste artigo, vamos nos concentrar em demonstrar como excluir várias páginas em seu documento do Word via VBA.

A elaboração de um documento exige ajustes constantes. E excluir páginas de conteúdo é tão necessário quanto outras modificações. Remover textos desnecessários é fácil. A maioria das pessoas opta por selecionar o texto e pressionar "Delete" ou "Backspace" para concluir a tarefa.

Isso certamente vai te dar o que você quer. Mas há um mais rápido para fazer isso. Além do mais, você pula a etapa de seleção e exclui várias páginas de uma só vez. A abordagem atraente é executar uma macro do Word.

Excluir página atual

Para aqueles que odeiam fazer seleção em um intervalo de texto, isso pode ser sua bênção. Primeiro, vamos mostrar como excluir a página atual via VBA.

1. Para começar, coloque o cursor na página que deseja excluir.
2. Abra o editor VBA no Word clicando na aba “Desenvolvedor” e depois em “Visual Basic”. Se a guia “Desenvolvedor” ainda não estiver disponível na Faixa de Opções, pressione “Alt+F11”.
3. Em segundo lugar, clique em "Normal".
4. Em seguida, clique em “Inserir” e escolha “Módulo” nesse menu.
5. Abra o novo módulo clicando duas vezes.
6. E cole os seguintes códigos lá:

Sub DeleteCurrentPage()
  Dim objDoc As Document
 
  ' Initialize
  Set objDoc = ActiveDocument
 
  ' Delete current page.
  objDoc.Bookmarks("\Page").Range.Delete
End Sub

7. Por fim, clique no botão “Executar” ou pressione “F5”.

Excluir várias páginas

1. Siga as etapas acima para instalar e executar uma macro.
2. Substitua a macro por esta:

Sub DeletePagesInDoc()
  Dim objRange As Range
  Dim strPage As String
  Dim objDoc As Document
  Dim nSplitItem As Long

  Application.ScreenUpdating = False
 
  ' Initialize and enter page numbers of pages to be deleted.
  Set objDoc = ActiveDocument
  strPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
            "use comma to separate numbers", "Delete Pages", "For example: 1,3")
  nSplitItem = UBound(Split(strPage, ","))

  ' Find specified pages and highlight their contents.
  For nSplitItem = nSplitItem To 0 Step -1
    With ActiveDocument
      Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=Split(strPage, ",")(nSplitItem)
      Set objRange = .Bookmarks("\Page").Range
      objRange.Delete
    End With
  Next nSplitItem
 
  Application.ScreenUpdating = True
End Sub

3. A execução da macro acionará uma caixa de entrada. Digite o número da página das páginas a serem excluídas e use vírgula para separá-las. Não insira um espaço após a vírgula.
4. Em seguida, clique em “OK” para prosseguir.

Claro, você pode usar esta macro para excluir a página atual. Basta digitar o número da página.

Não deixe a corrupção parar você

Quando ocorre um desastre de dados, certamente isso afetará seu trabalho diário e você terá que arcar com os custos adicionais. Para garantir que seus dados estejam seguros e protegidos, é melhor contratar um serviço de segurança de dados confiável. danos do documento ferramenta de reparação.

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 corrigir Excel e pdf reparar produtos de software. Para mais informações visite www.datanumen.com