Sub ShowColumnInfo ()
Oscurare il documento come documento
Oscurare la i come numero intero
Oscurare sec come sezione
Oscurare lo streptococco come stringa, strColBk come stringa
Regolar documento = ActiveDocument
Per ogni sec nel documento. Sezioni
i = i + 1
Se (CInt (CountWordPhrase (i, documento)) > 0) Allora
strColBk = CountWordPhrase (i, documento)
streptococco = streptococco & vbCrLf & “sezione: „ & i & “colonne„ & Sec.PageSetup.TextColumns.Count & “-„ & “ColumnBreaks (" & strColBk & "),„
Concluder se
Dopo
Rottura Info della colonna di MsgBox “: „ & streptococco, vbInformation, “rottura Info della colonna per sezione„
Sommergibile dell'estremità
Funzione riservata CountWordPhrase (SecId come numero intero, myDoc come documento) come stringa
X fioca come stringa
Y fioco come numero intero
Sul riassunto di errore dopo 'non realmente suggerito ma sui problemi può accadere sui ritrovamenti
x = “^n„ 'testo della rottura della colonna
myDoc.Sections (SecId). Range.Select
Con Selection.Find
Fare mentre. Eseguire (FindText: =x, di andata: =True, disposizione: =True, _
MatchWholeWord: il =True) = allinea
y = y + 1
Ciclo
Estremità con
CountWordPhrase = CStr (y)
Funzione di conclusione
|