Вопрос : Условно сообщение для MsgBox

Дорогие специалисты: макрос

below, учтивость «после того как я вихляны» от EE, списки число колонок и ручная колонка ломают в раздел, как:

Section 1: Колонки 2 - Колонка ломает (1)
Section 3: Колонки 1 - Колонка ломает (0)
Section 4: Колонки 2 - Колонка ломает (1)
etc.

I хотел было бы под MsgBox показать мне только разделы где были ы проломы колонки и снять одни где никакие проломы колонки не были обнаружены.

Help очень оценено.

Thank вы очень много заранее.

Regards, Andreas class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
>Sub ShowColumnInfo " class= " id= " codeSnippet835418
class=

Ответ : Условно сообщение для MsgBox

Попытайтесь это:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

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)
 
Функция конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us