Hoi,
Ik heb een stuk vba dat super werkt.
Ik maak vanuit excel via een sjabloon in word een kloppend bestand. Nu wil ik graag bij het creeren van het wordbestand gelijk vanuit excel het wordbestand een naam geven uit 1 cel (C14) van sheet blad1.
Nu word het wordbestand standaard document1 genaamd.
Is dit ook te doen in het onderstaand stukje vba?
hier na nog een heel stuk vba..
Ik heb een stuk vba dat super werkt.
Ik maak vanuit excel via een sjabloon in word een kloppend bestand. Nu wil ik graag bij het creeren van het wordbestand gelijk vanuit excel het wordbestand een naam geven uit 1 cel (C14) van sheet blad1.
Nu word het wordbestand standaard document1 genaamd.
Is dit ook te doen in het onderstaand stukje vba?
Code:
Sub Offerte()
Dim iReply As Integer
iReply = MsgBox(Prompt:="Weet je het zeker?", Buttons:=vbYesNo, Title:="Creëer offerte")
If iReply = vbYes Then
Data2Word
Else
End If
End Sub
Sub Data2Word()
Dim WDApp As Object 'a new instance of Word
Dim WDDoc As Object 'new Quote.doc
Dim myWordFile As String 'path to Word template
On Error GoTo errorHandler
myWordFile = Range("Template").Text
Set WDApp = CreateObject("Word.Application")
Set WDDoc = WDApp.Documents.Add(Template:=myWordFile)
WDApp.Visible = True
WDDoc.ActiveWindow.WindowState = wdWindowStateMaximize
Set nms = ActiveWorkbook.Names
Set wks = Worksheets("Offerte Print")
wks.Activate
For r = 1 To nms.Count
DoEvents
If InStr(1, nms(r).Name, "!") > 0 Then GoTo 1
If InStr(1, nms(r).Name, "Template") > 0 Then GoTo 2
wks.Cells(r, 2).Value = nms(r).Name
wks.Cells(r, 3).Value = nms(r).RefersToRange.Address
If Range(wks.Cells(r, 2).Value).Text = Empty Then GoTo 3
Range(wks.Cells(r, 2).Value).Select
hier na nog een heel stuk vba..