RevitTricks

''https://forums.autodesk.com/t5/visual-basic-customization/mtext-format-codes/m-p/8725449#M102647 Attribute VB_Name = "ACAD_TEXT" ''AutoCAD VBA 2010 ''Routine to strip formatting in ALL Autocad MTEXT (Translating Revit ''"text" to autocad drawings dumps as MTEXT with some odd formatting ''issues) try this: Option Explicit Sub Make_Mtext_StyleDependant () Dim oAcadObj As AcadObject Dim ObjBlock As AcadBlock Dim ObjBlocks As AcadBlockReference Dim ObjTxt As AcadMText Dim ObjAcad As AcadObject Dim x Dim re As New RegExp Set re = CreateObject ( "VBScript.RegExp" ) For Each ObjBlock In ThisDrawing.Blocks If InStr ( 1 , LCase ( ObjBlock.Name ), "seal" ) < 1 Then ''don't mess with the seals! For Each ObjAcad In ObjBlock If InStr ( 1 , LCase ( ObjAcad.ObjectName ), &q

Attribute VB_Name = "GatherMessageAddrs" Option Explicit '--------------------------------------- '2014-02-06-added support for missed conversations Public Const VERSION = "2018.05.10.01.58" '======================================= Const VBQT = """" Private DebugTime As Date Public StartTime As Date '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''--REFERENCE CODE TO CALL FROM OUTLOOK