En ocasiones nos encontramos con la necesidad de unir varios archivos de Word en uno solo. 
Con esta macro agilizamos el proceso. Tan solo requiere que los archivos a unir estén en una misma carpeta.

En nuestro trabajo diario es muy posible que utilicemos Outlook como Agenda Ofimática, Calendario, Organizador de Tareas o simplemente como cliente de correo.
Pues bien, Outlook dispone de comandos especiales  a todas estas tareas que podemos gestionar a través de accesos directos  haciéndonos más fácil el trabajo con este programa
.
         

Con Word podemos automatizar un poco ciertas tareas más o menos repetitivas y hacerlas más sencillas. En este caso vamos a tratar de realizar una plantilla que nos pida unos datos y luego nos los rellene a lo largo del documento, pero sin utilizar macros.

 

Síntomas

 

Cuando se intenta guardar un documento desde Word o Excel a una carpeta compartida de Windows 98 o Windows Millennium, puede aparecer el siguiente mensaje de error:

 

No se puede tener acceso a la carpeta X. Puede que se encuentre en un volumen no disponible o que esté protegida con contraseña.
Donde X representa la ubicación de red en la que se ha intentado guardar el documento.



Causa

 

La actualización de seguridad 885250, descrita en el boletín MS05-011, provoca este problema en sistemas Windows 2000, Windows XP y Windows Server 2003. No se aconseja desinstalar esta actualización.

 

Boletín de seguridad de Microsoft MS05-011: Una vulnerabilidad en el bloque de mensajes del servidor (SMB) podría permitir la ejecución remota de código (885250)
http://www.microsoft.com/spain/technet/seguridad/boletines/MS05-011-IT.mspx

 

Eneste artículo trataremos de explicar cómo se crea una macro en Word y cómo se puede añadir un botón a la barra de herramientas de Word para ejecutarla con tan solo un clic.

La macro que he elegido es la siguiente:

Sub HPPSC2410()

Dim sImpresora as String

sImpresora = ActivePrinter

‘ Inserta el nombre de tu impresora

ActivePrinter = “hp psc 2400 series”

Application.PrintOut FileName:=""</span><br /><span class="q0">ActivePrinter = sCurrentPrinter

End Sub