Macro incremento celdas numeradas

Wallas mouse escribió:
Mostrar la cita

Hola a todos,

Quisiera crear una macro que generara una tabla, y esta fuera incrementado
filas. En la celda inicial enumerar cada fila. He intentado crearla grabando
la macro pero soy incapaz.

Gracias por vuestra ayuda.

Hola,

Para crear una tabla de una fila y dos columnas con numeracion SOLAmente
en la primera fila [A1] ya que se van a añadir mas filas [esto lo
comento por el hecho de que se quiera insertar una tabla con mas filas
pues solo numera [A1] luego al querer insertar mas filas ya sigue su
numeracion inicial ya que es una simple insercion de [ numeracion y
viñetas ] y solo insertando a mano :

Una tabla y de una fila y [ 3 ] columnas o las que se quieran y nos
situamos en la celda [ A1] vamos a barra de herramientas formato y click
en Numeracion » luego con la tecla [ Tab ] recorremos desde [ a1] hasta
[ a3 ] y te inserta una fila con numeracion correlativa :-)

aqui el codigo »

'


Sub insertar_tabla()

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1,
NumColumns:=2, _
DefaultTableBehavior:=wdWord9TableBehavior, _
AutoFitBehavior:=wdAutoFitFixed

With ListGalleries(wdNumberGallery).ListTemplates(7).ListLevels(1)
.NumberFormat = "%1."
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = CentimetersToPoints(0.63)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(1.27)
.TabPosition = CentimetersToPoints(1.27)
.ResetOnHigher = 0
.StartAt = 1

End With

ListGalleries(wdNumberGallery).ListTemplates(7).Name = ""
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
wdNumberGallery).ListTemplates(7)

End Sub

'--

Para insertar filas una vez creada esa FILA »


Sub insertar_fila()

If Selection.Information(wdWithInTable) Then
Selection.InsertRowsBelow 1
Else
MsgBox "estas fuera de la tabla sito ultima fila "
End If

End Sub

'--


Comentanos !

Saludos
Monica






www.fermu.com
www.teladearana.es