วิธีค้นหาย่อหน้าประโยคเดียวในเอกสาร Word ของคุณอย่างรวดเร็ว

ในบทความนี้ เราต้องการแสดงวิธีการค้นหาข้อความที่มีเพียงประโยคเดียวในเอกสาร Word ของคุณอย่างรวดเร็วโดยใช้ VBA

ในตอนนี้เอกสารบางฉบับอาจมีข้อกำหนดเฉพาะสำหรับการจัดรูปแบบและโครงสร้าง ตัวอย่างเช่นคุณอาจไม่ได้รับอนุญาตให้มีย่อหน้าเพียงประโยคเดียว ย่อหน้าเหล่านี้ไม่ยากที่จะจดจำ แต่ต้องใช้เวลาโดยเฉพาะอย่างยิ่งเป็นเอกสารที่ยาว

วันนี้เราจะเสนอวิธีที่รวดเร็วในการระบุย่อหน้าประโยคเดียวทั้งหมดในเอกสารของคุณ

ค้นหาย่อหน้าประโยคเดียวทั้งหมดในเอกสารเดียว

1. ประการแรก Word จะนับช่วงเวลาเป็นประโยค ดังนั้นหากมีคำเช่น "นาย" หรือ“ นางสาว” Word ถือว่าเป็นประโยค หากต้องการขจัดสิ่งที่ทำให้ไขว้เขวคุณต้องแทนที่ "นาย" กับ“ นาย” และเมื่อค้นหาย่อหน้าของประโยคความเดียวเสร็จแล้วคุณสามารถเปลี่ยนกลับได้ หากต้องการแทนที่คำคุณสามารถอ้างถึงลิงค์นี้: วิธีค้นหาและแทนที่หลายรายการในเอกสาร Word ของคุณ
2. ขั้นที่สองกด“ Alt + F11” เพื่อทริกเกอร์ตัวแก้ไข VBA
3. จากนั้นคลิกโครงการ "ปกติ"
4. คลิกแท็บ "แทรก" บนแถบเมนูและเลือก "โมดูล" ในเมนูแบบเลื่อนลง
5. ดับเบิลคลิกถัดไปที่โมดูลเพื่อเปิด
6. วางรหัสต่อไปนี้บนโมดูล:

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. สุดท้าย แต่ไม่ท้ายสุดให้คลิกปุ่ม“ วิ่ง” หรือกด“ F5”

คุณจะได้รับกล่องข้อความดังกล่าวแจ้งว่างานเสร็จแล้ว

ค้นหาย่อหน้าประโยคเดียวทั้งหมดในเอกสารหลายชุด

1. ขั้นแรก คุณต้องนำเอกสารเป้าหมายทั้งหมดไปไว้ในโฟลเดอร์เดียวกัน
2. จากนั้นติดตั้งและเรียกใช้มาโครการร้อง:

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. ในหน้าต่าง“ เรียกดู” เปิดขึ้นให้เลือกโฟลเดอร์ที่คุณเก็บเอกสารแล้วคลิก“ ตกลง”

มาโครจะเน้นย่อหน้าหนึ่งประโยคทั้งหมดและเปิดเอกสารทิ้งไว้ หากเอกสารไม่มีย่อหน้าหนึ่งประโยคเอกสารนั้นจะถูกปิด นอกจากนี้ยังมีกล่องข้อความซึ่งระบุจำนวนย่อหน้าหนึ่งประโยคในเอกสารแต่ละฉบับ

จัดการกับเหตุการณ์ข้อมูลสูญหาย

ข้อผิดพลาดของผู้ใช้และไฟฟ้าดับกะทันหันอาจส่งผลให้ Word หยุดทำงานได้ แม้ว่า Word ที่ยุบไม่เพียง แต่ส่งผลต่อการทำงานประจำวันเท่านั้น แต่ยังนำไปสู่ doc เสียหายนี่ไม่ใช่ส่วนที่น่าหงุดหงิดที่สุดของภัยพิบัติทางข้อมูลเลย ทางที่ดีกว่าคือใช้โปรแกรมกู้ข้อมูลเพื่อกู้คืนข้อมูลได้ทันที

บทนำผู้เขียน:

Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ กู้คืน excel และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.