Exporta desde excel a word papersetup
Publicado por Bernardo (9 intervenciones) el 11/09/2018 15:42:30
Hola
Desarrolle una macro para exportar desde excel a word una tabla para que la hoja en word tenga dimensiones de largo, orientacion y margenes especificos. No manejo bien el VBA. Que esta faltando para que la macro funcione.
Desde ya muchas gracias por su tiempo. Saludos Bernardo
Macro en custion:
Desarrolle una macro para exportar desde excel a word una tabla para que la hoja en word tenga dimensiones de largo, orientacion y margenes especificos. No manejo bien el VBA. Que esta faltando para que la macro funcione.
Desde ya muchas gracias por su tiempo. Saludos Bernardo
Macro en custion:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub TablaaWord()
'
Dim mipath As Variant
mipath = ActiveWorkbook.Path & "\word\Empresas.docx"
' Filtro para vacio
If Range("A6") = "" Then
'MsgBox " No hay Tarea "
Exit Sub
End If
'
Dim AppWord As Word.ApplicationSet AppWord = New Word.Application
ultimafila = Sheets("Backup").Range("A" & Rows.Count).End(xlUp).Row ‘78
primerafila = 6Rango = "A" & primerafila & ":" & "J" & ultimafila
Range(Rango).Copy
'
With AppWord
.Visible = True
.Activate.Documents.Add
'
'.Selection.PageSetup.LeftMargin = 0.7
'.Selection.PageSetup.TopMargin = 0.7
'.Selection.PageSetup.BottomMargin = 0.7
'.Selection.PageSetup.RightMargin = 0.7
'.Selection.PageSetup.Orientation = wdOrientLandscape
'.Selection.PageSetup.PaperSize = wdPaperLegal
.Documents.Application.Selection.PageSetup.PaperSize = wdPaperLegal
AppWord.Selection.PasteAndFormat wdFormatOriginalFormatting
'
AppWord.ActiveDocument.SaveAs2 (mipath)
Range("A1").Select
Application.CutCopyMode = False
AppWord.Quit: Set AppWord = Nothing
End Sub
Valora esta pregunta
0