Pytanie : Przypusczający wiadomość dla MsgBox

Kochany Ekspert:

below macro, kurtuazja "wobbled" od EE, spisywać the liczba kolumna i ręczny szpaltowy przerwa na sekcja, tak jak:

Section (1): Kolumna 2 - Kolumna łamać (1)
Section 3: Kolumna (1) - Szpaltowy przerwa ((0))
Section 4: Kolumna 2 - Kolumna łamać (1)
etc.

I polubić pod MsgBox tylko sekcja dokąd szpaltowy przerwa znajdować i the mnie dokąd żadny szpaltowy przerwa wykrywać.

Help dużo doceniać.

Thank ty bardzo mocno w postęp.

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:
36:
37:
38:
39:
40:
41:

Sub ShowColumnInfo ()

Ciemnawy doc Dokument
Ćmić i Jako Integer
Ćmić Sec Jako Sekcja
Ćmić str Jako Sznurek, strColBk Sznurek

    Ustawiać doc = ActiveDocument
    
    
    Dla Each Sec W doc. Sekcja
        i = i + (1)
        strColBk = CountWordPhrase (i, doc)
        str = str & vbCrLf & "Sekcja: " & i & "Kolumna" & Sec.PageSetup.TextColumns.Count & "-" & "ColumnBreaks (" & strColBk & "),"
    Następnie

    MsgBox "Szpaltowy Przerwa Info: " & str, vbInformation, "Szpaltowy przerwa info na sekcja"
    

Końcówka Okręt podwodny

Intymny Funkcja CountWordPhrase (SecId Jako Integer, myDoc Dokument) Sznurek

Ciemnawy x Sznurek
Ciemnawy y Jako Integer

    Na Błąd Życiorys Następnie 'naprawdę polecać ale problem móc na znalezisko

    x = "^n" 'szpaltowy przerwa tekst
   
    myDoc.Sections (SecId). Range.Select
    Z Selection.Find
        Robić Podczas Gdy. Wykonywać (FindText: =x, Przedni: =True, Format: =True, _
           MatchWholeWord: =True) = Prawdziwy
           y = y + (1)
        Pętla
    Końcówka Z

    CountWordPhrase = CStr (y)

Końcówka Funkcja

Odpowiedź : Przypusczający wiadomość dla MsgBox

Próbować to:
(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:

Okręt podwodny ShowColumnInfo ()
 
Ciemnawy doc Dokument
Ćmić i Jako Integer
Ćmić Sec Jako Sekcja
Ćmić str Jako Sznurek, strColBk Sznurek
 
    Ustawiać doc = ActiveDocument
     
     
    Dla Each Sec W doc. Sekcja
        i = i + (1)
        Jeżeli (CInt (CountWordPhrase (i, doc)) > (0)) Wtedy
            strColBk = CountWordPhrase (i, doc)
            str = str & vbCrLf & "Sekcja: " & i & "Kolumna" & Sec.PageSetup.TextColumns.Count & "-" & "ColumnBreaks (" & strColBk & "),"
        Kończyć Jeżeli
    Następnie
 
    MsgBox "Szpaltowy Przerwa Info: " & str, vbInformation, "Szpaltowy przerwa info na sekcja"
     
 
Końcówka Okręt podwodny
 
Intymny Funkcja CountWordPhrase (SecId Jako Integer, myDoc Dokument) Sznurek
 
Ciemnawy x Sznurek
Ciemnawy y Jako Integer
 
    Na Błąd Życiorys Następnie  'naprawdę polecać ale problem móc na znalezisko
 
    x = "^n"  'szpaltowy przerwa tekst
    
    myDoc.Sections (SecId). Range.Select
    Z Selection.Find
        Robić Podczas Gdy. Wykonywać (FindText: =x, Przedni: =True, Format: =True, _
           MatchWholeWord: =True) = Prawdziwy
           y = y + (1)
        Pętla
    Końcówka Z
 
    CountWordPhrase = CStr (y)
 
Końcówka Funkcja
Inne rozwiązania  
 
programming4us programming4us