RevitTricks

Option Explicit Const version = "v2015-02-25-01.0" ''Script takes a csv text based output report from Deltek and uses it to create folder structure on P. Const strFPt = "P:\" ''Target File PathDim FP Const vbqt = """" ''define VBQt for quotation mark ''Lots of globals on this one: Public strDataArr ''Readline of data from file Public strDiscID ''discipline ID Const RemapE = True ''Remap E will create the S/SZ folders if E is in the disciplines . Const ForReading = 1, ForWriting = 2, ForAppending = 8 '' ''FILE MANIPULATION OBJECTS AND REFERENCES'''''''''''''''''' Dim fso ''As New FileSystemObject for creating folders Dim objWSH ''As New WshShell for creating shortcuts Dim strKeyID() ''...

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