Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Sub Copy_Into_New_Document() Selection.HomeKey Unit:=wdStory Selection.WholeStory Selection.Copy Documents.Add Selection.Paste MyDir = "C:\Test Folder\" Application.ActiveDocument.BuiltInDocumentProperties(wdPropertySubject) = "Summary " & Format(Now, "dd MMMM yyyy hhnnss") Application.ActiveDocument.SaveAs MyDir & " Summary " & Format(Now, "dd MMMM yyyy hhnnss") End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
17 Experts available now in Live!