Me da Error 91  y no se que tenga mal.

Sub ExportarDeExcelAWord()

'Declarando 2 variables: una para gestionar la aplicacion word, otra para el document

Dim oAplicacionWord As Word.Application

Dim ODocumento As Word.Document

Set oAplicacionWord = New Word.Application

Set ODocumento = oAplicacionWord.Documents.Add()

Dim textiActualCelda As String

For contador = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row

textoActualCelda = textoActualCelda & "" & Cells(contador, 1)

Next contador

oAplicacionWord.Visible = True

Set ODocumento = Nothing

Set oAplicacionWord = Nothing

Cuando me da Error 91, me sombrea: Set ODocumento = oAplicacionWord.Documents.Add()

Me podrian ayudar?

Jalmar

[tema creado desde comentario en http://www.necesitomas.com/error-91-tiempo-ejecucion-variable-objeto-o-bloque-with-no-establecido]