Questione : Messaggio condizionale per MsgBox

Cari esperti: la macro del

below, la cortesia tramite “vacillato„ dall'EE, le liste il numero delle colonne e la colonna manuale si rompe per sezione, come:

Section 1: Colonne 2 - La colonna si rompe (1)
Section 3: Colonne 1 - La colonna rompe (0)
Section 4: Colonne 2 - La colonna si rompe (

I di 1)
etc. vorrebbe sotto MsgBox mostrarmi soltanto le sezioni in cui le rotture della colonna sono state trovate ed omettere quei dove nessuna rottura della colonna è stata rilevata. il

Help molto è apprezzato.

Thank voi molto in anticipo.

Regards, Andreas class= > " libero " 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

Risposta : Messaggio condizionale per MsgBox

Provare questo:
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 ()
 
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
Altre soluzioni  
 
programming4us programming4us