gracias
Prueba con la macro siguiente:
--------------------------------
Sub Macro7()
'
' Macro7 Macro
' Macro grabada el 28/05/2004 por rsp
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "*^m*^m*^m*^m*^m*^m*^m*^m*^m"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute
Selection.Copy
Documents.Add DocumentType:=wdNewBlankDocument
Selection.Paste
End Sub
-----------------------------
Algo así puede servir. Puedes completar la macro añadiendo algún bucle para
hacerlo repetidas veces.
"victor manuel" <victo...@apdo.com> escribió en el mensaje
news:qiwtc.24272$S7....@twister.auna.com...
>-----Mensaje original-----
>.
>
--
Victor Delgadillo [MVP Access]
Miami, Florida
Consultas al grupo, asi todos nos beneficiamos.
"victor manuel" <victo...@arrakis.es> wrote in message
news:14ac901c44502$21d07fe0$a501...@phx.gbl...