psycolgao
26 de Noviembre del 2003

Estoy haciendo un proyecto y necesito buscar unas palabras que estan dentro de un documento word y reemplazarlas por otras y tengo 50.000 problemas ;)

Esto es lo que hago y no me funcina, he probado muchas cosas y nada:

Dim ruta As String, docu As Word.Document, wordApp As Word.Application, marca As String

ruta = App.Path & "PlantillasReserva.doc"
Set wordApp = CreateObject("Word.Application")
Set docu = wordApp.Documents.Open(ruta)

marca = "xxx"
If wordApp.Documents(ruta).Bookmarks.Exists(marca) = True Then
wordApp.Documents(ruta).Bookmarks(marca).Select
wordApp.Selection.Text = "Hola"
End If
wordApp.Visible = True
Set wordApp = Nothing

y es que siempre me da falso, nunca encuentra la cadena que le paso, y esta ahi.
Le tengo añadido las librerias y eso.
No se que hacer, tengo la cabeza absorvida, no puedo seguir asi.

sdemingo
26 de Noviembre del 2003

Hola,

la marca "xxx" supongo que la tienes en el documento de plantilla como un marcador cuyo valor es "xxx" ¿no?
Es que me he encontrado con alguna que consulta que solo ponía en la plantilla el texto, pero no insertaba el marcador con el valor.

Saludos
sdemingo

psycuelgue
26 de Noviembre del 2003

muchas gracias, llevaba to er dia loko, era eso