Here is a macro that I found online,not sure where or who I got it from.
Select your dimensions, then run the macro.
It works well for me!
Sub CATMain()
Dim MySel As Selection
Set MySel = CATIA.ActiveDocument.Selection
Dim MyDim As DrawingDimension
Dim Array1 As String
Dim Array2 As String
Dim Array3 As String
Dim Array4 As String
For i = 1 To MySel.Count
If TypeName(MySel.Item(i).Value) = "DrawingDimension" Then
Set MyDim = MySel.Item(i).Value
MyDim.GetValue.GetBaultText 1,Array1,Array2,Array3,Array4
MyDim.GetValue.SetBaultText 1, "(", ")",Array3,Array4
End If
Next
End Sub