Word Belgenizde Tek Cümle Paragrafları Nasıl Hızlı Bir Şekilde Bulunur?

Bu yazımızda, VBA kullanarak Word belgenizdeki tüm tek cümlelik paragrafları bulmanın hızlı yolunu göstermek istiyoruz.

Bazen bazı belgelerin biçimlendirme ve yapıları için çok özel gereksinimleri olabilir. Örneğin tek cümlelik paragraflara izin verilmeyebilir. Bu paragrafları tanımak zor değil ama zaman alıyor, özellikle uzun bir belge.

Bugün size belgenizdeki tüm tek cümlelik paragrafları belirtmenin hızlı yolunu sunacağız.

Tüm Tek Cümlelik Paragrafları Tek Bir Belgede Bulun

1. İlk olarak, Word noktayı cümle olarak sayar. Yani “Bay” gibi kelimeler varsa. veya "Bayan.", Word bunu bir cümle olarak kabul eder. Böyle bir dikkat dağıtmayı ortadan kaldırmak için "Bay" ifadesini değiştirmeniz gerekir. "Bay" ile. Ve tek cümlelik paragrafı bulduğunuzda, onları geri değiştirebilirsiniz. Kelimeleri değiştirmek için şu bağlantıya başvurabilirsiniz: Word Belgenizdeki Birden Çok Öğeyi Bulma ve Değiştirme
2. İkinci olarak, VBA editörünü tetiklemek için “Alt+ F11” tuşlarına basın.
3. Ardından “Normal” projesine tıklayın.
4. Menü çubuğundaki “Ekle” sekmesine tıklayın ve açılır menüsünden “Modül” seçeneğini seçin.
5. Daha sonra açmak için modüle çift tıklayın.
6. Modüle aşağıdaki kodları yapıştı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. Son olarak, "Çalıştır" düğmesine tıklayın veya "F5" tuşuna basın.

İşin bittiğini söyleyen böyle bir mesaj kutusu alacaksınız.

Birden Çok Belgedeki Tek Cümlelik Paragrafların Tümünü Bulun

1. Öncelikle, tüm hedef belgeleri bir klasöre koymanız gerekiyor.
2. Ardından aşağıdaki makroyu kurun ve çalıştırı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özat” penceresinde, belgeleri sakladığınız klasörü seçin ve “Tamam” düğmesine tıklayın.

Makro daha sonra tüm tek cümlelik paragrafları vurgulayacak ve belgeleri açık bırakacaktır. Bir belge tek cümlelik bir paragraf içermiyorsa kapatılacaktır. Ayrıca, her belgedeki tek cümlelik paragrafların sayısını gösteren bir mesaj kutusu vardır.

Veri Kaybı Olayıyla Başa Çıkma

Kullanıcı hataları ve ani elektrik kesintisi Word'ün çökmesine neden olabilir. Çökmüş bir Word sadece günlük işleri etkilemekle kalmaz, aynı zamanda doktor hasarıBu, veri felaketinin en can sıkıcı kısmı değil kesinlikle. Verileri hemen kurtarmak için bir onarım programı kullanmak daha iyidir.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. iyileşmek hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com