Visual Basic - Buscar varias cadenas de texto a la vez

Life is soft - evento anual de software empresarial
   
Vista:

Buscar varias cadenas de texto a la vez

Publicado por Manulynk (2 intervenciones) el 02/03/2008 21:07:01
Buenas,

Alguien podría orientarme como tengo que hacer para buscar varias cadenas de texto a la vez?

Me explico:

Tengo un documento word al que quiero eliminar varias palabras que se repiten contínuamente. Para hacerlo sólo con una tengo este código:

Dim objWord As Word.Application

Private Sub Command1_Click()
Set objWord = New Word.Application

objWord.Documents.Open "C:Documents and SettingsMNGMJGVMis documentosREEMPLAZO osuch.doc"

With objWord
.Selection.Find.ClearFormatting
.Selection.Find.Replacement.ClearFormatting
With .Selection.Find
.Text = "buscartexto"
.Replacement.Text = "reemplazar texto"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
.Selection.Find.Execute Replace:=wdReplaceAll
End With
End Sub

Pero no sé como hacerlo para que seleccione varias palabras a la vez y lo sustituya por una cadena en blanco.

Alguien puede orientarme?

Gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder