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

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

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

Энэ нийтлэл нь хавчуургыг ойлгомжтой байдлаар харахад туслах болно. Та дадлага хийх аль ч аргыг сонгож болно.

Арга 1: Хавчуургын хаалтыг харуулах

1. Юуны өмнө, тууз дээрх "Файл" таб дээр дарна уу.
2. Дараа нь "Сонголт" дээр дарж "Word Options" харилцах цонхыг нээнэ үү.
3. Дараа нь зүүн баганад "Advanced" дээр дарна уу.
4. "Баримтын агуулгыг харуулах" хэсэгт доош гүйлгээд "Хавчуурга харуулах" хайрцгийг шалгана уу.
5. Эцэст нь өөрчлөлтийг хадгалахын тулд “OK” дээр дарна уу.

Одоо хавчуургатай зүйлсийн эргэн тойронд дөрвөлжин хаалт байна. Эдгээр хаалт нь заримдаа тийм ч тод харагддаггүй саарал өнгөтэй байгааг та харж байна. Та тэдгээрийг ердийн дөрвөлжин хаалттай андуурч магадгүй юм.

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

Арга 2: Олон хавчуургыг тодруулах

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

Sub HighlightBookmarkedItemsInADoc()
  Dim objBookmark As Bookmark
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objBookmark In .Bookmarks
      objBookmark.Range.HighlightColorIndex = wdBrightGreen
    Next objBookmark
  End With
  Application.ScreenUpdating = True
End Sub

6. Хамгийн сүүлд гэхдээ "Run" дээр дарна уу эсвэл "F5" дээр дарна уу.

Дараа нь таны харж байгаа зүйл бол бүх хавчуургыг дараах байдлаар ногооноор тодруулсан болно.

Макроос дээш нь одоогийн идэвхтэй баримт бичигт байгаа бүх хавчуургыг тодруулна уу. Хэрэв боловсруулах хэд хэдэн баримт бичиг байгаа бол оронд нь энэ макро хэрэгтэй болно:

Sub HighlightBookmarkedItemsInMultiDoc()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "You need to select a folder first!"
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
    Set objDoc = ActiveDocument
    With objDoc
      For Each objBookmark In .Bookmarks
        objBookmark.Range.HighlightColorIndex = wdBrightGreen
      Next objBookmark
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
 Wend
End Sub

Энэ макрог ажиллуулахаасаа өмнө та бүх зорилтот баримт бичгүүдийг нэг хавтсанд байрлуулах ёстой. Макрог ажиллуулахад "Харах" цонх гарч ирнэ. Зүгээр л баримт бичгээ хадгалах хавтсаа сонгоно уу.

Баримт бичгийг засах хэрэгсэл

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

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

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