Frage : Bedingte Mitteilung für MsgBox

Liebe Experten:

below Makro-, Höflichkeit, durch „geflattert“ von EE, Listen die Spaltenanzahl und manuelle Spalte bricht pro Abschnitt, wie:

Section 1: Spalten 2 - Spalte bricht (1)
Section 3: Spalten 1 - Spalte bricht (0)
Section 4: Spalten 2 - Spaltenbrüche (1)
etc.

I möchte unter MsgBox mir nur Abschnitte zeigen, in denen Spaltenbrüche und die auszulassen gefunden worden sind, wo keine Spaltenbrüche ermittelt worden sind.

Help wird viel geschätzt.

Thank Sie sehr viel im Voraus.

Regards, Andreas 
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:
6:
37:
38:
39:
40:
41:

Sub ShowColumnInfo ()

Schwaches Doc. als Dokument
I als ganze Zahl verdunkeln
Sek als Abschnitt verdunkeln
Str als Schnur, strColBk verdunkeln als Schnur

    Einstellen Doc. = ActiveDocument
    
    
    Für jede sek in Doc. Abschnitte
        I = i + 1
        strColBk = CountWordPhrase (i, Doc.)
        str = str u. vbCrLf u. „Abschnitt: “ u. i u. „Spalten“ u. Sec.PageSetup.TextColumns.Count u. „-“ u. „ColumnBreaks (“ u. strColBk u. "),“
    Zunächst

    MsgBox „Spalten-Bruch-Info: “ u. str, vbInformation, „Spaltenbruchinfo pro Abschnitt“
    

Enden-Unterseeboot

Private Funktion CountWordPhrase (SecId als ganze Zahl, myDoc als Dokument) als Schnur

Schwaches x als Schnur
Schwaches y als ganze Zahl

    Auf der Störungs-Zusammenfassung zunächst 'nicht wirklich empfohlen aber den Problemen kann auf Entdeckungen geschehen

    x = „^n“ 'Spaltenbruchtext
   
    myDoc.Sections (SecId). Range.Select
    Mit Selection.Find
        Tun während. Durchführen (FindText: =x, Vorwärts: =True, Format: =True, _
           MatchWholeWord: =True) = richten aus
           y = y + 1
        Schleife
    Ende mit

    CountWordPhrase = CStr (y)

Enden-Funktion

Antwort : Bedingte Mitteilung für MsgBox

Dieses versuchen:
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:
6:
37:
38:
39:
40:
41:
42:
43:

Sub ShowColumnInfo ()
 
Doc. als Dokument verdunkeln
I als ganze Zahl verdunkeln
Sek als Abschnitt verdunkeln
Str als Schnur, strColBk verdunkeln als Schnur
 
    Einstellen Doc. = ActiveDocument
     
     
    Für jede sek in Doc. Abschnitte
        I = i + 1
        Wenn (CInt (CountWordPhrase (i, Doc.)) > 0) Dann
            strColBk = CountWordPhrase (i, Doc.)
            str = str u. vbCrLf u. „Abschnitt: “ u. i u. „Spalten“ u. Sec.PageSetup.TextColumns.Count u. „-“ u. „ColumnBreaks (“ u. strColBk u. "),“
        Beenden wenn
    Zunächst
 
    MsgBox „Spalten-Bruch-Info: “ u. str, vbInformation, „Spaltenbruchinfo pro Abschnitt“
     
 
Enden-Unterseeboot
 
Private Funktion CountWordPhrase (SecId als ganze Zahl, myDoc als Dokument) als Schnur
 
Schwaches x als Schnur
Schwaches y als ganze Zahl
 
    Auf der Störungs-Zusammenfassung zunächst  'nicht wirklich empfohlen aber den Problemen kann auf Entdeckungen geschehen
 
    x = „^n“  'Spaltenbruchtext
    
    myDoc.Sections (SecId). Range.Select
    Mit Selection.Find
        Tun während. Durchführen (FindText: =x, Vorwärts: =True, Format: =True, _
           MatchWholeWord: =True) = ausrichten en
           y = y + 1
        Schleife
    Ende mit
 
    CountWordPhrase = CStr (y)
 
Enden-Funktion
Weitere Lösungen  
 
programming4us programming4us