topic Re: displaying last part of project name in 2D titleblock in Inventor Forum

topic Re: displaying last part of project name in 2D titleblock in Inventor Forum https://forums.autodesk.com/t5/inventor-forum/displaying-last-part-of-project-name-in-2d-titleblock/m-p/5475732#M388295 I updated your code a slight bit to search for the beginnning and ending parathesis and adjust the information that gets inserted to the Project Property field. <PRE>Dim IPJ As String Dim IPJ_Name As String Dim IPJ_Path As String Dim FNamePos As Long 'set a reference to the FileLocations object. IPJ = ThisApplication.FileLocations.FileLocationsFile 'get the location of the last backslash seperator FNamePos = InStrRev(IPJ, "\", -1) 'get the project file name with the file extension IPJ_Name = Right(IPJ, Len(IPJ) - FNamePos) 'get the project name (without extension) IPJ_ShortName = Left(IPJ_Name, Len(IPJ_Name) - 4) 'get the path of the folder containing the project file IPJ_Folder_Location = Left(IPJ, Len(IPJ) - Len(IPJ_Name)) 'Converts the project file name to UPPER CASE IPJ_ShortName = UCase(IPJ_ShortName) 'determine the location of the parethesis IPJ_ShortName_Right = InStrRev(IPJ_ShortName, ")", -1) IPJ_ShortName_Left = InStr(1, IPJ_ShortName, "(") 'Create the shorten version for use in the Titleblock IPJ_Condensed = Mid(IPJ_ShortName, IPJ_ShortName_Left, IPJ_ShortName_Right - IPJ_ShortName_Left + 1) iProperties.Value("Project", "Project") = IPJ_Condensed</PRE>    Regards, Douglas Robbie   "When you focus on problems, you will have more problems. When you focus on possibilities, you'll have more opportunities." -- Harpreet Singh Batra  Tue, 20 Jan 2015 14:52:59 GMT drobbie98 2015-01-20T14:52:59Z