word starten in excel of andersom

[wwss]

Hallo

Ik wil met behulp van een macro in excel een bestand in word laat starten zodat er een samenvoeg document uit komt.
Welke commando bestaat daarvoor in VB?


Wilbert

 

[beheer25]

Ik heb het niet met samenvoeg documenten gedaan, maar met bookmarks in een Word document die ik vul.

Een stukje voorbeeld code:

Dim WordApp As Object
Dim objWdDoc As New Word.Document

Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
objWdDoc.Application.WindowState = wdWindowStateMaximize
objWdDoc.Application.ScreenUpdating = False
Set objWdDoc = WordApp.Documents.Add("templatenaam.dot")

'Bookmarks vullen
Dim objRange As Word.Range
Dim strText As String

'Voornaam
If Me.First_name_s_ <> "" Then
    strText = "Voornaam"
    Set objRange = objWdDoc.Goto(What:=wdGoToBookmark, Name:="bVoornaam")
    objRange.Text = strText
End If
'Tussenvoegsel
If Me.Tussenvoegsel <> "" Then
    strText = "Tuusenvoegsel"
    Set objRange = objWdDoc.Goto(What:=wdGoToBookmark, Name:="bTussenvoegsel")
    objRange.Text = strText
End If

Als je het perce met een samenvoeg document wilt doen, zou je met bovenstaande code het Word document moeten openen en in het word document een Autoexec macro moeten maken die het samenvoegen verzorgt.


Suc6,