Kuinka nopeasti löytää yhden lauseen kappaleita Word-asiakirjastasi

Tässä viestissä haluamme näyttää sinulle nopean tavan löytää kaikki yhden lauseen kappaleet Word-asiakirjastasi VBA:n kautta.

Toisinaan joillakin asiakirjoilla voi olla hyvin erityisiä vaatimuksia niiden muotoilulle ja rakenteille. Sinulla ei esimerkiksi ole sallittua olla kappaleita, joissa on vain yksi lause. Näitä kappaleita ei ole vaikea tunnistaa, mutta se vie aikaa, varsinkin se on pitkä asiakirja.

Tarjoamme tänään nopean tavan määrittää kaikki yhden lauseen kappaleet asiakirjassa.

Etsi kaikki yhden lauseen kappaleet yhdestä asiakirjasta

1. Ensinnäkin Word laskee ajanjakson lauseeksi. Joten jos on sanoja, kuten "Mr." tai "Ms", Word pitää sitä lauseena. Tällaisen häiriötekijän poissulkemiseksi sinun on korvattava "Mr." "Mr": n kanssa. Kun olet löytänyt yhden lauseen kappaleen, voit muuttaa ne takaisin. Voit korvata sanat viittaamalla tähän linkkiin: Kuinka etsiä ja korvata useita kohteita Word-asiakirjastasi
2. Toiseksi paina “Alt + F11” käynnistääksesi VBA-editorin.
3. Napsauta sitten Normaali-projekti.
4. Napsauta valikkorivin Lisää-välilehteä ja valitse avattavasta valikosta Moduuli.
5. Seuraava kaksoisnapsauta moduulia avataksesi sen.
6. Liitä seuraavat koodit moduuliin:

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. Viimeisenä mutta ei vähäisimpänä, napsauta "Suorita" -painiketta tai paina "F5".

Saat tällaisen viestiruudun, jossa kerrotaan, että työ on valmis.

Etsi kaikki yhden lauseen kappaleet useista asiakirjoista

1. Aluksi sinun on laitettava kaikki kohdetiedostot kansioon.
2. Asenna sitten ja suorita palava 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. Valitse avoimessa Selaa-ikkunassa kansio, jossa säilytät asiakirjoja, ja napsauta OK.

Makro tuo sitten esiin kaikki yhden lauseen kappaleet ja jättää asiakirjat avoimiksi. Jos asiakirja ei sisällä yhden lauseen kappaletta, se suljetaan. Lisäksi on viestiruutu, jossa ilmoitetaan yhden lauseen kappaleiden määrä kussakin asiakirjassa.

Käsittele tietojen menetysongelmia

Käyttäjävirheet ja äkillinen virtakatkos voivat johtaa Wordin kuolemaan. Vaikka romahtanut Word ei voi vaikuttaa vain päivittäiseen työhön, vaan myös johtaa siihen doc vahingotTämä ei ole suinkaan ärsyttävin osa tietokatastrofia. On parempi hankkia korjausohjelma tietojen palauttamiseksi välittömästi.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien palauttaa excel ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com