Uitwisselen Excel gegevens met Word-document via VBA

[DdH]

Hallo ;
Ik probeer nu al een tijdje om gegevens uit een cel op een werkblad
naar een word document te schrijven. Ik heb geprobeerd dit via het
opnemen van een macro te doen. Helaas wil dit niet lukken want de
macrorecorder neemt alleen op wat ik in Excel doe.
Als er dus een nieuwe waarde in in een cel komt moet dit ook in het
Word document worden weergegeven.
Ik ben via deze nieuwsgroep aan een stukje code gekomen dat als ik het
werkboek open er tevens Word wordt gestart. Kan ik aan deze code ook
een pad aangeven zodat er auytomatisch het juiste document template
wordt gestart.
Kan iemand mij hierbij helpen?

[Hans]

Als je je goed begrijp, wil je dus een link leggen tussen
een bepaalde cel, en een Word document. Dit kan veel
makkelijker dan je tot dusver geprobeerd hebt. Kopieer
(Control-C) de betreffende cel in Excel. Ga in Word met de
cursor staan op de plek waar je de Excel waarde hebben
wil. Vervolgens paste je de link (dus niet de waarde) in
Word (Edit - Paste Special..., kies button "Paste link" en
kies bv "Unformatted Text). Klaar! Zodra je de cel in
Excel wijzigt, wordt de waarde in Word automatisch
bijgewerkt. Succes.

>-----Oorspronkelijk bericht-----

>.
>

[DdH]

Hans,
Bedankt voor de tip , dit werkt prima ! Weet jij wellicht hoeik na het
openen van de Excel sheet ook MS Word met de juiste template kan
openen?

[Luc Heyndrickx]

Hallo,

Toch maar terug VBA.
In de veronderstelling dat je office 2000 geďnstaleerd hebt, ga naar je
visual basic editor, vandaar naar 'Extra' en 'verwijzingen'.
In de keuzelijst die je dan ziet verschijnen zoek je 'Microsoft Word 9.0
Object Library'. Dit vink je aan.
Plaats daarna volgende macro in je visual basic editor:

Sub Auto_Open()

Dim y As Word.Application
Set y = CreateObject("Word.Application")

With y

.Visible = True
.Documents.Add Template:="C:\WINDOWS\Application
Data\Microsoft\Sjablonen\Faktuurlijst.dot"

End With

End Sub

Deze macro is gewoon overgenomen uit mijn eigen files. Je kan hem dan ook
gewoon kopiëren. Hou er wel rekening mee dat het Word-document waarvan hier
sprake is een sjabloon is, en ook op de juiste plaats hiervoor staat. Deze
sjabloon noemt : 'Faktuurlijst.dot'. Deze naam zal je dus moeten aanpassen.

Succes

Luc

"DdH" <wr3...@wolmail.nl> schreef in bericht
news:3d03123...@news.hccnet.nl...

[Hans]

Je vraagt eigenlijk om 2 dingen:
1. Starten van Word vanuit Excel
2. Word een template laten openen (tijdens starten)

Er zijn meerdere oplossingen, al heb ik die van Luc
Heyndrickx heb ik niet gecontroleerd. Een andere is door
gebruik te maken van "ouderwetse" MS Excel 4.0 macro's.
Voeg een werkblad toe door onderaan de werkbladen te
klikken op rechtermuistoets, kies "Insert..." en dan "MS
Excel 4.0 Macro". Als je daar niet bekend mee bent,
vergeet deze oplossing of maak er eerst een studie van
(als je er zin in hebt...).

Starten van Word gaat met de functie
=EXEC(programma,WindowMode)

Programma moet tussen quotes ("), max 100 karakters, en
als het programma niet in een path is opgenomen, moet de
volledige dos-naam met path vermeld worden. Word staat
eigenlijk altijd in een path. Windowmode bepaalt window-
grootte. 1= normaal, 2= minimized, 3=maximized.

Word starten met een van te voren bepaalde template gaat
met de "/ttemplatename" switch ofwel opstartoptie. Let op,
geen spatie tussen t en template.

In de wetenschap dat Word eigenlijk Winword.exe heet, en
je een voorbeeldtemplate Brief.dot in de Word-
templatedirectory hebt staan, en je Word maximized wil
starten, volstaat het volgende commando:

=EXEC("Winword.exe /tBrief.dot";3)

Macro'tje een naam geven, bv onder een knop zetten, en
klaar!

>-----Oorspronkelijk bericht-----

>.
>

[DdH]

Hans ,bedankt voor deze tip. Ik heb hier niet aangedacht en het werkt
feilloos. Alleen zou ik zo graag bij het openen van het Excel sheet
ook gelijk MSWord en de juiste template in word starten. Dit krijg ik
nog niet voor elkaar. Hoe dan ook de werking met de "link"heeft me al
een fors eind op weg geholpen.
Bedankt !!

On Sat, 8 Jun 2002 08:13:56 -0700, "Hans" <sb01...@wolmail.nl> wrote:

[DdH]

Hans,
DAnk je voor de tip , hier heb ik nog niet aangedacht en het werkt
prima. Wat ik nu nog wil is dat wanneer ik het Excel sheet open
,MSWord direckt wordt opgestart met de juiste template. Dat is me nog
niet gelukt.
In ieder geval ben ik een alweer een stuk verder met jou tip !!
Bedankt

On Sat, 8 Jun 2002 08:13:56 -0700, "Hans" <sb01...@wolmail.nl> wrote: