VBA Open New Word Document from Template

Sub CreateEstimate()
 
pName = Sheets("Bid Sheet").Range("B1")
pLocation = Sheets("Bid Sheet").Range("B2")
EDate = Format(Now(), "dddd, mmmm dd , yyyy")
eNumber = Format(Now(), "mmddyyhhmmss")
eAmount = FormatCurrency(Sheets("Bid Sheet").Range("E71"), 2)
 
vMyEstimateWording = "j:\" & Year(Now()) & "\" & pLocation & " -" & pName & "\1 - Bid Sheet\Bid Day\"
 
Set wordapp = CreateObject("Word.Application")
Set worddoc = wordapp.Documents.Open("J:\Estimate System\Word Estimate.dotm")
    wordapp.Visible = True
 
With worddoc
    .Bookmarks("pName").Range.InsertAfter pName
    .Bookmarks("pLocation").Range.InsertAfter pLocation
    .Bookmarks("eDate").Range.InsertAfter EDate
    .Bookmarks("eNumber").Range.InsertAfter eNumber
    .Bookmarks("eAmount").Range.InsertAfter eAmount
    .SaveAs pName & "-" & pLocation & "-" & eNumber & ".docm"
End With
 
'worddoc.Save
 
End Sub
 
 
':WORD VBA HERE
Sub EMailPDFCopy()
    Dim vFullName As String
    Dim vPath As String
    Dim vSubject As String
    Dim vBody As String
    Dim vName As String
    Dim bStarted As Boolean
    Dim vSplitTest As Variant
 
    'Dim oOutlookApp As Outlook.Application
    'Dim oItem As Outlook.MailItem
 
    On Error Resume Next
        
    vFullName = Application.ActiveDocument.FullName
    vName = Left(Application.ActiveDocument.Name, Len(Application.ActiveDocument.Name) - 5)
    vSplitTest = Split(vName, "-")
    vPath = Application.ActiveDocument.Path
    vNewName = Left(Application.ActiveDocument.FullName, Len(Application.ActiveDocument.FullName) - 4) & "PDF"
    vSubject = "ESTIMATE - JOB NAME: " & vSplitTest(0) & "  ADDRESS:  " & vSplitTest(1) & "  ESTIMATE #:  " & vSplitTest(2)
    vBody = "Thank you for giving us the opportunity to bid this project.  " & _
                "Please let us know if there is anything else you may need.  " & vbNewLine & _
                "Also keep in mind that we are very aggressive and have the" & _
                " ability to offer voluntary alternates or even design build options to reduce costs.  " & _
                "Most our Voluntary Alternates can be provided in less than 48 hours."
    vSignature = vbNewLine & vbNewLine & "Thank You," & vbNewLine & "ACCI" & vbNewLine & vbNewLine & _
                    "Main: (512) 692-4778 Option 2" & vbNewLine & _
                    "Toll Free: (877) 8AC-CITX (22-2489) Option 2" & vbNewLine & _
                    "Fax: (512) 266-7128" & vbNewLine & "E -Mail: Ron@ accitx.com" & vbNewLine & _
                    "WEB: http://www.accitx.com"
    
    'ChangeFileOpenDirectory vPath
        
    Application.ActiveDocument.Save
    
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        vNewName, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
 
    If Len(ActiveDocument.Path) = 0 Then
        MsgBox "Document needs to be saved first"
        Exit Sub
    End If
 
    Set oOutlookApp = GetObject(, "Outlook.Application")
    If Err <> 0 Then
        Set oOutlookApp = CreateObject("Outlook.Application")
        bStarted = True
    End If
 
    Set oItem = oOutlookApp.CreateItem(olMailItem)
 
    With oItem
        .To = ""
        .Subject = vSubject
        '.GetInspector ' Dont think this is needed or maybe i am not using the correct syntax.
        .Body = vBody & vSignature
        .Attachments.Add vNewName
        .Display
    End With
 
    If bStarted Then
        oOutlookApp.Quit
    End If
 
    Set oItem = Nothing
    Set oOutlookApp = Nothing
 
End Sub
                                  

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101: