MACROS EXCEL
Publicado por HENRY QUINTERO (1 intervención) el 27/07/2013 20:15:00
Tengo una carta creada en excel 2007, la cual requiero guardar en formato word.
He probado con estas macros publicadas en internet
Pero no funciona, se crea el archivo en word, pero al consultarlo esta en blanco.
Alguien puede ayudarme.
Gracias.
He probado con estas macros publicadas en internet
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Sub generaDocumento()
' Generar Word con Macro
Dim objWord As Word.Application'Dim cadena As String
cadena = "Esto es una prueba del texto que se puede grabar agregando el dato de la "
cadena = Sheets("Carta_Prorroga_DP").Select
Set objWord = CreateObject("Word.Application")
objWord.Documents.Add
'objWord.ActiveDocument.Content.FormattedText.Text = cadena
objWord.ActiveDocument.SaveAs "C:\respuestas\prorrogas\prueba1.docx"
objWord.Quit TrueSet objWord = NothingEnd Sub
Sub crearword()
Sheets("Carta_Prorroga_DP").Select
origen = ActiveSheet.Name
Set objWord = CreateObject("Word.Application")
objWord.Documents.Add
objWord.ActiveDocument.Content.FormattedText.Text = dato
objWord.ActiveDocument.SaveAs "C:\respuestas\prorrogas\prueba.doc"
Set objWord = NothingEnd Sub
Pero no funciona, se crea el archivo en word, pero al consultarlo esta en blanco.
Alguien puede ayudarme.
Gracias.
Valora esta pregunta
0