Macro incremento celdas numeradas

Wallas mouse escribió:

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

Comentario :D !

La macro »


[ Sub insertar_fila()]

Realiza un insercion de fila a lo que es equivalente a »

Nos ponemos en una celda » click en grabar macro » luego click en menu
tabla » insertar filas en la parte inferior y finalizas el grabado

Luego he gestionado un error en el caso de que no te encontraras dentro
de la tabla :-)

Saludos
Monica




www.fermu.com
www.teladearana.es