Pergunta : Mensagem condicional para MsgBox

Caros peritos: o macro do

below, a cortesia pelo “balanç” da EE, as lista o número de colunas e a coluna manual quebram por a seção, como:

Section 1: Colunas 2 - A coluna quebra (1)
Section 3: Colunas 1 - A coluna quebra (0)
Section 4: Colunas 2 - O

I das rupturas (1)
etc. da coluna gostaria abaixo de MsgBox de mostrar-me somente as seções onde as rupturas da coluna foram encontradas e para omitir esses onde nenhuma ruptura da coluna foi detetada. o

Help é apreciado muito.

Thank você muito adiantado.

Regards, Andreas class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
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 " do class= " do id= " codeSnippet835418 do
class= do

Resposta : Mensagem condicional para MsgBox

Tentar isto:
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 ()
 
Escurecer o doc como o original
Escurecer i como o inteiro
Escurecer o segundo como a seção
Escurecer o estreptococo como a corda, strColBk como a corda
 
    Ajustar doc = ActiveDocument
     
     
    Para cada segundo no doc. Seções
        i = i + 1
        Se (CInt (CountWordPhrase (i, doc)) > 0) Então
            strColBk = CountWordPhrase (i, doc)
            estreptococo = estreptococo & vbCrLf & “seção: ” & i & “colunas” & Sec.PageSetup.TextColumns.Count & “-” & “ColumnBreaks (” & strColBk & "),”
        Terminar se
    Em seguida
 
    Informação da ruptura coluna de MsgBox da “: ” & estreptococo, vbInformation, “informação da ruptura da coluna por a seção”
     
 
Submarino da extremidade
 
Função confidencial CountWordPhrase (SecId como o inteiro, myDoc como o original) como a corda
 
X não ofuscante como a corda
Y não ofuscante como o inteiro
 
    No resumo do erro recomendado  em seguida 'não realmente mas nos problemas pode acontecer em achados
 
    x = “^n”  'texto da ruptura da coluna
    
    myDoc.Sections (SecId). Range.Select
    Com Selection.Find
        Fazer quando. Executar (FindText: =x, para diante: =True, formato: =True, _
           MatchWholeWord: o =True) = retifica
           y = y + 1
        Laço
    Extremidade com
 
    CountWordPhrase = CStr (y)
 
Função do fim
Outras soluções  
 
programming4us programming4us