Tabel van Excel naar Word en converteren

[JosjaWillems]

Hallo,

Ik gebruik op dit moment de volgende code om een paar bereiken vanuit Excel naar Word te exporteren:

Sub ExporteerPO1()

    Application.ScreenUpdating = False
    Dim wd As Object
    Set wdApp = CreateObject("Word.Application")
    Set wd = wdApp.Documents.Add
    wdApp.ScreenUpdating = False
    wdApp.Visible = True
    
    Sheets("PO1").Visible = True
    Sheets("PO1").Select

    Range("A39:A82").Select
    Selection.Copy
    wdApp.Selection.PasteSpecial DataType:=20, Placement:=wdLine, DisplayAsIcon:=False
    wdApp.Selection.EndKey
    wdApp.Selection.TypeParagraph
    
    Range("B1:C38").Select
    Selection.Copy
    wdApp.Selection.Paste
    wdApp.Selection.EndKey
    wdApp.Selection.TypeParagraph

    Range("A84:A135").Select
    Selection.Copy
    wdApp.Selection.Paste
    wdApp.Selection.HomeKey
    
    Sheets("PO1").Visible = False
    Sheets("Menu").Select
    
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    wdApp.ScreenUpdating = True
    wdApp.Activate
    
End Sub

Met bovenstaande code plak ik het eerste bereik als tekst, alleen wil ik de opmaak van het origineel behouden. Enig idee hoe dat werkt?

Alvast hartelijk bedankt voor de hulp!

Jos Willems