Ir al proximo Enter

07/05/2010 - 17:50 por Compumakro | Informe spam
Éste es un mensaje de varias partes en formato MIME.
=_NextPart_000_00C9_01CAEDD3.1EE29A90

Amigos de Word2007
Buen día.
¿Cómo sería para hacer una Macro (o por código), para ir al próximo Enter
1.. ¶... poner una "," (coma) y luego un "Suprimir" para traer el siguiente renglónpara hacer lo siguiente:
RF20
WQ78
HJ67
YT90
QA15
XZ50
KL75

RF20,WQ78,HJ67,YT90,QA15,XZ50,KL75

El listado de piezas son como 2500 y se ocupan muchas hojas para la impresión hay que reducirlas

Gracias y saludos

Oscar
=_NextPart_000_00C9_01CAEDD3.1EE29A90

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns:o = "urn:schemas-microsoft-com:office:office"><HEAD>
<META content=text/html;charset=iso-8859-1 http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18904"></HEAD>
<BODY style="PADDING-LEFT: 10px; PADDING-RIGHT: 10px; PADDING-TOP: 15px"
id=MailContainerBody leftMargin=0 topMargin=0 CanvasTabStop="true"
name="Compose message area">
<DIV><FONT size=2 face=Arial>Amigos de Word2007</FONT></DIV>
<DIV><FONT size=2 face=Arial>Buen día.</FONT></DIV>
<DIV><FONT size=2 face=Arial>¿Cómo sería para hacer una Macro (o por código),
para ir al próximo Enter </DIV>
<OL style="MARGIN-TOP: 0cm" type=1>
<LI
style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"
class=MsoNormal><SPAN style="mso-ansi-language: ES; mso-fareast-language: KO"
lang=ES><FONT size=3><FONT face="Times New Roman">¶... poner una "," (coma) y
luego un "Suprimir" para traer el siguiente renglónpara hacer lo
siguiente:</FONT></FONT></SPAN></LI></OL>
<DIV
style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"
class=MsoNormal><SPAN style="mso-ansi-language: ES; mso-fareast-language: KO"
lang=ES><FONT size=3><FONT
face="Times New Roman">RF20</FONT></FONT></SPAN></DIV>
<DIV
style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"
class=MsoNormal><SPAN style="mso-ansi-language: ES; mso-fareast-language: KO"
lang=ES><FONT size=3><FONT
face="Times New Roman">WQ78</FONT></FONT></SPAN></DIV>
<DIV
style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"
class=MsoNormal><SPAN style="mso-ansi-language: ES; mso-fareast-language: KO"
lang=ES><FONT size=3><FONT
face="Times New Roman">HJ67</FONT></FONT></SPAN></DIV>
<DIV
style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"
class=MsoNormal><SPAN style="mso-ansi-language: ES; mso-fareast-language: KO"
lang=ES><FONT size=3><FONT
face="Times New Roman">YT90</FONT></FONT></SPAN></DIV>
<DIV
style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"
class=MsoNormal><SPAN style="mso-ansi-language: ES; mso-fareast-language: KO"
lang=ES><FONT size=3><FONT
face="Times New Roman">QA15</FONT></FONT></SPAN></DIV>
<DIV
style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"
class=MsoNormal><SPAN style="mso-ansi-language: ES; mso-fareast-language: KO"
lang=ES><FONT size=3><FONT
face="Times New Roman">XZ50</FONT></FONT></SPAN></DIV>
<DIV
style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"
class=MsoNormal><SPAN style="mso-ansi-language: ES; mso-fareast-language: KO"
lang=ES><FONT size=3><FONT
face="Times New Roman">KL75</FONT></FONT></SPAN></DIV>
<DIV
style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"
class=MsoNormal><SPAN style="mso-ansi-language: ES; mso-fareast-language: KO"
lang=ES><FONT size=3><FONT
face="Times New Roman"></FONT></FONT></SPAN>&nbsp;</DIV>
<DIV
style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"
class=MsoNormal><SPAN style="mso-ansi-language: ES; mso-fareast-language: KO"
lang=ES><FONT size=3><FONT face="Times New Roman"><o:p>
<DIV
style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"
class=MsoNormal><SPAN style="mso-ansi-language: ES; mso-fareast-language: KO"
lang=ES><FONT size=3><FONT
face="Times New Roman">RF20,</FONT></FONT></SPAN><SPAN
style="mso-ansi-language: ES; mso-fareast-language: KO" lang=ES><FONT
size=3><FONT face="Times New Roman">WQ78,</FONT></FONT></SPAN><SPAN
style="mso-ansi-language: ES; mso-fareast-language: KO" lang=ES><FONT
size=3><FONT face="Times New Roman">HJ67,</FONT></FONT></SPAN><SPAN
style="mso-ansi-language: ES; mso-fareast-language: KO" lang=ES><FONT
size=3><FONT face="Times New Roman">YT90,</FONT></FONT></SPAN><SPAN
style="mso-ansi-language: ES; mso-fareast-language: KO" lang=ES><FONT
size=3><FONT face="Times New Roman">QA15,</FONT></FONT></SPAN><SPAN
style="mso-ansi-language: ES; mso-fareast-language: KO" lang=ES><FONT
size=3><FONT face="Times New Roman">XZ50,</FONT></FONT></SPAN><SPAN
style="mso-ansi-language: ES; mso-fareast-language: KO" lang=ES><FONT
size=3><FONT face="Times New Roman">KL75</FONT></FONT></SPAN></DIV>
<DIV
style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"
class=MsoNormal><SPAN style="mso-ansi-language: ES; mso-fareast-language: KO"
lang=ES></SPAN>&nbsp;</DIV>
<DIV
style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"
class=MsoNormal><SPAN style="mso-ansi-language: ES; mso-fareast-language: KO"
lang=ES><FONT size=2 face=Arial>El listado de piezas son como 2500 y se ocupan
muchas hojas para la impresión hay que reducirlas</FONT></SPAN></DIV>
<DIV
style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"
class=MsoNormal><SPAN style="mso-ansi-language: ES; mso-fareast-language: KO"
lang=ES><FONT size=2 face=Arial></FONT></SPAN>&nbsp;</DIV>
<DIV
style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"
class=MsoNormal><SPAN style="mso-ansi-language: ES; mso-fareast-language: KO"
lang=ES><FONT size=2 face=Arial>Gracias y saludos</FONT></SPAN></DIV>
<DIV
style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"
class=MsoNormal><SPAN style="mso-ansi-language: ES; mso-fareast-language: KO"
lang=ES><FONT size=2 face=Arial></FONT></SPAN>&nbsp;</DIV>
<DIV
style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"
class=MsoNormal><SPAN style="mso-ansi-language: ES; mso-fareast-language: KO"
lang=ES><FONT size=2
face=Arial>Oscar</FONT></SPAN></DIV></o:p></FONT></FONT></SPAN></DIV></FONT></BODY></HTML>

=_NextPart_000_00C9_01CAEDD3.1EE29A90--
 

Leer las respuestas

#1 Ignacio
10/05/2010 - 10:03 | Informe spam
¡Hola, Compumakro!

Sólo tienes que seleccionar la opción Reeemplazar del menú Edición. En
la ventana que aparece con el título Buscar y Reemplazar pulsa el
botón <Más> y en con el cursor situado en el combo Buscar: pulsa el
botón <Especial> y elige 1 Marca de párrafo. El combo buscar se
rellenara con ^p. Luego te situas en el combo Reemplazar con: y escrbe
una coma. A continuación pulsa el botón <Reemplazar todos>. Y ya está.
Obtendrás el resultado deseado.

Espero que te sirva de algo.
Un saludo,
Ignacio.

Preguntas similares