Ako rýchlo nájsť odseky s jednou vetou v dokumente Word

V tejto strost, chceme vám predstaviť rýchly spôsob vyhľadania všetkých odsekov s jednou vetou v dokumente Word pomocou VBA.

Občas môžu mať niektoré dokumenty veľmi konkrétne požiadavky na ich formátovanie a štruktúru. Napríklad vám nemusí byť dovolené mať odseky iba s jednou vetou. Tieto odseky nie je ťažké rozpoznať, vyžaduje to však čas, najmä je to dlhý dokument.

Dnes vám ponúkneme rýchly spôsob špecifikácie všetkých odsekov s jednou vetou v dokumente.

Vyhľadajte všetky odseky s jednou vetou v jednom dokumente

1. Po prvé, Word počíta bodku ako vetu. Takže ak existujú slová ako „Pán“ alebo „Pani“, Word to považuje za vetu. Ak chcete vylúčiť takéto rozptýlenie, musíte nahradiť slovo „Mr.“ s „pánom“. A keď dokončíte hľadanie odseku s jednou vetou, môžete ich zmeniť späť. Ak chcete nahradiť slová, môžete odkazovať na tento odkaz: Ako nájsť a nahradiť viac položiek v dokumente Word
2. Potom stlačte kombináciu klávesov „Alt + F11“ a spustite editor VBA.
3. Potom kliknite na „Normálny“ projekt.
4. Kliknite na kartu „Vložiť“ na paneli s ponukami a v rozbaľovacej ponuke zvoľte „Modul“.
5. Ďalej dvojitým kliknutím otvorte modul.
6. Vložte nasledujúce kódy do modulu:

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 nParagraphNount = 1 Rozsah nCountSentence = objParagraphRange.Sentences.Count 'Zvýraznite všetky odseky jednou vetou. Ak nCountSentence = 1 A objParagraphRange.Characters.Count> 1 Potom nHighlightNum = nHighlightNum + 1 objParagraphRange.HighlightColorIndex = wdYellow Koniec Ak Ďalej Ak nHighlightNum> 0 Potom MsgBox ("Existujú" & nHighlightNum & "odseky s jedinou vetou a sú to jednotlivé vety." ") Else MsgBox (" Neexistujú žiadne odseky s jedinou vetou ") End If End Sub

7. V neposlednom rade kliknite na tlačidlo „Spustiť“ alebo stlačte „F5“.

Dostanete takúto správu s informáciou, že práca je hotová.

Nájdite všetky odseky s jednou vetou vo viacerých dokumentoch

1. Na začiatok musíte dať všetko tarzískať dokumenty v priečinku.
2. Potom nainštalujte a spustite nasledujúce 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 nHigh String (msoFileDialogFolderPicker) S dlgFile Ak .Show = -1 Potom StrFolder = .SelectedItems (1) & "\" Else MsgBox („Nie je vybraný žiadny priečinok!“) Koniec Sub End Ak je koniec StrFile = Dir (StrFolder & "* .doc * ", vbNormal) Zatiaľ čo strFile <>" "nHighlightNum = 0 Nastaviť objDoc = Documents.Open (FileName: = StrFolder & strFile) Nastaviť objDoc = ActiveDocument nCountParagraph = ActiveDocument.Paragraphs.Count Pre nParagraphNum = 1 Na nCountParument Nastaviť = ObjParagraph Odseky (nParagraphNum) .Range nCountSentence = objParagraphRange.Sentences.Count 'Zvýraznite všetky odseky jednou vetou. 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.Sum If nHighlightNum = 0 strSummary = strSummary & strFile & ":" & nHighlightNum & "odseky s jednou vetou." & vbCrLf strFile = Dir () Wend MsgBox (strSummary) End Sub

3. V otvorenom okne „Prehliadať“ vyberte priečinok, kde máte uložené dokumenty, a kliknite na tlačidlo „OK“.

Makro potom zvýrazní všetky odseky s jednou vetou a nechá dokumenty otvorené. Ak dokument neobsahuje odsek s jednou vetou, uzavrie sa. Okrem toho je k dispozícii schránka so správou označujúca počet odsekov s jednou vetou v každom dokumente.

Riešiť prípad straty údajov

Chyby používateľa a náhly výpadok napájania môžu mať za následok smrť Wordu. Aj keď zbalený Word môže nielen ovplyvniť každodennú prácu, ale aj viesť k poškodenie dok. To v žiadnom prípade nie je most dráždivá súčasť katastrofy údajov. Je lepšie zaobstarať si nástroj na opravu, ktorý okamžite obnoví údaje.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane zotaviť excelovať a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S