Sub ShowColumnInfo ()
Затемните doc как документ
Затемните I как интежер
Затемните Sec как раздел
Затемните str как шнур, strColBk как шнур
Установите doc = ActiveDocument
На каждый Sec в doc. Разделы
iий = I + 1
Если (CInt, то (CountWordPhrase (I, doc)) > 0) После этого
strColBk = CountWordPhrase (I, doc)
str = str & vbCrLf & «раздел: » & I & «колонки» & Sec.PageSetup.TextColumns.Count & «-» & «ColumnBreaks (" & strColBk & "),»
Закончитесь если
Затем
Пролом Info колонки MsgBox «: » & str, vbInformation, «пролом info колонки в раздел»
Подводная лодка конца
Приватная функция CountWordPhrase (SecId как интежер, myDoc как документ) как шнур
Тусклый x как шнур
Тусклый y как интежер
На реально порекомендованном резюме ошибки затем 'но проблемах смогите случиться на находках
x = «^n» 'текст пролома колонки
myDoc.Sections (SecId). Range.Select
С Selection.Find
Сделайте пока. Исполните (FindText: =x, переднее: =True, форма: =True, _
MatchWholeWord: =True) = True
y = y + 1
Петля
Конец с
CountWordPhrase = CStr (y)
Функция конца
|