Macro para poner arrobas a una palabra wn word

[Eux]

Hola a tod@s,

Me gustaría saber cómo hacer una macro que me haga lo siguiente:

En una tarea que hago, tengo que encuadrar una serie de palabras o frases en el word entre arrobas, ejemplo: @PALABRA@ o @PALABRA1 PALABRA2 PALABRA3@

Para ir más rápido me gustaría poder seleccionar estas palabras y con pulsar un botón que me ponga las dos arrobas para así intentar ahorrar un poco de tiempo dado que es una tarea repetitiva.

¿Sabe alguien como hacerlo?

Gracias.

[rid501]

A priori parece más sencillo usar directamente la opción REEMPLAZAR

[Eux]

Gracias por responder, pero las palabras nunca son iguales, no me sirve el reemplazar

[mrocf]

Hola! Eux (y rid501).

Selecciona el texto a "envolver" con las arrobas y ejecuta:

Código PHP:

  Sub Pre_y_Pos() 
Selection.TypeText Text:="@" & Selection.Text & "@" 
End Sub  
   

Saludos, Cacho R.

[Eux]

Hola mrocf,

¿Y cómo hacer para que ese código se ejecute cada vez que selecciono una/s palabra/s en el word y le aplique las arrobas pulsando una tecla?

No he hecho nunca macros, si me podrías orientar un poco.

Gracias.

[mrocf]

En Word (no me "juego" a decir que en todas las versiones) si presionas simultáneamente las dos teclas:

Alt + F8

te aparecerá la ventana de macros.

Selecciona la macro que te he mostrado y das un click a Ejecutar.

Saludos, Cacho R.

[Eux]

Excelente mrocf, ya he añadido la macro como me has dicho, ya me envuelve la palabra con arrobas pero sólo me falta un detalle si se puede hacer y es asignar esa macro a una combinación del teclado, ojala se pudiera hacer esto que pido. por ejemplo Ctrl + Shift +M (por dar un ejemplo)

Graciasssss

[mrocf]

No has mencionado cual es tu versión de Office / Word... pero podrías intentar lo siguiente:

a) En "alguna parte de tu Word" (jajaja) tendrás: Grabar macro.

b) Se te abrirá una pequeña ventana

-> en el campo Nombre de la macro escribe: Pre_y_Pos

-> en el campo Guardar macros en selecciona el nombre de tu propio documento (o todos los documentos, cosa que no te aconsejo),

-> Y haz click en Teclado

c1) Se te abrirá otra pequeña ventana.
En el campo Nueva tecla de método abreviado presiona las dos teclas:

Alt + A (por ejemplo)

c2) En el campo Guardar cambios en selecciona el nombre de tu documento.

d) Asigna, cierra e inmediatamente: ¡apaga la grabadora de macros!

e) Alt + F8, selecciona nuestra macro: Pre_y_Pos y click en Modificar.

f) Al código visualizado (que deberían ser datos intrascendentes) le incorporas la línea que te he mostrado anteriormente:

Selection.TypeText Text:="@" & Selection.Text & "@"

¡¡¡ "Suerte" !!!

Saludos, Cacho R.