Sobre macros en MS Word

Question

Sobre macros en MS Word

Archivado

exar kun 14 jun 2006 11:49 *

MegaAdicto!!!

633 mensajes
desde dic 2001

Editado 1 vez. Última: 14/06/2006 - 12:06:03 por exar kun.

*

Me gustaria saber si existe alguna forma de hacer una macro en MS Word que busque lo que haya en ese momento en el portapapeles.

La Macro debería tener esta forma, poniendo Selection.Paste no funciona.

Selection.Find.ClearFormatting
With Selection.Find
.Text = ???????????????
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute

3 respuestas

Answer 1 · 2006-06-14T10:34:07+00:00

A que te refieres con lo de con selection.paste no funciona? Quiero decir que si dices que no busca o que lo que quieres es que busque directamente en el contenido del portapapeles sib pegarlo en el documento?

Private Sub CommandButton1_Click()
Selection.Paste
Selection.Find.ClearFormatting
With Selection.Find
.Text = "solo"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
    
    
End Sub

a mi me ha funcionado esto

lo que hace es pegar el portapapeles en el documento y hacer la busqueda, después puedes elimar lo pegado con selection.Delete, tambien podrias crear un documento nuevo para hacer la busqueda y luego borrarlo.

exar kun 14 jun 2006 13:04 MegaAdicto!!! **633** mensajes desde **dic 2001** · Answer 2 · 2006-06-14T11:04:28+00:00

Yui_K escribió:A que te refieres con lo de con selection.paste no funciona? Quiero decir que si dices que no busca o que lo que quieres es que busque directamente en el contenido del portapapeles sib pegarlo en el documento?

Private Sub CommandButton1_Click() Selection.Paste Selection.Find.ClearFormatting With Selection.Find .Text = "solo" .Replacement.Text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute End Sub

a mi me ha funcionado esto lo que hace es pegar el portapapeles en el documento y hacer la busqueda, después puedes elimar lo pegado con selection.Delete, tambien podrias crear un documento nuevo para hacer la busqueda y luego borrarlo.

No, con esa Macro te sustituira siempre el termino "solo".

Yo necesito una macro que busque lo que haya en ese momento en el portapapeles (que sera diferente segun las circunstancias).

Answer 3 · 2006-06-14T11:21:51+00:00

Yui_K 14 jun 2006 13:21

Saurus Exquisitus

3.819 mensajes
y 1 foto
desde dic 2005
en El Vallès Oriental

ah, vaya no te habia entendido