Hola compañeros de abatares,
Estoy haciendo una aplicación en Delphi que me permite editar un documento de Word, y sustituye algunos Marcadores (Bookmarks) por contenidos de la aplicación.
Código:
Marcador:='FechaHoy';
Contenido:=Edit4.Text;
MiDocumento.Bookmarks.Item(Marcador).Range.Text:=Contenido;
Hasta ahí todo correcto, pero cuando edito varias veces ese documento no elimina el contenido anterior del marcador, y lo repite tantas veces como lo haya editado:
Esta sería el resultado de editar el documento 3 veces:
Fecha: 31/07/2006.31/07/2006.31/072006.
Tras un montón de intentos de solventar este problema en delphi, se me ha ocurrido crear una Macro en Word que elimine el contenido de todos los marcadores:
Código:
Sub Macro1() AutoOpen
'
' Macro1 Macro
' Macro grabada el 31/07/2006 por mi.
' "&chr(10)&"Limpiar el contenido de los marcadores al abrir el documento
'
With ActiveDocument.Bookmarks
.Text = "***"
End With
End Sub
Pero no funciona.
¿Alguien puede ayudarme?
gracias por anticipado