Pergunta : Criar marcador para determinadas seções

Caros peritos: o macro do

below executa o seguinte: a seção do
Each que contem o estilo interno do título (wdStyleHeading2) começ marcada um endereço da Internet. A nomeação dos marcador é como segue: Section_Bookmark_i (i = número seqüencial). o macro do

This deve ser… o
… de modo que os marcador começ nomeados: Section_Bookmark_DE; Section_Bookmark_EN; Section_Bookmark_ES; Section_Bookmark_FR; Section_Bookmark_IT (de que é o nome “Section_Bookmark_” do marcador começ adicionado por DE, por EN, por ES, por franco, ELE). o seguimento do

The aplica-se a todos os originais de encontro a que este macro é funcionado: o
There é sempre exatamente 5 seções que combinam o
da exigência…… (ReDim HasHeading2 (ActiveDocument.Sections.Count))o

Help é apreciado muito. Obrigado 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:
>Sub notpretty BKMCreatePerSection " do class= " do id= " codeSnippet829379 do
class= do

Resposta : Criar marcador para determinadas seções

Aquela é uma emenda pequena.
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 secundários ()
    Rng não ofuscante como a escala
    Segundo não ofuscante como a seção
    Escurecer i como o inteiro
    Escurecer o sufixo () como a corda
    Escurecer o rngBookmark como a escala
    
    Sufixo = separação (“DE, EN, ES, franco, ELE”,”, ")
 
    Para cada segundo em ActiveDocument.Sections
        Ajustar o rng = o Sec.Range
        Com rng. Achado
            . O formato = retifica
            . Estilo = ActiveDocument.Styles (wdStyleHeading2)
            Ajustar o rngBookmark = o Sec.Range
            wdCharacter de rngBookmark.MoveEnd, -1
            Se. Executar então
                ActiveDocument.Bookmarks.Add “Section_Bookmark_” & sufixo (i), rngBookmark
                i = i + 1
            Terminar se
        Terminar com
    O próximo segundo
        
Submarino da extremidade
Outras soluções  
 
programming4us programming4us