VBA-ээр дамжуулан Word документынхаа олон хуудсыг хэрхэн хурдан устгах вэ

Энэ нийтлэлд бид VBA-ээр дамжуулан Word документынхаа олон хуудсыг хэрхэн устгахаа харуулахыг анхаарч үзэх болно.

Баримт бичиг боловсруулахад байнга тохируулга хийх шаардлагатай байдаг. Бусад өөрчлөлтүүдийн нэгэн адил агуулгын хуудсыг устгах нь зайлшгүй шаардлагатай. Хэрэггүй текстийг устгах нь амархан. Ихэнх хүмүүс сонголтоо хийгээд "Устгах" эсвэл "Backspace" товчийг дарахад л энэ даалгавар биелнэ.

Энэ нь таны хүссэн зүйлийг авах нь дамжиггүй. Гэхдээ үүнийг хийх нь илүү хурдан байдаг. Үүнээс гадна та сонгох алхамыг алгасаад олон хуудсыг нэг дор устгана. Тааламжтай хандлага бол Word макро ажиллуулах явдал юм.

Одоогийн хуудсыг устгах

Текстийг сонгох дургүй хүмүүсийн хувьд энэ нь таны адислал байж болох юм. Эхлээд одоо байгаа хуудсыг VBA-ээр хэрхэн устгахыг үзүүлье.

1. Эхлэхийн тулд устгахыг хүссэн хуудсан дээрээ курсороо байрлуул.
2. VBA редакторыг Word дээр "Developer" таб, дараа нь "Visual Basic" дээр дарж нээнэ үү. Хэрэв туузанд "Developer" таб хараахан байхгүй байгаа бол оронд нь "Alt + F11" товчийг дарна уу.
3. Хоёрдугаарт, "Хэвийн" дээр дарна уу.
4. Дараа нь "Insert" дээр дараад тухайн цэснээс "Module" командыг сонгоно уу.
5. Шинэ модулийг хоёр товшоод нээнэ үү.
6. Дараах кодыг тэнд байрлуул:

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

7. Эцэст нь "Run" товчийг дарна уу эсвэл "F5" дээр дарна уу.

Олон хуудсыг устгах

1. Макро суулгаж ажиллуулахын тулд дээрх алхмуудыг дагана уу.
2. Макрог дараахаар солино уу.

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. Макро ажиллуулах нь оролтын хайрцгийг өдөөх болно. Устгах хуудсын хуудасны дугаарыг оруулаад таслалаар тусгаарлана уу. Таслалаас хойш зай оруулахгүй байх.
4. Дараа нь үргэлжлүүлэхийн тулд "OK" дээр дарна уу.

Мэдээжийн хэрэг, та энэ макро ашиглан одоогийн хуудсыг устгаж болно. Хуудасны дугаарыг оруулна уу.

Авлига таныг зогсоохыг бүү зөвшөөр

Өгөгдлийн гамшиг тохиолдсон л бол энэ нь таны өдөр тутмын ажлыг удаашруулах нь гарцаагүй бөгөөд та нэмэлт зардлыг үүрэх шаардлагатай болно. Өгөгдлөө аюулгүй, найдвартай байлгахын тулд та ...-тай холбоо барьсан нь дээр. doc хохирол засах хэрэгсэл.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. Excel-ийг засах болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com