Si të fshini shpejt shumë faqe në dokumentin tuaj Word përmes VBA

Në këtë artikull, ne do të fokusohemi në demonstrimin se si të fshini faqe të shumta në dokumentin tuaj Word nëpërmjet VBA.

Hartimi i një dokumenti kërkon rregullime gjatë gjithë kohës. Dhe fshirja e faqeve me përmbajtje është po aq e nevojshme sa modifikimet e tjera. Heqja e teksteve të padobishme është e lehtë. Shumica e njerëzve zgjedhin të bëjnë një përzgjedhje dhe pastaj të shtypin "Delete" ose "Backspace" për ta kryer detyrën.

Kjo me siguri do t'ju sjellë atë që dëshironi. Por ka një më të shpejtë për ta bërë këtë. Për më tepër, ju kaloni hapin e përzgjedhjes dhe fshini disa faqe në të njëjtën kohë. Qasja tërheqëse është të ekzekutoni një makro Word.

Fshi faqen aktuale

Për ata që urrejnë të bëjnë përzgjedhje mbi një sërë tekstesh, ky mund të jetë bekimi juaj. Së pari le t'ju tregojmë se si të fshini faqen aktuale nëpërmjet VBA.

1. Për të filluar, vendosni kursorin në faqen që dëshironi të fshini.
2. Hapni redaktorin VBA në Word duke klikuar në skedën "Zhvilluesi" dhe më pas "Visual Basic". Nëse skeda "Zhvilluesi" nuk është ende e disponueshme në Shirit, në vend të kësaj shtypni "Alt+ F11".
3. Së dyti, klikoni "Normal".
4. Pastaj klikoni "Insert" dhe zgjidhni "Module" në atë menu.
5. Hapni modulin e ri duke klikuar dy herë.
6. Dhe ngjisni kodet e mëposhtme atje:

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

7. Në fund, klikoni butonin "Run" ose shtypni "F5".

Fshi faqet e shumta

1. Ndiqni hapat e mësipërm për të instaluar dhe ekzekutuar një makro.
2. Zëvendësoni makro me këtë:

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. Ekzekutimi i makros do të aktivizojë një kuti hyrëse. Futni numrin e faqes së faqeve që do të fshihen dhe përdorni presje për t'i ndarë ato. Mos fusni një hapësirë ​​​​pas presjes.
4. Pastaj klikoni "OK" për të vazhduar.

Sigurisht, mund ta përdorni këtë makro për të fshirë faqen aktuale. Thjesht shkruani numrin e faqes.

Mos lejoni që korrupsioni t'ju ndalojë

Pasi të ndodhë një katastrofë me të dhëna, me siguri do të ngadalësojë punën tuaj të përditshme dhe do t'ju duhet të përballoni edhe koston shtesë. Për t'u siguruar që të dhënat tuaja janë të sigurta dhe të shëndosha, është më mirë të kontaktoni një... dëmtimi i dokumentit mjet riparimi.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rregulloni Excel pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com