Kako brzo pronaći odlomke od jedne rečenice u svom Word dokumentu

U ovom postu želimo vam pokazati brz način pronalaska svih odlomaka od jedne rečenice u vašem Word dokumentu putem VBA-e.

Tu i tamo, neki dokumenti mogu imati vrlo specifične zahtjeve za svoje oblikovanje i strukturu. Na primjer, možda vam nije dopušteno imati odlomke sa samo jednom rečenicom. Ove paragrafe nije teško prepoznati, ali potrebno je vrijeme, pogotovo ako se radi o dugom dokumentu.

Danas ćemo vam ponuditi brz način navođenja svih odlomaka od jedne rečenice u vašem dokumentu.

Pronađite sve odlomke od jedne rečenice u jednom dokumentu

1. Prvo, Word broji točku kao rečenicu. Dakle, ako postoje riječi kao što su "Mr." ili "Ms.", Word to smatra rečenicom. Da biste isključili takvo ometanje, morate zamijeniti "Mr." s "gospodin". A kada završite s pronalaženjem odlomka jedne rečenice, možete ih vratiti natrag. Za zamjenu riječi možete pogledati ovu poveznicu: Kako pronaći i zamijeniti više stavki u svom Word dokumentu
2. Drugo, pritisnite “Alt+ F11” za pokretanje VBA editora.
3. Zatim kliknite "Normalni" projekt.
4. Kliknite karticu "Umetni" na traci izbornika i odaberite "Modul" na padajućem izborniku.
5. Zatim dvaput kliknite na modul da biste ga otvorili.
6. Zalijepite sljedeće kodove na 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. Posljednje, ali ne i najmanje važno, kliknite gumb "Pokreni" ili pritisnite "F5".

Primit ćete takav okvir s porukom koji vam govori da je posao obavljen.

Pronađite sve odlomke od jedne rečenice u više dokumenata

1. Za početak, sve ciljne dokumente morate staviti u mapu.
2. Zatim instalirajte i pokrenite sljedeći makro:

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. U otvorenom prozoru “Browse” odaberite mapu u kojoj čuvate dokumente i kliknite “OK”.

Makronaredba će zatim označiti sve odlomke od jedne rečenice i ostaviti dokumente otvorenima. Ako dokument ne sadrži odlomak od jedne rečenice, bit će zatvoren. Osim toga, postoji okvir s porukom koji pokazuje broj odlomaka od jedne rečenice u svakom dokumentu.

Suočite se s incidentom gubitka podataka

Korisničke pogreške i iznenadni nestanak struje mogu rezultirati mrtvim Wordom. Dok srušena Riječ ne samo da može utjecati na svakodnevni rad, već i dovesti do oštećenje dokOvo nipošto nije najiritantniji dio katastrofe s podacima. Bolje je odmah angažirati program za popravak kako bi se podaci oporavili.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti excel i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com