Semana 7 (23 – 27 Mayo)

Los méritos van avanzando progresivamente, que hasta me enseñaron más cosas para aprender el sistema a profundidad de manera tal que les apoyara en cualquier momento muy a parte de mis responsabilidades.

y ahora tengo que revisar e investigar cierta información respecto a macros en excel para poder dar presentaciones y agilizar los procesos de carga de información para los compañeros de oficina.

————-
Después de haber investigado macros en word 2007 realice la siguiente macro el cual simplificaba el trabajo de uno de los trabajadores de la empresa.
Los trabajadores descargan un promedio de 5 a 30 ordenes por cada uno lo que significa por 5 trabajadores un promedio de 25 – 120 ordenes por dia, para ello, realizan una serie de pasos y secuencias el cuales hace lento el proceso de exportacion para la impresión.
Luego de haber observado esto, puse empeño y di por solucionado aquella dificultad detallosa que estaba pasando por alto, porlo que se tuvo que crear una macro para dicha finalidad.
——————————————–
——————————————–
Esta primera macro sirve para acomodar y dejar listo para imprimir aquella orden del dia a dia!
——————–
Sub ULTIMO3()

Dim NombArch As String
‘ ULTIMO3 Macro


Selection.WholeStory
Selection.Copy
Documents.Add Template:=”Normal”, NewTemplate:=False, DocumentType:=0
Selection.PasteAndFormat (wdPasteDefault)
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
Selection.WholeStory
Selection.Font.Size = 10
With Selection.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(1.27)
.BottomMargin = CentimetersToPoints(1.27)
.LeftMargin = CentimetersToPoints(1.27)
.RightMargin = CentimetersToPoints(1.27)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.25)
.FooterDistance = CentimetersToPoints(1.25)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With
NombArch = ActiveDocument.Words(13).Text
ActiveWindow.ActivePane.VerticalPercentScrolled = 27
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.MoveDown Unit:=wdLine, Count:=67
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.HomeKey Unit:=wdStory
‘ChangeFileOpenDirectory “D:\pruebaword\”
‘NombArch = ActiveDocument.Words(13).Text
ActiveDocument.SaveAs FileName:=”D:\pruebaword\” & NombArch & “.docx”, FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:=””, AddToRecentFiles _
:=True, WritePassword:=””, ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveWindow.Close
Selection.MoveUp Unit:=wdLine, Count:=1
End Sub

————————————-

la presente macro a continuación va a permitir unir varios documentos en uno solo, el cual permitirá la impresión rápida de múltiples documentos.
————————————
Sub InsertarFichero()
Dim strFichero As String
Dim strRuta As String
Dim MiRango As Range
Dim aseleccionar As String
strRuta = “D:\pruebaword”
‘Debes poner la ruta de la carpeta donde tengas los archivos
strFichero = Dir$(strRuta & “\*.docx”)
Documents.Add
‘ Para añadir los ficheros
Do Until strFichero = “”
With Selection
.InsertFile FileName:=(strRuta & “\” & strFichero)
.Collapse wdCollapseEnd
.InsertBreak wdSectionBreakNextPage
‘ Inserta un salto de sección de página siguiente. Puedes modificarlo a tu gusto
End With
strFichero = Dir()
Loop
Set MiRango = Nothing
ActiveDocument.SaveAs FileName:=”D:\pruebaword\TODO.docx”, FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:=””, AddToRecentFiles _
:=True, WritePassword:=””, ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveWindow.Close
End Sub

A continuacion presento una avance mas sobre el informe de Practicas Pre Profesionales.

informe-practicas22

Publicado el mayo 24, 2011 en Prácticas Pre Profesionales...!. Añade a favoritos el enlace permanente. Deja un comentario.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: