Access to Populate Word Document - Selection.InlineShapes.AddPicture only works once

[HokieCode]

Hello everyone. New poster here. I am creating a program in Access (Office 2010) that pulls info from a database and populates a word document form letter. The users are able to select their name from a dropdown that also populates their signature.

The last thing I'm doing is to insert an image of the user's signature. I've gotten this to work using Selection.InlineShapes.AddPicture

However, I changed the code to now reference a string for the image path (which changes depending on the user selected) and now it only works the first time I run the script. Every other time it populates the document, but not with the signature. No errors pop up. If I completely stop and restart the vba code it works again.

Any help would be appreciated.

Here is the code for the function that fills out the letter:


Function fillCostLetter()
Dim appword As Word.Application
Dim doc As Word.Document
Dim Path As String
TodayDate = Format(Now(), "mmmm dd, yyyy")
On Error Resume Next
Error.Clear


Set appword = GetObject(, "word.application")


If Err.Number <> 0 Then
Set appword = New Word.Application
appword.Visible = True
End If


Path = "Z:\PathtoDoc\ServiceAssociateToolBox\CostLetterTestStage.docx"


Set doc = appword.Documents.Open(Path, , True)


With doc
.FormFields("Date").Result = TodayDate
.FormFields("BillName").Result = BillName
.FormFields("BillAmmount").Result = BillAmmount
.FormFields("BillAddress").Result = BillAddress
.FormFields("BillAmmount").Result = BillAmmount
.FormFields("BillCity").Result = BillCity
.FormFields("BillState").Result = BillState
.FormFields("BillZip").Result = BillZip


.FormFields("SiteZip").Result = SiteZip
.FormFields("SiteState").Result = SiteState
.FormFields("SiteCity").Result = SiteCity
.FormFields("SiteStreetType").Result = SiteStreetType
.FormFields("SiteStreetName").Result = SiteStreetName
.FormFields("SiteStreetNo").Result = SiteStreetNo
.FormFields("BillName2").Result = BillName
.FormFields("WorkRequest").Result = WR_NO

.FormFields("CustName").Result = CustName


.FormFields("SAName").Result = SAName
.FormFields("SADeptartment").Result = SADept
.FormFields("SAPhone").Result = SAPhone




'' Add signature


Selection.GoTo What:=wdGoToBookmark, Name:="Signature"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.InlineShapes.AddPicture FileName:= _
SASignaturePath, _
LinkToFile:=False, SaveWithDocument:=True

'' end signature stuff


End With


appword.Visible = True
appword.Activate


'' clear stuff


Set doc = Nothing
Set appword = Nothing


End Function

[HokieCode]

Quick update. I noticed that with the code above- If I leave the first document open and run a second time, it will create a second document and populate but add the image to the first document.

I tried doing a
Selection = ActiveDoument
hoping that it would select the new document but it didn't work.