Vanuit Excel tabellen in Word in te vullen.

[Noord2011]

Beste helpers,

Ik ben opzoek naar een VBA code om vanuit Excel diverse tabellen in een Word doc in te vullen.

Bijv: ik selecteer cellen C3:I3 en vervolgens druk op het knop klant aanmaken.

Het Word doc dient automatisch geopend te worden incl. de informatie in de Excel cellen C3:I3.

Wie kan me helpen!!!

Zie toegevoegde bijlagen.

Bekijk bijlage Overzicht-klant.xlsBekijk bijlage Tabel doc.doc

Mvg

 

[gast0660]

Hoi Noord,
Als ik uw vraag en uw bijlagen eens bekijk is het de bedoeling dat je eens soort werkbon wil maken.
Ik heb een tijdje terug een adressenbestand progje gemaakt met access als backend. Volgens mij wil je deze richting uit.
Ik ben wel bereid om die aan te passen naar je wensen.
Hier kan je het downloaden
http://s000.tinyupload.com/?file_id=07870993448221841591

Greetz

 

[Noord2011]

Geachte gast0660,

Ik kan het niet openen, en verder geen kennis van accsess

Graag hulp in Excel

Mvg

 

[gast0660]

Hoi,
Het is getest op diverse pc's. Het is een rar bestand, dat moet je eerst eventjes uitpakken, kan met winrar, winzip, 7-zip hier een linkje http://www.gratissoftwaresite.nl/downloads/7-zip-compressie-unzip. Eenmaal uitgepakt op toepassing klikken. Verder heb je geen enkele kennis van access nodig, access werkt in de achtergrond.
Succes, indien iets niet lukt laat maar iets weten.

 

[Noord2011]

Beste
Ik heb onderstaande online gevonden

Kan iemand me verder helpen?

Het word doc gaat wel open, maar de inhoud vanuit excel gaat niet naar de word doc.

Sub test()
Dim objWord As Object
Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Overzicht-klant")

    Set objWord = CreateObject("Word.Application")

    objWord.Visible = True

    objWord.Documents.Open "C:\Users\yuor15\Desktop\Exceltoword\Tabeldoc.doc" ' change as required

    With objWord.ActiveDocument
        .Bookmarks("Text1").Range.Text = ws.Range("c3").Value
        .Bookmarks("Text2").Range.Text = ws.Range("d3").Value
        .Bookmarks("Text3").Range.Text = ws.Range("e3").Value
    End With
 
    Set objWord = Nothing

End Sub

Alvast bedankt

 

[snb]

Gebruik in de doctabel documentvariabelen.(zie bij invoegen/velden/ docvariable)
Geef ze de namen V1,V2,V3.V4,V5,V6,V7
Sla het bestand op als Tabel.docx

Sub M_snb()
  sn=thisworkbook.sheet1.range("C3:I3"

  with getobject("G:\OF\tabel.docx")
    .windows(1).visible=true
    for j=1 to 7
      .variables("V" &j)=sn(1,j)
    next
    .fields.update
  end with
End Sub

Maar MS heeft voor dit soort situaties mailmerge in Word uitgevonden.

 

[snb]

@dotchie

Dit forum heeft ook een Access afdeling.

 

[Noord2011]

Beste Helpers,

Ik heb alles geprobeerd, het lukt gewoon niet. :evil:

Alle hulp is welkom.


Alvast bedankt