VBA copia contenido de una lista de palabras a otra

'El foco se transfirió después de abrirlo, Activeedocument apuntó al archivo recién abierto

'Cambiado a

Sub Macro1()

Dim myDoc

'En caso de error, reanudar a continuación

Con ActiveDocument.Tables(1) En esta línea de código Tables(2).Cell(Row:=1, Column:=2) determina la tabla 2. ¿Existe? (Solo probé una tabla, así que la cambié a Tablas(1).

)

'También puedes controlar el enfoque de esta manera

Sub Macro1()

Atenuar myDoc

'En caso de error, reanudar siguiente

Establecer myDoc = Word.Application.Documents.Open Text:=myDoc.Tables( 2).Cell( Fila:=1, Columna:=2)

Terminar con

End Sub

'En cuanto a por qué hay un salto de línea adicional, no lo he descubierto ya salió'