Vraag : Voorwaardelijk bericht voor MsgBox

Beste Deskundigen:

below de macro, hoffelijkheid door „gewaggeld“ van EE, maakt een lijst van het aantal kolommen en handkolomonderbrekingen per sectie, zoals:

Section 1: Kolommen 2 - de onderbrekingen (1)
Section 3 van de Kolom: Kolommen 1 - de onderbrekingen van de Kolom (0)
Section 4: Kolommen 2 - de onderbrekingen van de Kolom (1)
etc.

I zouden onder MsgBox me slechts secties willen tonen waar de kolomonderbrekingen zijn gevonden en degenen weggelaten waar geen kolomonderbrekingen zijn ontdekt.

Help wordt veel gewaardeerd.

Thank u zeer vooraf.

Regards, Andreas
" codeBody " 
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 ()

Schemerig doc. als Document
Schemerige I als Geheel
Schemerige Seconde als Sectie
Schemerige streptokok als Koord, strColBk als Koord

    Vastgesteld doc. = ActiveDocument
    
    
    Voor Elke Seconde in doc. Secties
        i = I + 1
        strColBk = CountWordPhrase (I, doc.)
        streptokok = streptokok & vbCrLf & „Sectie: “ & I & „Kolommen“ & Sec.PageSetup.TextColumns.Count & „-“ & „ColumnBreaks (“ & strColBk & „),“
    Daarna

    Info van de Onderbreking van de Kolom van MsgBox „: “ & streptokok, vbInformation, „de onderbrekingsinfo van de Kolom per sectie“
    

Sub van het eind

Privé Functie CountWordPhrase (SecId als Geheel, myDoc als Document) als Koord

Schemerig x als Koord
Schemerig y als Geheel

    Op Fout hervat daarna 'niet werkelijk geadviseerd maar de problemen kunnen op vondsten gebeuren

    x = „^n“ 'de tekst van de kolomonderbreking
   
    myDoc.Sections (SecId). Range.Select
    Met Selection.Find
        Doe terwijl. Voer uit (FindText: =x, door:sturen: =True, Formaat: =True, _
           MatchWholeWord: =True) = Waar
           y = y + 1
        Lijn
    Eind met

    CountWordPhrase = CStr (y)

De Functie van het eind

Antwoord : Voorwaardelijk bericht voor MsgBox

Probeer dit:
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 ()
 
Schemerig doc. als Document
Schemerige I als Geheel
Schemerige Seconde als Sectie
Schemerige streptokok als Koord, strColBk als Koord
 
    Vastgesteld doc. = ActiveDocument
     
     
    Voor Elke Seconde in doc. Secties
        i = I + 1
        Als (CInt (CountWordPhrase (I, doc.)) > 0) toen
            strColBk = CountWordPhrase (I, doc.)
            streptokok = streptokok & vbCrLf & „Sectie: “ & I & „Kolommen“ & Sec.PageSetup.TextColumns.Count & „-“ & „ColumnBreaks (“ & strColBk & „),“
        Eind als
    Daarna
 
    Info van de Onderbreking van de Kolom van MsgBox „: “ & streptokok, vbInformation, „de onderbrekingsinfo van de Kolom per sectie“
     
 
Sub van het eind
 
Privé Functie CountWordPhrase (SecId als Geheel, myDoc als Document) als Koord
 
Schemerig x als Koord
Schemerig y als Geheel
 
    Op Fout hervat daarna  'niet werkelijk geadviseerd maar de problemen kunnen op vondsten gebeuren
 
    x = „^n“  'de tekst van de kolomonderbreking
    
    myDoc.Sections (SecId). Range.Select
    Met Selection.Find
        Doe terwijl. Voer uit (FindText: =x, door:sturen: =True, Formaat: =True, _
           MatchWholeWord: =True) = Waar
           y = y + 1
        Lijn
    Eind met
 
    CountWordPhrase = CStr (y)
 
De Functie van het eind
Andere oplossingen  
 
programming4us programming4us