Word sənədinizdə bir cümləlik paraqrafları necə tez tapmaq olar

Bu yazıda sizə VBA vasitəsilə Word sənədinizdəki bütün bir cümləlik abzasları necə tez tapmağı göstərmək istəyirik.

İndi və sonra bəzi sənədlərin formatı və strukturları üçün çox xüsusi tələblər ola bilər. Məsələn, yalnız bir cümlə ilə abzaslara icazə verilməyə bilər. Bu paraqrafları tanımaq çətin deyil, lakin vaxt tələb edir, xüsusən də uzun bir sənəddir.

Bu gün sizə sənədinizdə bütün bir cümləlik paraqrafları dəqiqləşdirməyin sürətli yolunu təklif edəcəyik.

Bütün bir cümləlik paraqrafları bir sənəddə tapın

1. Birincisi, Word bir nöqtəni cümlə kimi hesab edir. Beləliklə, "cənab" kimi sözlər varsa. və ya “xanım”, Word bunu cümlə kimi qəbul edir. Bu cür diqqəti yayındırmaq üçün siz “Cənab” ifadəsini əvəz etməlisiniz. "cənab" ilə. Tək cümlənin bəndini tapdıqdan sonra onları geri dəyişə bilərsiniz. Sözləri əvəz etmək üçün bu linkə müraciət edə bilərsiniz: Word sənədinizdə birdən çox elementi necə tapmaq və dəyişdirmək olar
2. İkincisi, VBA redaktorunu işə salmaq üçün “Alt+ F11” düyməsini basın.
3. Sonra "Normal" layihəsinə klikləyin.
4. Menyu çubuğundakı "Daxil et" sekmesini vurun və açılan menyuda "Modul" seçin.
5. Sonra modulu açmaq üçün üzərinə iki dəfə klikləyin.
6. Aşağıdakı kodları modula yapışdırın:

Sub HighlightParagraphsWithSingleSentence()
  Dim nParagraphNum As Integer
  Dim nCountParagraph As Integer
  Dim objParagraphRange As Range
  Dim nCountSentence As Integer
  Dim nHighlightNum As Integer
 
  nCountParagraph = ActiveDocument.Paragraphs.Count
  nHighlightNum = 0
 
  For nParagraphNum = 1 To nCountParagraph
    Set objParagraphRange = ActiveDocument.Paragraphs(nParagraphNum).Range
    nCountSentence = objParagraphRange.Sentences.Count
    ' Highlight all paragraphs with single-sentence.
    If nCountSentence = 1 And objParagraphRange.Characters.Count > 1 Then
      nHighlightNum = nHighlightNum + 1
      objParagraphRange.HighlightColorIndex = wdYellow
    End If
  Next

  If nHighlightNum > 0 Then
    MsgBox ("There are " & nHighlightNum & " paragraphs with single sentence and they are highlighted.")
  Else
    MsgBox ("There are no paragraphs with single sentence")
  End If

End Sub

7. Sonuncu, lakin ən azı, "Çalış" düyməsini və ya "F5" düyməsini basın.

İşin bitdiyini bildirən belə bir mesaj qutusu alacaqsınız.

Birdən çox sənəddə bütün bir cümləlik paraqrafları tapın

1. Başlamaq üçün bütün hədəf sənədləri bir qovluğa qoymalısınız.
2. Sonra aşağıdakı makronu quraşdırın və işə salın:

Sub HighlightParagraphsWithSingleSentenceInMultipleFiles()
  Dim nParagraphNum As Integer
  Dim nCountParagraph As Integer
  Dim objParagraphRange As Range
  Dim nCountSentence As Integer
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
  Dim nHighlightNum As Integer
  Dim strSummary As String

  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)

  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox ("No Folder is selected!")
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    nHighlightNum = 0
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
    Set objDoc = ActiveDocument
    nCountParagraph = ActiveDocument.Paragraphs.Count
 
    For nParagraphNum = 1 To nCountParagraph
      Set objParagraphRange = ActiveDocument.Paragraphs(nParagraphNum).Range
      nCountSentence = objParagraphRange.Sentences.Count
      ' Highlight all paragraphs with single-sentence.
      If nCountSentence = 1 And objParagraphRange.Characters.Count > 1 Then
        nHighlightNum = nHighlightNum + 1
        objParagraphRange.HighlightColorIndex = wdYellow
      End If
    Next
    objDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    objDoc.Save
    If nHighlightNum = 0 Then
      objDoc.Close
    End If
 
    strSummary = strSummary & strFile & " : " & nHighlightNum & " paragraphs with single sentence." & vbCrLf
    strFile = Dir()
  Wend
  MsgBox (strSummary)
 
End Sub

3. Açılan "Gözdən keçir" pəncərəsində sənədləri saxladığınız qovluğu seçin və "OK" düyməsini basın.

Bundan sonra makro bütün bir cümləlik paraqrafları vurğulayacaq və sənədləri açıq qoyacaq. Sənəddə bir cümləlik paraqraf yoxdursa, o, bağlanacaq. Bundan əlavə, hər bir sənəddə bir cümləlik paraqrafların sayını göstərən mesaj qutusu var.

Məlumat itkisi hadisəsi ilə məşğul olun

İstifadəçi səhvləri və qəfil elektrik kəsilməsi Word-ün ölməsinə səbəb ola bilər. Yıxılmış bir Word yalnız gündəlik işə təsir edə bilməz, həm də səbəb ola bilər doktor ziyanıBu, heç də məlumat fəlakətinin ən qıcıqlandırıcı hissəsi deyil. Məlumatları dərhal bərpa etmək üçün təmir proqramından istifadə etmək daha yaxşıdır.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc excel bərpa edin və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com