Macros inter Office

03/06/2009 - 17:19 por Lord Rogers | Informe spam

Estimados:

Tengo Office 2007 y mi intención es poder realizar una macro en Excel
que copie cierto rango de celdas (dads y fijas) y las vaya colocando en un
documento word.

¿Es posible realizar ese proceso?

El word es nuevo cada vez que se ejecuta, lo del nombre de ese documento no
es de importancia, ya que queda abierto hasta que el usuario lo cierra.

Millón de gracias por las ayudas

Saludos

Lord Rogers
Desde el último lugar del mundo

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Abraham

03/06/2009 - 18:26 | Informe spam

un modo:

Sub Enviaraword()
Dim apliword As Object
Set apliword = CreateObject("word.application")
With apliword
.documents.Add
.Visible = True
Worksheets("hoja2").[a1:a6].Copy
.Selection.typeparagraph
.Selection.pasteexceltable linkedtoexcel:=False,
wordformatting:=False, RTF:=False
.activedocument.SaveAs ("c:\Miarchivodeword.doc")
End With

End Sub

Abraham

Responder a este mensaje

#2 Lord Rogers

04/06/2009 - 15:34 | Informe spam

Gracias por tu respuesta, pero te molesto con lo último. Despues de pegarlo
en el word, cómo le agrego un salto de página a ese doc?

Millón de gracias nuevamente

Saludos

Lord Rogers
Desde el último lugar del mundo
"Abraham" escribió en el mensaje
news:

un modo:

Sub Enviaraword()
Dim apliword As Object
Set apliword = CreateObject("word.application")
With apliword
.documents.Add
.Visible = True
Worksheets("hoja2").[a1:a6].Copy
.Selection.typeparagraph
.Selection.pasteexceltable linkedtoexcel:=False,
wordformatting:=False, RTF:=False
.activedocument.SaveAs ("c:\Miarchivodeword.doc")
End With

End Sub

Abraham

Responder a este mensaje

#3 Abraham

04/06/2009 - 23:51 | Informe spam

Pues intenta incluyendo algo asi:

.Selection.InsertBreak Type:=wdPageBreak

No lo he probado.

Practica con la grabadora de macros en el word

Saludos

Abraham

On 4 jun, 08:34, "Lord Rogers" wrote:

Gracias por tu respuesta, pero te molesto con lo último. Despues de pegarlo
en el word, cómo le agrego un salto de página a ese doc?

Millón de gracias nuevamente

Saludos

Lord Rogers
Desde el último lugar del mundo
"Abraham" escribió en el mensajenews:

> un modo:

> Sub Enviaraword()
> Dim apliword As Object
> Set apliword = CreateObject("word.application")
> With apliword
> .documents.Add
> .Visible = True
> Worksheets("hoja2").[a1:a6].Copy
> .Selection.typeparagraph
> .Selection.pasteexceltable linkedtoexcel:=False,
> wordformatting:=False, RTF:=False
> .activedocument.SaveAs ("c:\Miarchivodeword.doc")
> End With

> End Sub

> Abraham- Ocultar texto de la cita -

- Mostrar texto de la cita -

Responder a este mensaje

#4 Lord Rogers

05/06/2009 - 14:11 | Informe spam

Millón de gracias, es bastante bueno este sistemita.

Saludos

Lord Rogers
Desde el último lugar del mundo
"Abraham" escribió en el mensaje
news:
Pues intenta incluyendo algo asi:

.Selection.InsertBreak Type:=wdPageBreak

No lo he probado.

Practica con la grabadora de macros en el word

Saludos

Abraham

On 4 jun, 08:34, "Lord Rogers" wrote:

Gracias por tu respuesta, pero te molesto con lo último. Despues de
pegarlo
en el word, cómo le agrego un salto de página a ese doc?

Millón de gracias nuevamente

Saludos

Lord Rogers
Desde el último lugar del mundo
"Abraham" escribió en el
mensajenews:

> un modo:

> Sub Enviaraword()
> Dim apliword As Object
> Set apliword = CreateObject("word.application")
> With apliword
> .documents.Add
> .Visible = True
> Worksheets("hoja2").[a1:a6].Copy
> .Selection.typeparagraph
> .Selection.pasteexceltable linkedtoexcel:=False,
> wordformatting:=False, RTF:=False
> .activedocument.SaveAs ("c:\Miarchivodeword.doc")
> End With

> End Sub

> Abraham- Ocultar texto de la cita -

- Mostrar texto de la cita -

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida