Word құжатындағы барлық бетбелгілерді көрсетудің 2 ақылды әдісі

Бұл мақалада біз сізге Word құжатындағы барлық бетбелгілерді көрсетудің 2 ақылды әдісін ұсынғымыз келеді.

Кейде біз кейінірек қарау керек мәтінді таңдау үшін бетбелгі енгіземіз. Бірақ Word-тағы бетбелгінің сипаты оны анықтауды ыңғайсыз етеді. Басқа сөзбен айтқанда, біз Word-та кейбір опцияларды ауыстырмай, бетбелгілерді тікелей қарай алмаймыз.    

Бұл мақала бетбелгілерді анық түрде көруге көмектесуге арналған. Сіз жаттығудың кез-келген жолын таңдай аласыз.

1-әдіс: Бетбелгі жақшаларын көрсету

1. Ең алдымен, таспадағы «Файл» қойындысын нұқыңыз.
2. Содан кейін «Параметрлер» батырмасын басып, «Сөз параметрлері» диалогтық терезесін ашыңыз.
3. Содан кейін сол жақ бағандағы «Қосымша» батырмасын басыңыз.
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. Соңғысы, бірақ ең азы емес, «Іске қосу» батырмасын басыңыз немесе «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