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)  ...

''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               ...