Program der gemmer Wordbreve

Private Sub Command1_Click()
Dim WordObj As Object

Dim fname As String

fname = InputBox("filnavn")


Set WordObj = CreateObject("word.basic")
WordObj.appshow    ' Vis Word
WordObj.filenew  'Opret nyt Word dokument
WordObj.Font "Times New Roman", 20                  ' Set Font Style/Size
WordObj.Insert "Noget tekst"                                          ' Insert Some Text
WordObj.FileSaveAs Name:="C:\temp\" & fname    ' Save
WordObj.appclose                                                      '
Close Word
Set WordObj = Nothing

End Sub


//akj

Nu er det sådan at jeg har en skabelon som jeg åbner og ved denne kode her:
-------------------------------------------------------------------------------
Public Function InsertAtBookmark(objWordDoc As Word.Document, _
    strBookmark As String, strText As String) As Boolean
    With objWordDoc.Bookmarks
    If .Exists(strBookmark) Then
      .Item(strBookmark).Range.Text = strText
        InsertAtBookmark = True
    End If
    End With
End Function


Public Sub SkrivBrev()
        Dim objWord As New Word.Application
        Dim WordDoc As New Word.Document
        Set WordDoc = objWord.Documents.Add("C:\brev.dot")
        Call InsertAtBookmark(WordDoc, "navn", Navn.Text)
        objWord.Visible = True
End Sub
-------------------------------------------------------------------------------
Hvordan kan jeg indplamenter den kode du har der med denne kode?????

Den skal faktisk åbne skabelonen, indsætte indholdet fra en textBox til et bogmærke, gemme filen og derefter åbne den.... kan man det??