Hi everyone - I'm trying to create a macro to extract pages from word and save them as individual documents. I keep getting a compile error: Expected End of Statement error. The issue is the DocNum = DocNum + 1 line??
Any help would be appreciated!
Sub mcrExtractPages() Application.Browser.Target = wdBrowsePage For i = 1 To ActiveDocument.BuiltInDocumentProperties("39") ActiveDocument.Bookmarks("\page").Range.Copy Documents.Add Selection.Paste ChangeFileOpenDirectory "H:\My Documents" DocNum = DocNum + 1 ActiveDocument.SaveAs FileName:="RateLetter_" & DocNum & ".docx" ActiveDocument.Close Application.Browser.Next Next i End Sub