Cuestión : Mensaje condicional para MsgBox

Estimados expertos: la macro del

below, la cortesía por “bamboleado” de EE, las listas el número de columnas y la columna manual se rompe por la sección, por ejemplo:

Section 1: Columnas 2 - La columna rompe (1)
Section 3: Columnas 1 - La columna rompe (0)
Section 4: Columnas 2 - El

I de las roturas (1)
etc. de la columna quisiera debajo de MsgBox demostrarme solamente las secciones donde se han encontrado las roturas de la columna y omitir los donde no se ha detectado ningunas roturas de la columna. el

Help se aprecia mucho.

Thank usted mucho por adelantado.

Regards, Andreas class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 notpretty ShowColumnInfo " del class= " del id= " codeSnippet835418 del
class= del

Respuesta : Mensaje condicional para MsgBox

Intentar esto:
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 ()
 
Amortiguar el doc. como documento
Amortiguar i como número entero
Amortiguar el Sec como sección
Amortiguar el str como secuencia, strColBk como secuencia
 
    Fijar doc. = ActiveDocument
     
     
    Para cada Sec en el doc. Secciones
        i = i + 1
        Si (CInt (CountWordPhrase (i, doc.)) > 0) Entonces
            strColBk = CountWordPhrase (i, doc.)
            str = str y vbCrLf y “sección: ” y i y “columnas” y Sec.PageSetup.TextColumns.Count y “-” y “ColumnBreaks (” y strColBk y "),”
        Terminar si
    Después
 
    Rotura Info de la columna de MsgBox “: ” y str, vbInformation, “rotura Info de la columna por la sección”
     
 
Submarino del extremo
 
Función privada CountWordPhrase (SecId como número entero, myDoc como documento) como secuencia
 
X dévil como secuencia
Y dévil como número entero
 
    En el curriculum vitae del error recomendado  después 'no realmente pero problemas puede suceder en hallazgos
 
    x = “^n”  'texto de la rotura de la columna
    
    myDoc.Sections (SecId). Range.Select
    Con Selection.Find
        Hacer mientras que. Ejecutar (FindText: =x, delantero: =True, formato: =True, _
           MatchWholeWord: el =True) = verdad
           y = y + 1
        Lazo
    Extremo con
 
    CountWordPhrase = CStr (y)
 
Función del final
Otras soluciones  
 
programming4us programming4us