indices de word
hola, alguien me puede ayudar? como se gestiona un indice de word desde visual basic?? hay funciones especificas?
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
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