Individual Reports Not Being Saved Properly

macropod · #5 05-08-2016, 06:20 PM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Last version not saved properly	Tumtum	Word	1	08-15-2015 12:59 PM
Visual Reports	OTPM	Project	3	02-12-2015 08:54 AM
Video not working when saved as .ppt But does when saved as .pptx	patientxwolf	PowerPoint	5	01-24-2014 02:16 PM
Task List Reports	dbsoccer	Outlook	1	04-06-2013 06:33 AM
Merge Reports...	DMA-Pacific	Word	1	03-27-2012 11:49 PM