none
Criar sumário - WORD2003 RRS feed

  • Pergunta

  • Eu fiz esse sumário, com os estilos que eu criei.

    Mas quando eu rodo isso, ele pega o que estiver em estilo de título e seção.

    Como eu faço pra não usar esses estilos, e só os meus?

     

     

    With ActiveDocument
            .TablesOfContents(1).Delete
            .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
                True, UseHeadingStyles:=False, IncludePageNumbers:=True, addedstyles _
                :="Capítulomeu;1;Seçãomeu;2;Subseçãomeu;3", _
                 UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels _
                :=False
            .TablesOfContents(1).TabLeader = wdTabLeaderSpaces
            .TablesOfContents.Format = wdIndexIndent
        End With

     

    Obrigada.

    quarta-feira, 30 de abril de 2008 16:21

Todas as Respostas

  • Oi Kopko,

     

     

    defina a ordem dos HeadingStyles. Ex:

     

    Code Snippet

    .TablesOfContents(1).HeadingStyles.Add "Teu estilo 1", 1
    .TablesOfContents(1).HeadingStyles.Add "Teu estilo", 2
    .TablesOfContents(1).HeadingStyles.Add "Heading 1", 3
    .TablesOfContents(1).HeadingStyles.Add "Heading 2", 4
    .TablesOfContents(1).HeadingStyles.Add "Heading 3", 5

     

     

     

    sexta-feira, 2 de maio de 2008 02:41
    Moderador
  •  

    Então.. Eu fiz isso, mas ficou do mesmo jeito.

    Ele coloca no sumário o que estiver com estilo de Título..

     

    Mas obrigada.

    quarta-feira, 7 de maio de 2008 16:41