Үгсийн баримт бичигт олон хавчуургыг устгах 2 багц арга

Энэ нийтлэлд бид Word баримт бичигт байгаа олон хавчуургыг багцлан устгах хоёр хурдан аргыг танд өгөхийг хүсч байна.

Ер нь Word баримт бичигт нэг хавчуургыг ямар ч саадгүйгээр нэмж эсвэл устгаж болно. Гэсэн хэдий ч, олон хавчуургатай байх үед та гараа зангидсан мэт санагдаж магадгүй юм.

Аз болоход Word дээр хүчирхэг хэрэгсэл байдаг бөгөөд энэ нь VBA засварлагч юм. Тиймээс бид танд баримт бичигт байгаа олон хавчуургыг багцлан устгахад туслах макро ашиглах болно.

Арга 1: Баримт бичигт байгаа бүх хавчуургыг багцаар устгах

1. Юуны өмнө, "Alt" + "F11" товчийг дарж Word дээр VBA засварлагчийг ажиллуулна уу.
2. Дараа нь зүүн талын "Төсөл" самбар дээр "Хэвийн" дээр дарна уу.
3. Дараа нь "Оруулах" таб дээр товшоод цэснээс "Модуль" -ыг сонгоно уу.
4. Модулийг нээхийн тулд давхар товшино уу.
5. Одоо дараах кодуудыг энд оруулна уу:

Sub DeleteAllBookmarksInDoc()
  Dim objBookmark As Bookmark
  Dim nBookmark As Integer
  Dim strButtonValue As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  nBookmark = objDoc.Bookmarks.Count
  If nBookmark > 0 Then
    strButtonValue = MsgBox("Do you want to remove all " & nBookmark & " bookmark(s) in this document?", vbYesNo)
    If strButtonValue = vbYes Then
      For Each objBookmark In objDoc.Bookmarks
        objBookmark.Delete
      Next objBookmark
      MsgBox ("All bookmarks in this document have been deleted.")
    Else
      Exit Sub
    End If
  End If
 
  Application.ScreenUpdating = True
End Sub

6. Дараа нь "Run" товчийг дарна уу.
7. Дараа нь та асуух хайрцаг авах болно. Мөн та одоогийн баримт бичигт хавчуургын нийт тоог харж болно. Бүгдийг устгахын тулд "Тийм" эсвэл макроноос гарахын тулд "Үгүй" дээр дарна уу.
8. Хэрэв та "Тийм" гэж сонговол дараах мессежийг хүлээн авна.

Арга 2: Сонголтонд байгаа бүх хавчуургыг багцаар устгах

Хэд хэдэн хавчуургыг устгах боловч заримыг нь хэвээр үлдээх тохиолдол байдаг гэдгийг хүлээн зөвшөөрөх хэрэгтэй. Үүний нэгэн адил бид ажлыг гүйцэтгэхийн тулд сонголт дээр макро ажиллуулна.

1. Эхлэхийн тулд макро суулгаж, ажиллуулахын тулд дээрх алхмуудыг давтана уу.
2. Макрог дараахь зүйлээр солихыг санаарай.

Sub DeleteAllBookmarksInSelection()
  Dim objBookmark As Bookmark
  Dim nBookmark As Integer
  Dim strButtonValue As String
 
  Application.ScreenUpdating = False
 
  nBookmark = Selection.Bookmarks.Count
  If nBookmark > 0 Then
    strButtonValue = MsgBox("Do you want to remove all " & nBookmark & " bookmark(s) in this selection?", vbYesNo)
    If strButtonValue = vbYes Then
      For Each objBookmark In Selection.Bookmarks
        objBookmark.Delete
      Next objBookmark
      MsgBox ("All " & nBookmark & " bookmark(s) in this selection have been deleted.")
    Else
      Exit Sub
    End If
  End If
 
  Application.ScreenUpdating = True
End Sub

3. Макро ажиллуулахын өмнө та олон төрлийн контентыг сонгох хэрэгтэй.
4. Кодуудыг гүйцэтгэх явцад та 2-р аргад үзүүлсэн ижил 1 мессежийн хайрцаг хүлээн авах болно.

Үүний үр дүнд та зөвхөн сонгосон хавчуургыг устгана.

Баримт бичгийн авлигад бэлэн байгаарай

Өгөгдлийн алдагдал хэнд ч хэзээ ч тохиолдож болно. Мөн түүний урьдчилан таамаглах боломжгүй байдал нь биднийг азгүйтэлд орохгүй байх боломжийг олгодог. Сэдвийн талаар ярихад засвар docx, та үр дүнтэй засварын хэрэгслийг урьдчилан сонгохоо хэзээ ч алдаж болохгүй.

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

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