Exporteren van excel naar word: fout 4605 (ongeldig klembord)

[JosjaWillems]

Hallo mensen,

Ik gebruik de volgende code om e.e.a. te exporteren vanuit excel naar word:

Sub ExporteerParticuliereOfferte2()

    Application.ScreenUpdating = False
    Dim wd As Object
    Set wdApp = CreateObject("Word.Application")
    Set wd = wdApp.Documents.Add
    wdApp.ScreenUpdating = False
    wdApp.Visible = True
    
    Sheets("ParticuliereOfferte2").Visible = True
    Sheets("ParticuliereOfferte2").Select
    
    If Cells(72, 1).Value = "" Then Cells(72, 1).EntireRow.Hidden = True
    If Cells(73, 1).Value = "" Then Cells(73, 1).EntireRow.Hidden = True
'Bovenstaande code wordt veelvuldig herhaald, maar lijkt me niet relevant voor het probleem, dus laat ik de rest van dit gedeelte weg

    Range("A39:A81").Select
    Selection.Copy
    wdApp.Selection.Paste
    wdApp.Selection.EndKey
    wdApp.Selection.TypeParagraph
    
    Range("B1:C38").Select
    Selection.Copy
    wdApp.Selection.Paste
    wdApp.Selection.EndKey
    wdApp.Selection.TypeParagraph
    
    Range("A83:A134").Select
    Selection.Copy
    wdApp.Selection.Paste
    wdApp.Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=1
    
    Cells.Select
    Selection.EntireRow.Hidden = False

    Sheets("ParticuliereOfferte2").Visible = False
    Sheets("Hoofdmenu").Select
    
    Application.ScreenUpdating = True
    wdApp.ScreenUpdating = True
    wdApp.Activate
    
End Sub

Vooral wanneer ik vanuit mijn excelbestand meer dan één bovenstaande routine heb uitgevoerd, loopt dit vast met

"fout 4605 tijdens uitvoering: deze methode of eigenschap is niet beschikbaar omdat het klembord leeg of ongeldig is"

Heeft iemand een idee hoe ik dit kan verhelpen?

Alvast hartelijk dank voor de hulp!

Jos Willems

Edit: als het vastloopt, gaat het altijd mis op een regel waarmee ik het gekopieerde spul plak, zoals "wdApp.Selection.Paste". Het gaat echter niet steeds om dezelfde regel; lijkt willekeurig.