UnderShowColumnInfo ()
Dunkel doc som dokument
Dunkelt I som heltal
Dunkel sekund som delar upp
Dunkel str som stränger, strColBk som stränger
Uppsättning doc = ActiveDocument
För varje sekund i doc. Delar upp
i = I + 1
Om (CInt (CountWordPhrase (I, doc)) > 0) Därefter
strColBk = CountWordPhrase (I, doc)
stren = stren & vbCrLf & ”delar upp: ” & I & ”kolonner” & Sec.PageSetup.TextColumns.Count & ”-” & ”ColumnBreaks (” & strColBk & ”),”,
Avsluta om
Därefter
MsgBox ”kolonnavbrott info: ” & stren, vbInformation, ”kolonnavbrottet info per delar upp”,
Avsluta suben
Privat fungera CountWordPhrase (SecId som heltal, myDoc som dokument) som stränger
Dunkelt x som stränger
Dunkelt y som heltal
På felmeritförteckningen därefter 'som rekommenderas inte egentligen, men problem kan hända på fynd
x = ”^n” 'kolonnavbrottstext
myDoc.Sections (SecId). Range.Select
Med Selection.Find
Gör stunder. Utför (FindText: =x som är framåt: =True formaterar: =True _,
MatchWholeWord: =True) = True
y = y + 1
Kretsa
Avsluta med
CountWordPhrase = CStr (y)
Avsluta fungerar
|