Current project path to locate Word file from Excel

[claven123]

Trying to export data from Excel to Word (using Office 365)

When I search I get millions of hits on converting excel to word..... Can't seem to find what I'm looking for.
This will be used on different computers with different users etc... so has to have a generic path to the file. With MS Access I'd use currentproject.path like the second example below.

When I use these I get the following errors.

Set doc = wd.Documents.Open(Application.CurrentProject.Path & "\TestINPORT.docx")
Run time Error 438 Object doesn't support this property or method


Set doc = wd.Documents.Open(CurrentProject.Path & "\TestINPORT.docx")

Compile error. Variable not defined

 

[claven123]

Wanted to delete the above, since I should have included the full project, the file part above is a second portion. (I don't see a delete option)


Const FilePath As String = "C:\Users\Owner\Dropbox\Fire Department Files on Windows\Secretary\"
Dim wd As New Word.Application

Sub Button1_Click()
Dim doc As Word.Document
wd.Visible = True
Dim Active As String
Active = ThisWorkbook.Sheets(1).Range("B32").Value
Set doc = wd.Documents.Open(FilePath & "TestINPORT2.docx")
Copy2word "BookActive", Active
doc.Close
wd.Quit
End Sub

Sub Copy2word(BookMarkName As String, Text2Type As String)
wd.Selection.GoTo What:=wdGoToBookmark, Name:=BookMarkName
wd.Selection.TypeText Text2Type
End Sub

I found this on the web. It runs but nothing gets entered at the bookmark. I wonder if it would be easier/better to pull FROM within the word doc, as it will be open when I'm doing this. The above code is run from excel with word closed.