Quote:
Originally Posted by JennEx
It appears I have found the problem.
|
Ah, but have you found the solution??
It appears all you need to do is move:
Code:
myPath = "H:\PWS\Parks\Parks Operations\Sports\Sports15\WORKORDERS\" & Format(ws_vh.Range("B2"), "ddd dd-mmm-yy")
.SaveAs myPath & "\" & rpt_od & ".docx"
to follow your last:
.Range.Characters.Last.Delete
and you don't need any of:
Code:
Set oDoc2 = objWord.ActiveDocument
With oDoc2
myPath = "H:\PWS\Parks\Parks Operations\Sports\Sports15\WORKORDERS\" & Format(ws_vh.Range("B2"), "ddd dd-mmm-yy")
.SaveAs myPath & "\" & rpt_od & ".docx"
End With