Hola: Proba crear una macro en Microsoft Word con el siguiente c�digo --------------------------------------------------------------------- Sub reemplazo()
'en este ejemplo, se reemplaza la cadena "pepe" por la cadena "lapiz" 'en la primera aparicion de pepe. Tiene un error cuando quiero volver 'a ejecutarlo, pero ya es algo Selection.WholeStory Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend 'Selecciona la cadena general donde debe realizarse el reemplazo fono = "pepe" fono_new = "lapiz" pepi = InStr(Selection, fono) - 1 leto = Len(Selection) letes = Len(fono) dere = leto - (pepi + letes) izqoratio = Left(Selection, pepi) 'determina la parte a la izquierda 'del vocablo a elidir deroratio = Right(Selection, dere) 'pero empieza a contar desde la derecha y no hacia la derecha babel2 = izqoratio + fono_new + deroratio Selection.TypeText Text:=babel2 End Sub --------------------------------------------------------------------- Espero que te (les) sirva. Saludos Carlos -------------------------------------------------------------------- IdeoLengua - Lista de Ling�istica e Idiomas Artificiales Suscr�base en [EMAIL PROTECTED] Informacion en http://ideolengua.cjb.net Desglose tem�tico http://groups.yahoo.com/group/ideolengua/files/Administracion/top-ideol.html Enlaces de Yahoo! Grupos <*> Para visitar tu grupo en Internet, ve a: http://espanol.groups.yahoo.com/group/ideolengua/ <*> Para cancelar tu suscripci�n a este grupo, env�a un mensaje a: [EMAIL PROTECTED] <*> El uso de Yahoo! Grupos est� sujeto a las: http://e1.docs.yahoo.com/info/utos.html
