The Back story: Our drawing's part number in the title block is linked to $PRP:"SW-File Name". The file names are all UPPERCASE. I've recently discovered if I double-click a drawing in PDM to open it, the part number fills in all LOWERCASE. That led me to find out the part number note does not have the "All uppercase" box checked. Rather than manually fix each drawing I thought I'd record a simple macro to do it.
The Problem: I did Record Macro, Edit Sheet Format, picked the note, checked the All uppercase box, close note dialog (green check mark), close Edit Sheet Format, Stop macro, and named it. I closed and reopened the drawing and ran the macro. It did Edit Sheet Format and closed the Edit Sheet Format, but did NOT check the All uppercase box. Below is the macro text that it recorded. It is not edited in any way. Why did SW miss that in the macro?
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
boolstatus = Part.Extension.SelectByID2("Sheet Format1", "SHEET", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem90@Sheet Format1", "NOTE", 0.814613506104877, 2.97813064109662E-02, 0, False, 0, Nothing, 0)