Sådan hurtigt slettes flere sider i dit Word-dokument via VBA

I denne artikel vil vi fokusere på at demonstrere dig om, hvordan du sletter flere sider i dit Word-dokument via VBA.

Det kræver hele tiden justeringer at udarbejde et dokument. Og sletning af indholdssider er lige så nødvendigt som andre ændringer. Det er nemt at fjerne unødvendig tekst. De fleste vælger at foretage en markering og derefter trykke på enten "Slet" eller "Backspace".

Dette vil helt sikkert give dig, hvad du vil. Men der er hurtigere at gøre det. Hvad mere er, springer du over valgstrinet og sletter flere sider på én gang. Den tiltalende tilgang er at køre en Word-makro.

Slet aktuel side

For dem, der hader at foretage valg over en række tekster, kan dette være din velsignelse. Lad os først vise dig, hvordan du sletter den aktuelle side via VBA.

1. Til at begynde med skal du placere markøren på den side, du vil slette.
2. Åbn VBA-editor i Word ved at klikke på fanen "Udvikler" og derefter på "Visual Basic". Hvis fanen “Udvikler” endnu ikke er tilgængelig i båndet, skal du trykke på “Alt + F11” i stedet.
3. For det andet skal du klikke på “Normal”.
4. Klik derefter på "Indsæt", og vælg "Modul" i den menu.
5. Åbn det nye modul ved at dobbeltklikke.
6. Og indsæt følgende koder der:

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

7. Til sidst skal du klikke på knappen "Kør" eller trykke på "F5".

Slet flere sider

1. Følg trinene ovenfor for at installere og køre en makro.
2. Udskift makroen med denne:

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. En makro, der kører, udløser et inputfelt. Indtast sidetallet på de sider, der skal slettes, og brug komma til at adskille dem. Indtast ikke et mellemrum efter kommaet.
4. Klik derefter på “OK” for at fortsætte.

Selvfølgelig kan du bruge denne makro til at slette den aktuelle side. Indtast blot sidenummeret.

Lad ikke korruption stoppe dig

Når en datakatastrofe sker, vil det helt sikkert forsinke dit daglige arbejde, og du skal også bære de ekstra omkostninger. For at sikre, at dine data er sikre, bør du kontakte en doc skader reparationsværktøj.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder rette Excel og pdf produkter til reparation af software. For mere information besøg www.datanumen.com