Cara Cepat Menemukan Paragraf Satu Kalimat di Dokumen Word Anda

Dalam postingan ini, kami ingin menunjukkan kepada Anda cara cepat untuk menemukan semua paragraf satu kalimat dalam dokumen Word Anda melalui VBA.

Terkadang, beberapa dokumen dapat memiliki persyaratan yang sangat spesifik untuk pemformatan dan strukturnya. Misalnya, Anda mungkin tidak diizinkan memiliki paragraf hanya dengan satu kalimat. Paragraf ini tidak sulit untuk dikenali, tetapi membutuhkan waktu, terutama jika dokumennya panjang.

Hari ini, kami akan menawarkan cara cepat untuk menentukan semua paragraf satu kalimat dalam dokumen Anda.

Temukan Semua Paragraf Satu Kalimat dalam Satu Dokumen

1. Pertama, Word menghitung titik sebagai kalimat. Jadi jika ada kata seperti "Mr." atau "Ms.", Word menganggapnya sebagai kalimat. Untuk mengecualikan gangguan seperti itu, Anda perlu mengganti "Mr." dengan "Mr". Dan setelah selesai menemukan paragraf kalimat tunggal, Anda dapat mengubahnya kembali. Untuk mengganti kata-kata, Anda dapat merujuk ke tautan ini: Cara Menemukan dan Mengganti Beberapa Item di Dokumen Word Anda
2. Kedua, tekan "Alt + F11" untuk memicu editor VBA.
3. Kemudian klik proyek "Normal".
4. Klik tab "Sisipkan" pada bilah menu dan pilih "Modul" pada menu tarik-turunnya.
5. Selanjutnya klik dua kali pada modul untuk membukanya.
6. Tempel kode berikut pada modul:

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. Terakhir, klik tombol "Run" atau tekan "F5".

Anda akan menerima kotak pesan seperti itu yang memberi tahu Anda bahwa pekerjaan telah selesai.

Temukan Semua Paragraf Satu Kalimat dalam Banyak Dokumen

1. Pertama-tama, Anda harus memasukkan semua dokumen target ke dalam sebuah folder.
2. Kemudian instal dan jalankan makro berikut:

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. Di jendela "Jelajahi" yang terbuka, pilih folder tempat Anda menyimpan dokumen dan klik "OK".

Makro kemudian akan menyorot semua paragraf satu kalimat dan membiarkan dokumen terbuka. Jika dokumen tidak berisi paragraf satu kalimat, itu akan ditutup. Selain itu, terdapat kotak pesan yang menunjukkan jumlah paragraf satu kalimat di setiap dokumen.

Menangani Insiden Kehilangan Data

Kesalahan pengguna dan pemadaman listrik tiba-tiba dapat menyebabkan kematian Word. Sementara kata yang runtuh tidak hanya mempengaruhi pekerjaan sehari-hari, tetapi juga menyebabkan kerusakan docIni bukanlah bagian yang paling menjengkelkan dari bencana data. Lebih baik menggunakan utilitas perbaikan untuk memulihkan data dengan segera.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memulihkan excel ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com