indices de word

ele
07 de Enero del 2004
hola, alguien me puede ayudar? como se gestiona un indice de word desde visual basic?? hay funciones especificas?

sdemingo
07 de Enero del 2004
Te creas dos marcadores, entre los cuales irá el índice.
Te creas tus propios estilos para generar el índice o bien utilizas los propios de word. En mi ejemplo, yo me he creado los estilos HDPU1 a HDPU4.

Dim myrange As Object

Set myrange = ActiveDocument.Range _
(Start:=ActiveDocument.Bookmarks(inicio).Range.Start, _
End:=ActiveDocument.Bookmarks(fin).Range.End)

With ActiveDocument
.TablesOfContents.Add Range:=myrange, RightAlignPageNumbers:= _
True, UseHeadingStyles:=False, UseFields:=True, TableID:="C", _
IncludePageNumbers:=True, AddedStyles:= _
"HDPU1;1;HDPU2;2;HDPU3;3;HDPU4;4", UseHyperlinks:=True, _
HidePageNumbersInWeb:=True
.TablesOfContents(1).TabLeader = wdTabLeaderDots
.TablesOfContents.Format = 2
End With


Saludos
sdemingo