Sub ShowColumnInfo ()
Doc. als Dokument verdunkeln
I als ganze Zahl verdunkeln
Sek als Abschnitt verdunkeln
Str als Schnur, strColBk verdunkeln als Schnur
Einstellen Doc. = ActiveDocument
Für jede sek in Doc. Abschnitte
I = i + 1
Wenn (CInt (CountWordPhrase (i, Doc.)) > 0) Dann
strColBk = CountWordPhrase (i, Doc.)
str = str u. vbCrLf u. „Abschnitt: “ u. i u. „Spalten“ u. Sec.PageSetup.TextColumns.Count u. „-“ u. „ColumnBreaks (“ u. strColBk u. "),“
Beenden wenn
Zunächst
MsgBox „Spalten-Bruch-Info: “ u. str, vbInformation, „Spaltenbruchinfo pro Abschnitt“
Enden-Unterseeboot
Private Funktion CountWordPhrase (SecId als ganze Zahl, myDoc als Dokument) als Schnur
Schwaches x als Schnur
Schwaches y als ganze Zahl
Auf der Störungs-Zusammenfassung zunächst 'nicht wirklich empfohlen aber den Problemen kann auf Entdeckungen geschehen
x = „^n“ 'Spaltenbruchtext
myDoc.Sections (SecId). Range.Select
Mit Selection.Find
Tun während. Durchführen (FindText: =x, Vorwärts: =True, Format: =True, _
MatchWholeWord: =True) = ausrichten en
y = y + 1
Schleife
Ende mit
CountWordPhrase = CStr (y)
Enden-Funktion
|