IVANKO
17 de Junio del 2005

Hola gente!!
Estoy haciendo una pequeña aplicación que pasandole unas palabras me hace un buscar y remplazar en un documento de word de las palabras que yo le he pasado.
Mi problema es que si le paso la letra "a" como parametro para buscar y remplazar me substituye todas las "a" del archivo de word y eso no es lo que me interesa.. me gustaria que alguien me dijera que parametro me falta para que me remplazara solo las "a" que encontrara sueltas no las que pertenezcan a una palabra. Cuando busco y remplazo le paso las variables newWord oldWord.
Mi código es el siguiente:
------------------------------------
Set msWord = GetObject(Class:="Word.Application.8")
msWord.Visible = True
msWord.ActivePrinter = "PDFCreator"
msWord.Documents.Open strSourceFileName

'Voy al archivo INI y busco los remplazos que tengo q hacer en el doc
IniFile.File = Left(strSourceFileName, Len(strSourceFileName) - 3) & "config"
i = IniFile.GetSection("Remplazar", llaves)

For i = 1 To UBound(llaves, 1)
OldWord = llaves(i)
NewWord = IniFile.GetSetting("Remplazar", llaves(i))
'Hacemos un replace

With msWord.ActiveDocument.Content.Find
.ClearFormatting
.Text = OldWord
.Replacement.ClearFormatting
.Replacement.Text = NewWord
.Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
End With
Next

msWord.ActiveDocument.PrintOut
msWord.ActiveDocument.Close False

Set msWord = Nothing
-----------------------------------------------------------------

gracias y saludo

IVANKO
17 de Junio del 2005

He encontrado una solución un poco traperilla pero funciona..

With msWord.ActiveDocument.Content.Find
.ClearFormatting
.Text = " " & OldWord & " "
.Replacement.ClearFormatting
.Replacement.Text = " " & NewWord & " "
.Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
End With

Añadir un espacio delante y detras de las palabras a remplazar..

gracias de todos modos