vanuit excel kopieren naar word???

[fdebeer]

Ik heb een aantal cellen in excel die ik in een script wil laten kopieren naar een bestaand worddocument. het selecteren van de cellen is geen probleem, alleen hoe activeer ik het word-document en paste ik de info in dit document. al ik met de hand naar word ga en ctrl-V druk werkt het prima, maar hoe doe ik dat in VBA?

 

[jpvs]

Dit is een vb van Luc Heyndrickx stond vroeger op zijn site:
http://www.newbytes.be/

In VBE :
via Extra --> Verwijzingen.
Microsoft Word ... Object Library aanvinken

Pierre

 

[fdebeer]

Bedankt, maar deze had ik ook al gevonden. en doet niet wat ik wil. dit script maakt en nieuw worddocument aan, maar ik wil de cel in een bestaand document kopieren. en dat gaat niet met deze code.
maar toch erg bedankt voor het meedenken!!

ik google inmiddels ook weer verder, maar nog niets gevonden. misschien moet ik het bij de mailmerge-functie gaan zoeken?

 

[Spiderman]

Hoi fdebeer,

Ik heb de code van Luc Heyndrickx een beetje aangepast.

sFilename = je Path + Bestandsnaam

Dit is niet meer nodig

In VBE :
via Extra --> Verwijzingen.
Microsoft Word ... Object Library aanvinken

De aangepsate code:

Sub WordDocumentMaken()
    
    Dim y As Object
    Dim sFileName As String
    sFileName = ThisWorkbook.Path & "\doc1.doc"
    Set y = CreateObject("Word.Application")
    Worksheets("Prijsblad").Range("A1").CurrentRegion.Copy
        With y
            .Visible = True
            .Documents.Open Filename:=sFileName
            .Selection.Paste
        End With
        Application.CutCopyMode = False
    Set y = Nothing
    
End Sub

 

[fdebeer]

ga ik gelijk fff uitproberen. laat het weten of het gelukt is!

't is (bijna) gelukt. De bovenstaande macro doet prima wat hij moet doen.
alleen...
word paste de cellen bij de cursor, en deze staat aan 't begin van het document, en dat is niet de goede plaats.

grrrrrrr...

volgende vraag dus: Hoe krijg je de cursor in word op de goede plaats, zodat als je het document opend (het is overigens een .dot-file) de cursor daar staat waar ik hem hebben wil?

Gevonden:
Ik heb in word een bookmark aangemaakt op de plaats waar ik de cellen wil hebben, en deze 'paste' genoemd. daarna onderstaande code gebruikt:

Sub copy2Word()

Dim y As Object
Dim sFileName As String
sFileName = "\rekening.dot"
Set y = CreateObject("Word.Application")
Range("a1:b3").CopyPicture xlPrinter

y.Visible = True
y.Documents.Open Filename:=sFileName
y.ActiveDocument.Bookmarks("paste").Select
y.Selection.Paste

Application.CutCopyMode = False
Set y = Nothing


End Sub