excel gegevens nr word sjabloon

[Hijdoethutnie]

Hallo,

Iemand die ik ken heeft een offertebestand in excel en wil dat op basis van deze gegevens een factuur in Word gemaakt wordt (bovenaan staat dan zijn logo en in de voettekst wat andere standaard gegevens). Omdat hij niet zo handig is wil ik het zo inrichten dat hij weinig fout kan doen en met 1 druk op de knop de boel in het Word sjabloon krijgt. Daarom heb ik een ander werkblad ingevoegd waarop de gegevens komen te staan die nodig zijn voor de factuur (gewoon via een verwijzing naar de betreffende cel). De cellen A1 tot en met A35 moeten dan worden geplakt in het Word sjabloon op de derde regel (dit zal ongetwijfeld op een aantal van jullie erg amateuristisch overkomen, maar anders wordt het zo'n ingewikkeld gebeuren en raak ik zeker de weg kwijt) Het Word sjabloon krijg ik wel geopend, maar dan loopt de boel vast.
Over dit onderwerp zijn al veel vragen geplaatst en ik heb al veel dingen geprobeerd, maar het lukt me nog steeds niet. Waarschijnlijk heb ik teveel verschillende voorbeelden samen gevoegd, waardoor ik zelf ook niet meer zie wat er nu eigenlijk staat... dus kijk en huiver:

Sub Maak_Factuur()
'
' Maak_Factuur Macro
'
Dim sh As Worksheet
Dim SourceRange As Range
Dim wdApp As Object
Dim wdDoc As Object
Dim sFileName As String
Dim sPath As String

Set SourceRange = Sheets("Blad1").Range("A1:E35")
Set wdApp = CreateObject("Word.Application")
sPath = "c:\" & Worksheets("Blad1").Range("B7") & "\" & "facturen\"
sFileName = Range("B7") & "-" & "verkoopfactuur"

With wdDoc
    GetObject(, "Word.Application").Documents.Add("C:\Users\gebruiker\Documents\Colmur\Klanten\Winduzon\FACTUUR_sjabloon_winduzon.dot").Application.Visible = True
End With
'
    SourceRange.Copy
    Application.CutCopyMode = False
    
    With wrdDoc
            .wdDoc.Selection.MoveDown Unit:=wdLine, Count:=2    [COLOR="Red"]<= hier loopt het vast[/COLOR]
            .Selection.PasteExcelTable False, False, False
            .wdDoc.SaveAs sPath & sFileName, wdFormatDocument
    End With
   
End Sub

 

[snb]

Deze macro doet hetzelfde

Sub Maak_Factuur()
  With GetObject("C:\Users\gebruiker\Documents\Colmur\Klanten\Winduzon\FACTUUR_sjabloon_winduzon.dot")
      [Blad1!A1:E35].Copy
      .paragraphs(3).range.paste
      .SaveAs "c:\" & [Blad1!B7] & "\facturen\"& [Blad1!B7] & "-verkoopfactuur.doc"
      .close
  End With
End Sub

 

[Hijdoethutnie]

Bedankt!! Dat scheelt wel een aantal regeltjes tekst! :thumb:
Alles komt nu op de goede plek te staan, alleen is de tabel ineens 2 keer zo groot dan wanneer ik deze handmatig kopieer en plak. Is dit een instelling in Word (heb ik al naar gezocht maar kon het probleem niet vinden) of kan ik dit met een kleine aanpassing in de code oplossen?