Question : Créer les repères pour certaines sections

Chers experts : le macro du

below exécute ce qui suit : la section du
Each qui contient le modèle intégré de titre (wdStyleHeading2) obtient bookmarked. La nomination des repères est comme suit : Section_Bookmark_i (I = nombre séquentiel). le macro du

This devrait être… le
… de sorte que les repères obtiennent appelés : Section_Bookmark_DE ; Section_Bookmark_EN ; Section_Bookmark_ES ; Section_Bookmark_FR ; Section_Bookmark_IT (qu'est à dire le nom « Section_Bookmark_ » de repère obtient apposé par De, en, es, franc, IL). suivre du

The s'applique à tous les documents contre lesquels ce macro est couru : le
There sont toujours exactement 5 sections qui assortissent le
de condition…… (ReDim HasHeading2 (ActiveDocument.Sections.Count))le

Help est beaucoup apprécié. Merci 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 :
>Sub " de l'id= " codeSnippet829379 de
class= de

Réponse : Créer les repères pour certaines sections

C'est un petit coup sec.
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :

BKMCreatePerSection2 secondaires ()
    Faible rng comme gamme
    Faible sec comme section
    Obscurcir I comme nombre entier
    Obscurcir le suffixe () comme corde
    Obscurcir le rngBookmark comme gamme
    
    Le suffixe = s'est dédoublé (« De, en, es, franc, IL », », ")
 
    Pour chaque sec dans ActiveDocument.Sections
        Placer le rng = le Sec.Range
        Avec le rng. Trouvaille
            . Le format = rectifient
            . Modèle = ActiveDocument.Styles (wdStyleHeading2)
            Placer le rngBookmark = le Sec.Range
            wdCharacter de rngBookmark.MoveEnd, -1
            Si. Exécuter alors
                ActiveDocument.Bookmarks.Add « Section_Bookmark_ » et suffixe (i), rngBookmark
                i = I + 1
            Finir si
        Finir avec
    La sec prochaine
        
Sous-marin d'extrémité
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