Excel skal ligge Word template på et eksiterende dox
HeJ!JEg prøver at åbne et dokument fra Excel og "påføre" en template grunden til det er at jeg har lavet et dokument der har et bogmærke jeg skal rette i fra EXcel. Den rette fint nok i bogmærket men jeg får ikke Templaten "lagt" på hver gør jeg forkert.
On Error GoTo error_handler
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim DocxTemplate As String
Dim DocType As String
DocxTemplate = "C:\RapportTemplate.dotx"
DocType = "C:\forside.docx"
Dim j As Integer
Set wrdApp = CreateObject("Word.Application")
'wrdApp.Visible = True
'Set wrdDoc = wrdApp.Documents.Add(DocxTemplate)
Set wrdDoc = wrdApp.Documents.Open(DocType, , True)
With wrdDoc
If wrdDoc.Bookmarks.Exists("title") Then
wrdDoc.Bookmarks("title").Range.Text = "test"
wrdDoc.SaveAs "c:\temp\test.docx"
End If
' close the document
Set wrdDoc = Nothing
Set wrdApp = Nothing
End With
error_handler:
MsgBox (Error)
Set wrdDoc = Nothing
Set wrdApp = Nothing