Question : Message conditionnel pour MsgBox

Chers experts : le macro du

below, la courtoisie par « vacillé » d'EE, les listes le nombre de colonnes et la colonne manuelle se casse par section, comme :

Section 1 : Colonnes 2 - La colonne casse (1)
Section 3 : Colonnes 1 - La colonne casse (0)
Section 4 : Colonnes 2 - Le

I des coupures (1)
etc. de colonne voudrait au-dessous de MsgBox me montrer seulement des sections où des coupures de colonne ont été trouvées et omettre ceux où aucune coupure de colonne n'a été détectée. le

Help est beaucoup apprécié.

Thank vous beaucoup à l'avance.

Regards, Andreas class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 " de l'id= " codeSnippet835418 de
class= de

Réponse : Message conditionnel pour MsgBox

Essayer ceci :
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 :

Substrater ShowColumnInfo ()
 
Obscurcir le Doc. comme document
Obscurcir I comme nombre entier
Obscurcir sec comme section
Obscurcir le streptocoque comme corde, strColBk comme corde
 
    Placer Doc. = ActiveDocument
     
     
    Pour chaque sec dans le Doc. Sections
        i = I + 1
        Si (CInt (CountWordPhrase (I, Doc.)) > 0) Puis
            strColBk = CountWordPhrase (I, Doc.)
            streptocoque = streptocoque et vbCrLf et « section :  » et I et « colonnes » et Sec.PageSetup.TextColumns.Count et « - » et « ColumnBreaks (" et strColBk et "), »
        Finir si
    Après
 
    Information de coupure de colonne de MsgBox « :  » et streptocoque, vbInformation, « information de coupure de colonne par section »
     
 
Sous-marin d'extrémité
 
Fonction privée CountWordPhrase (SecId comme nombre entier, myDoc comme document) comme corde
 
Faible x comme corde
Faible y comme nombre entier
 
    Sur le résumé d'erreur après  'pas vraiment recommandé mais sur les problèmes peut se produire sur des trouvailles
 
    X = « ^n »  'texte de coupure de colonne
    
    myDoc.Sections (SecId). Range.Select
    Avec Selection.Find
        Faire tandis que. Exécuter (FindText : =x, vers l'avant : =True, format : =True, _
           MatchWholeWord : le =True) = rectifient
           y = y + 1
        Boucle
    Extrémité avec
 
    CountWordPhrase = CStr (y)
 
Fonction de fin
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us