Tengo una macro que copia y pega datos de excel a word, pero al momento de correrlo paso a paso lo termina bien y al ejecutarlo completo me marca error:
Rum-Time '4605', this method or property is not available because the clipboard is empty or not valid
Este es el código de la macro:
Sub copiar_word()
Dim wordapp As Object
Dim x, a As Integer
Set wordapp = CreateObject("word.Application")
With wordapp
.Visible = True
.Activate
.Documents.Add
End With
x = 8
Do While x <= 137
If ActiveSheet.Range("a" & x).Value <> "" Then
ActiveSheet.Range("a" & x).Select
Selection.Copy
wordapp.Selection.PasteSpecial link:=True
x = x + 1
Else
Do While ActiveSheet.Range("a" & x).Value = ""
x = x + 1
Loop
End If
Loop
End Sub