Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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
|Change request forms for Network Security changes. Easier way than doing it every time on a Word template?!||2||45|
|Need a simple script to SYNC/ Mirror a local folder to a network folder.||10||44|
|Why use this lambda?||12||33|