Substrater ShowColumnInfo ()
Obscurcir le Doc. comme document
Obscurcir I comme nombre entier
Obscurcir sec comme section
Obscurcir le streptocoque comme corde, strColBk comme corde
Placer Doc. = ActiveDocument
Pour chaque sec dans le Doc. Sections
i = I + 1
Si (CInt (CountWordPhrase (I, Doc.)) > 0) Puis
strColBk = CountWordPhrase (I, Doc.)
streptocoque = streptocoque et vbCrLf et « section : » et I et « colonnes » et Sec.PageSetup.TextColumns.Count et « - » et « ColumnBreaks (" et strColBk et "), »
Finir si
Après
Information de coupure de colonne de MsgBox « : » et streptocoque, vbInformation, « information de coupure de colonne par section »
Sous-marin d'extrémité
Fonction privée CountWordPhrase (SecId comme nombre entier, myDoc comme document) comme corde
Faible x comme corde
Faible y comme nombre entier
Sur le résumé d'erreur après 'pas vraiment recommandé mais sur les problèmes peut se produire sur des trouvailles
X = « ^n » 'texte de coupure de colonne
myDoc.Sections (SecId). Range.Select
Avec Selection.Find
Faire tandis que. Exécuter (FindText : =x, vers l'avant : =True, format : =True, _
MatchWholeWord : le =True) = rectifient
y = y + 1
Boucle
Extrémité avec
CountWordPhrase = CStr (y)
Fonction de fin
|
