Backup and recover physical and cloud-based servers and workstations, as well as endpoint devices that belong to remote users. Avoid downtime and data loss quickly and easily for Windows-based physical or public cloud-based workloads!
Sub SeparateDocs() ' splitter Macro Dim mask As String Selection.EndKey Unit:=wdStory Letters = Selection.Information(wdActiveEndSectionNumber) 'mask = "ddMMyy" Selection.HomeKey Unit:=wdStory Counter = 1 While Counter < Letters DocName = "U:\" & Environ("USERNAME") & "\SepDocs\" & Format(Time, "h mm ss") & " " & LTrim$(Str$(Counter)) ActiveDocument.Sections.First.Range.Cut Documents.Add Template:="V:\Macros\Template.doc", _ NewTemplate:=False, DocumentType:=0 Selection.Paste ActiveDocument.SaveAs FileName:=DocName, FileFormat:=wdFormatDocument ActiveWindow.Close Counter = Counter + 1 Wend End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.