(demasiado antiguo para responder)
unir documentos words..
_ C l a u d i n h o _
2005-02-09 13:39:04 UTC
Como puedo unir varios documentos word en uno solo. Por ej. si tengo una
carpeta temporal con 10 archivos .doc, poder unirlos y dejarlos en uno
solo??.

salu2
Megaman
2005-02-09 15:24:58 UTC
This is a multi-part message in MIME format.

------=_NextPart_000_0014_01C50E89.3C3FCDD0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Hola puedes hacer esto:

Dim objWord As Word.Application

Dim objDoc As Word.Document

objWord =3D CreateObject("Word.Application")

ObjWord.Documents.Add()

For X As Integer =3D 1 To 10=20

objWord.ActiveWindow.Selection.InsertFile("ejemplo" & X & ".doc", "", =
False, False, False)

Next
Como puedo unir varios documentos word en uno solo. Por ej. si =
tengo una
carpeta temporal con 10 archivos .doc, poder unirlos y dejarlos en uno
solo??.
=20
salu2
=20
------=_NextPart_000_0014_01C50E89.3C3FCDD0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2180" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=3DArial size=3D2>Hola puedes hacer esto:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV>
<P><FONT face=3DArial size=3D2>Dim objWord As =
Word.Application</FONT></P></DIV>
<P><FONT face=3DArial size=3D2>Dim&nbsp;objDoc As =
Word.Document</FONT></P>
<DIV>
<P><FONT face=3DArial size=3D2>objWord =3D =
CreateObject("Word.Application")</FONT></P>
<P><FONT face=3DArial size=3D2>ObjWord.Documents.Add()</FONT></P>
<P><FONT face=3DArial size=3D2>For&nbsp;X As Integer =3D 1 To 10 =
</FONT></P>
<P><FONT face=3DArial =
size=3D2>objWord.ActiveWindow.Selection.InsertFile("ejemplo"=20
&amp; X &amp; ".doc", "", False, False, False)</FONT></P>
<P><FONT face=3DArial size=3D2>Next</FONT></P>
<P><FONT face=3DArial size=3D2></FONT>&nbsp;</P></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>"_ C l a u d i n h o _" &lt;</FONT><A=20
href=3D"mailto:***@ChileSPAMNOPLIS.com"><FONT face=3DArial=20
size=3D2>***@ChileSPAMNOPLIS.com</FONT></A><FONT face=3DArial =
size=3D2>&gt;=20
escribi=F3 en el mensaje </FONT><A=20
href=3D"news:***@tk2msftngp13.phx.gbl"><FONT face=3DArial=20
size=3D2>news:***@tk2msftngp13.phx.gbl</FONT></A><FONT =
face=3DArial=20
size=3D2>...</FONT></DIV><FONT face=3DArial =
size=3D2>&gt;&nbsp;&nbsp;&nbsp; Como puedo=20
unir varios documentos word en uno solo. Por ej. si tengo una<BR>&gt; =
carpeta=20
temporal con 10 archivos .doc, poder unirlos y dejarlos en uno<BR>&gt;=20
solo??.<BR>&gt; <BR>&gt; salu2<BR>&gt; <BR>&gt;</FONT></BODY></HTML>

------=_NextPart_000_0014_01C50E89.3C3FCDD0--