I've been trying to create a macro which will automatically add a Rev Table with a predetermined revision into an already open drawing file. After recording what I'd like accomplished and cleaning up the code a bit, I have the following Macro (also attached):
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Dim currentSheet As Object
Dim myRevisionTable As Object
Set currentSheet = Part.GetCurrentSheet
Set myRevisionTable = currentSheet.InsertRevisionTable2(False, 0.41578, 0.27005, swBOMConfigurationAnchor_TopRight, "C:\UECO Vault\Administration\Templates\SolidWorks Templates\Revision Table\Revision Table.sldrevtbt", swRevisionTable_TriangleSymbol, True)
Dim myTable As Object
Set myTable = Part.SelectionManager.GetSelectedObject5(1)
myTable.Text(1, 0) = "1"
myTable.Text(1, 1) = "INITIAL RELEASE"
myTable.Text(1, 3) = "DPM"
This inputs the Rev Table format in the proper location on the drawing, but I get a run time error 91 on the bold line when I try to run this. I've looked at multiple other codes which perform similar functions, and I believe the issue I am having is with physically adding the next revision so the text can be inputted but I cannot figure out how to do that. My coding skills in VBA are amateur at best, so I would really appreciate any help I could get. I'm sure it's a simple fix that has been stumping me. Thanks.