Cuestión : Crear las señales para ciertas secciones

Estimados expertos: la macro del

below realiza el siguiente: la sección del
Each que contiene el estilo incorporado del título (wdStyleHeading2) consigue marcada una dirección de la Internet. El nombramiento de las señales es como sigue: Section_Bookmark_i (i = número secuencial). la macro del

This debe ser… el
… de modo que las señales consigan nombradas: Section_Bookmark_DE; Section_Bookmark_EN; Section_Bookmark_ES; Section_Bookmark_FR; Section_Bookmark_IT (que es el nombre “Section_Bookmark_” de la señal consigue añadido por DE, EN, ES, el franco, ÉL). lo que sigue del

The se aplica a todos los documentos contra los cuales se funciona con esta macro: el
There es siempre exactamente 5 secciones que emparejan el
del requisito…… (ReDim HasHeading2 (ActiveDocument.Sections.Count))el

Help se aprecia mucho. Gracias mucho por adelantado.

Regards, Andreas class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 notpretty BKMCreatePerSection " del class= " del id= " codeSnippet829379 del
class= del

Respuesta : Crear las señales para ciertas secciones

Eso es un pequeño pellizco.
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 secundarios ()
    Rng dévil como gama
    Sec dévil como sección
    Amortiguar i como número entero
    Amortiguar el sufijo () como secuencia
    Amortiguar el rngBookmark como gama
    
    El sufijo = partió (“DE, EN, ES, franco, ÉL”,”, ")
 
    Para cada Sec en ActiveDocument.Sections
        Fijar el rng = Sec.Range
        Con el rng. Hallazgo
            . El formato = verdad
            . Estilo = ActiveDocument.Styles (wdStyleHeading2)
            Fijar el rngBookmark = Sec.Range
            wdCharacter de rngBookmark.MoveEnd, -1
            Si. Entonces ejecutar
                ActiveDocument.Bookmarks.Add “Section_Bookmark_” y sufijo (i), rngBookmark
                i = i + 1
            Terminar si
        Terminar con
    El Sec próximo
        
Submarino del extremo
Otras soluciones  
 
programming4us programming4us