Mega Code Archive

 

Categories / VisualBasic Script / Word

 

Save active document

Sub GenerateGlossary()       Dim strSource As String       Dim strDestination As String       Dim strGlossaryName As String       strSource = ActiveWindow.Caption       strGlossaryName = "word"       Documents.Add       ActiveDocument.SaveAs FileName:=strGlossaryName, FileFormat:=wdFormatDocument       strDestination = ActiveWindow.Caption       Windows(strSource).Activate   End Sub