Excel - MACROS EXCEL

   
Vista:

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

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 True
Set objWord = Nothing
End 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 = Nothing
End Sub


Pero no funciona, se crea el archivo en word, pero al consultarlo esta en blanco.

Alguien puede ayudarme.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

MACROS EXCEL

Publicado por Martha (270 intervenciones) el 28/07/2013 19:55:06
A no ser que quieras trabajar con Macros de Excel o VBA, creo que lo mejor que puedes hacer es combinar correspondencia de Word, usando la tabla Excel como origen de datos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar