Fråga : Villkorligt meddelande för MsgBox

Kära experter: makroen för

below, artighet, vid ”vacklat” från EE, listar numrera av kolonner, och den manuella kolonnen bryter per delar upp, liksom:

Section 1: Kolonner 2 - Kolonnen bryter (1)
Section 3: Kolonner 1 - Kolonnen bryter (0)
Section 4: Kolonner 2 - Kolonnen bryter (1)
etc.

I skulle lika nedanföra MsgBox för att visa mig delar upp att endast var kolonnavbrott har funnits och att utelämna de var inga kolonnavbrott har avkänts.

Help uppskattas mycket.

Thank dig mycket i förskott.

Regards, Andreas > för 
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:
" codeBody " " >Sub ShowColumnInfo för class= " för
" klar "

Svar : Villkorligt meddelande för MsgBox

Försök detta:
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:

UnderShowColumnInfo ()
 
Dunkel doc som dokument
Dunkelt I som heltal
Dunkel sekund som delar upp
Dunkel str som stränger, strColBk som stränger
 
    Uppsättning doc = ActiveDocument
     
     
    För varje sekund i doc. Delar upp
        i = I + 1
        Om (CInt (CountWordPhrase (I, doc)) > 0) Därefter
            strColBk = CountWordPhrase (I, doc)
            stren = stren & vbCrLf & ”delar upp: ” & I & ”kolonner” & Sec.PageSetup.TextColumns.Count & ”-” & ”ColumnBreaks (” & strColBk & ”),”,
        Avsluta om
    Därefter
 
    MsgBox ”kolonnavbrott info: ” & stren, vbInformation, ”kolonnavbrottet info per delar upp”,
     
 
Avsluta suben
 
Privat fungera CountWordPhrase (SecId som heltal, myDoc som dokument) som stränger
 
Dunkelt x som stränger
Dunkelt y som heltal
 
    På felmeritförteckningen därefter  'som rekommenderas inte egentligen, men problem kan hända på fynd
 
    x = ”^n”  'kolonnavbrottstext
    
    myDoc.Sections (SecId). Range.Select
    Med Selection.Find
        Gör stunder. Utför (FindText: =x som är framåt: =True formaterar: =True _,
           MatchWholeWord: =True) = True
           y = y + 1
        Kretsa
    Avsluta med
 
    CountWordPhrase = CStr (y)
 
Avsluta fungerar
Andra lösningar  
 
programming4us programming4us