RevitTricks

Sub GLOSSARY() ' ' GLOSSARY Macro ' ' 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 Loop 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, Long

Dim objIe ''As InternetExplorer                                                         ''ie subroutine operands Dim wscript As New objWSCRIPT_emulator Sub ViewInternetHeader ()     Dim olItem As Outlook.MailItem , olMsg As Outlook.MailItem     Dim strheader As String    InitIE "Starting View Header" , objIe     For Each 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 End Sub Function GetInetHeaders ( olkMsg As Outlook.MailItem ) As String     ' Purpose: Returns the internet headers of a message.'     ' Written: 4/28/2009'     ' Author: 

''Watch for wraps! Option Explicit ''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                                                        &#