Cómo nombrar automáticamente imágenes en un documento

Hola Oscar :-)

Al trabajar con documentos largos, con muchas imágenes, si se modifica una
imagen (se elimina, por ejemplo) tengo que volver a nombrar desde esa y hasta
el final. Tengo que trabajar con un documento de 500 páginas lleno de
imágenes, cómo puedo hacer para darle un formato al PIE DE IMAGEN y que si
borro una, la siguiente reste un número (igual que si se tratar de Numeración
y Viñetas, sólo que entre las imágenes hay mucho texto).
Gracias

Bien si ya tienes todas las imagenes en tu documento y quieres ponerles
al pie una secuencia numerica, prueba con el siguiente codigo [ en un
modulo nuevo desde VBA de word ] el siguiente codigo te numerara todas
las imagenes del documento si eliminas una seguira la secuencia numerica
, no obstante al llevar una campo [ autonum ] tendras por si acaso
refrescar el campo en caso de necesidad se refrescan con »

Para un office en Español [ seleccionamos todo el documento con Ctrl+E y
luego tecla F9 ]

Es la unica manera que se me ha ocurrido que puedas hacerlo con dicho
campo y Luego el siguiente codigo sirve para nuevas imagenes en el
documento [ te insertara la secuencia numerica exacta ya pongas la
imagen el inicio al final o al medio del documento ] y aqui si sera
necesario que refresques el campo ok? :-) [ no lo he añadido al codigo
porque estaba ya agotada jajajajaja! :-P ]


'[]

Sub Insertar_numeracion_Image()

Dim x As Object

For Each x In ActiveDocument.InlineShapes

With x.Select

With Selection
.InsertAfter vbCr & "imagen Nº" _
& vbCr
.MoveDown Unit:=wdLine, Count:=1
.TypeBackspace
.Fields.Add Range:=Selection.Range, _
Type:=wdFieldSequence, _
Text:="AUTONUM \* Arabic", _
PreserveFormatting:=True
.TypeText Text:=" " & vbTab
'Las siguientes lineas al gusto _
se pueden suprimir o poner una u otra
'.EndOf Unit:=wdStory o .HomeKey Unit:=wdStory

End With
End With

Next

End Sub

'[]
'-
'[]

Sub Insertar_field_Autonum()
With Selection
.TypeText Text:=" imagen Nº" & vbCr
.TypeBackspace
.Fields.Add Range:=Selection.Range, _
Type:=wdFieldSequence, _
Text:="AUTONUM \* Arabic", _
PreserveFormatting:=True
End With

End Sub
'[]


Y si no me he colado y cualquier duda y demas... nos comentas ok? :-)

SAludos
Monica




Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com