Showing posts from January, 2015

Create definition for glossary (Tabe Of Contents #8)

Dim strMark As String
Dim strDEf As String
''Dim newdoc As New Document
'Dim myrange As Range
Dim I As Integer

Dim Curdoc

Set Curdoc = ActiveDocument

''trim up selection
Do While Selection.Characters(Selection.Characters.Count) = " " And Selection.Characters.Count > 1
   Selection.MoveEnd Unit:=wdCharacter, Count:=-1

strMark = Selection.Text

If strMark = "" Then
   MsgBox "Select some text to mark first", vbCritical, "Error"
   Exit Sub
End If

   Selection.Font.Bold = True
   Selection.Font.Italic = True

   strDEf = InputBox("Definition for " & strMark, "Define Term", vbOK) ''get definition

   strDEf = strMark & "-" & strDEf
Dim x As Field
Set x = Curdoc.TablesOfAuthorities.MarkCitation(Range:=Selection.Range, _
      ShortCitation:=strDEf, LongCitation:= _
      strDEf, LongCitationAutoText:= _

View FULL headers of selected message(s) in Outlook

Dim objIe ''As InternetExplorer                                                         ''ie subroutine operands Dim wscript AsNew objWSCRIPT_emulator
Sub ViewInternetHeader() Dim olItem As Outlook.MailItem, olMsg As Outlook.MailItem Dim strheader AsString
   InitIE "Starting View Header", objIe
ForEach olItem In Application.ActiveExplorer.Selection         strheader = GetInetHeaders(olItem)          MsgIE strheader, objIe 'Set olMsg = Application.CreateItem(olMailItem) 'With olMsg '    .BodyFormat = olFormatPlain '    .Body = strheader '    .Display 'End With Next Set olMsg =Nothing EndSub

Function GetInetHeaders(olkMsg As Outlook.MailItem)AsString ' Purpose: Returns the internet headers of a message.' ' Written: 4/28/2009'

DFSr Backlog script to dump servers and shares out into a text file(or IE window)

''Watch for wraps! OptionExplicit ''135 CHARACTERS IN LANDSCAPE 3         4         5         6         7         8         9        10        11        12         13  13 '123456789112345678921234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789302345 '''GLOBALS==============================================================================================================================
Dim blnFlag, strIETitle Dim objIe ''As InternetExplorer                                                         ''ie subroutine operands Dim ubSvr, ubShr, Shr                                             ''INTEGER UBOUND FOR SERVER, SHARE AND SERVER AND SHARE COUNTERS Dim dateStart                                                     '''Date Start for calculating elapsed time, etc. Dim strMsg                                                        ''global string message
Const MaxCol =1…