Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
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.
|VMWare Calculate number of processors||10||102|
|how to place an auto-generated doc # on existing Word template||16||38|
|Excel VLookup in a macro where returned column changes every month||7||17|
|Word 2013 - Can't see images in document, only image outline with white inside.||4||22|