Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.
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
|If not exist vbs error||4||28|
|Looking for VB6 code to read SQL table export it to ascii||8||24|
|Visual Studio: built-in keystroke automation||2||23|
|execution of the windows script host failed. (access is denied.)||3||6|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
19 Experts available now in Live!