Macro Help

[Tony1974]

i knew i forgot something!

Sub AutoOpen()    ' Update all fields in the document
    Dim aStory As Range
    Dim aField As Field
    For Each aStory In ActiveDocument.StoryRanges
        For Each aField In aStory.Fields
            aField.Update
        Next aField
    Next aStory
    
    ' Process checkboxes based on custom properties
    CheckBoxesByTag
End Sub


Sub CheckBoxesByTag()
    Dim lngProp As Long
    Dim arrProperties() As String
    Dim varValue As Variant
    Dim oCC As ContentControl
    
    ' Define the names of the custom properties to check
    arrProperties = Split("DCR Type|Change Classification", "|")
    
    ' Loop through each property name in the array
    For lngProp = 0 To UBound(arrProperties)
        ' Get the value of the custom property
        varValue = ActiveDocument.CustomDocumentProperties(arrProperties(lngProp)).Value
        
        ' If the value is not empty, find the corresponding content control by tag and check it
        If Not IsEmpty(varValue) Then
            ' Get the specific content control associated with that value e.g., tag = value
            Set oCC = ActiveDocument.SelectContentControlsByTag(varValue).Item(1)
            oCC.LockContents = False
            oCC.Checked = True
            oCC.LockContents = True
        End If
    Next lngProp
lbl_Exit:
  Exit Sub
End Sub

[gmaxey]

Tony,

Just for the sake of completeness, while your AutoOpen() macros may be updating all of the fields you care about, it is not a comprehensive update. You might consider:

Sub AutoOpen()
  UpdateAllFields
  CheckBoxesByTag
lbl_Exit:
  Exit Sub
End Sub

Sub UpdateAllFields()
Dim oRngStory As Word.Range
Dim lngJunk As Long
Dim oShp As Shape, oCanShp As Shape
Dim oToc As TableOfContents, oTOA As TableOfAuthorities, oTOF As TableOfFigures
lngJunk = ActiveDocument.Sections(1).Headers(1).Range.StoryType
  For Each oRngStory In ActiveDocument.StoryRanges
    'Iterate through all linked stories
    Do
      On Error Resume Next
      oRngStory.Fields.Update
      Select Case oRngStory.StoryType
        Case 6, 7, 8, 9, 10, 11
          If oRngStory.ShapeRange.Count > 0 Then
            For Each oShp In oRngStory.ShapeRange
              If oShp.TextFrame.HasText Then
                 oShp.TextFrame.TextRange.Fields.Update
              End If
              If oShp.Type = msoCanvas Then
                For Each oCanShp In oShp.CanvasItems
                  If oCanShp.TextFrame.HasText Then
                    oCanShp.TextFrame.TextRange.Fields.Update
                  End If
                Next oCanShp
              End If
            Next
          End If
        Case Else
          'Do Nothing
      End Select
      On Error GoTo 0
      'Get next linked story (if any)
      Set oRngStory = oRngStory.NextStoryRange
    Loop Until oRngStory Is Nothing
  Next oRngStory
  'Special Cases
  For Each oToc In ActiveDocument.TablesOfContents
    oToc.Update
  Next oToc
  For Each oTOA In ActiveDocument.TablesOfAuthorities
    oTOA.Update
  Next
  For Each oTOF In ActiveDocument.TablesOfFigures
    oTOF.Update
  Next
lbl_Exit:
  Exit Sub
End Sub
Sub CheckBoxesByTag()
Dim lngProp As Long
Dim arrProperties() As String
Dim varValue As Variant
Dim oCC As ContentControl
  'Define the names of the custom properties to check
  arrProperties = Split("DCR Type|Change Classification", "|")
  'Loop through each property name in the array
  For lngProp = 0 To UBound(arrProperties)
    'Get the value of the custom property
    varValue = ActiveDocument.CustomDocumentProperties(arrProperties(lngProp)).Value
    'If the value is not empty, find the corresponding content control by tag and check it
    If Not IsEmpty(varValue) Then
      'Get the specific content control associated with that value e.g., tag = value
      Set oCC = ActiveDocument.SelectContentControlsByTag(varValue).Item(1)
      With oCC
        .LockContents = False
        .Checked = True
        .LockContents = True
      End With
    End If
  Next lngProp
lbl_Exit:
  Exit Sub
End Sub

[Tony1974]

Greg,

Thanks for the latest update!

Of course now that i have this working, management has decided that the line here:

' Define the names of the custom properties to check
    arrProperties = Split("DCR Type|Change Classification", "|")

doesnt need an array check. there is now just Change Classification property to check. could you modify so this is the case? Thanks in advance

[gmaxey]

You can just modify that line to:

arrProperties = Split("Change Classification", "|")

arrProperties will then just contain one element "Change Classification"

If your management changes their mind later you can revise that line to suit e.g.,:
arrProperties = Split("Change Classification|PropB|PropC|Prop whatever", "|")

[Tony1974]

Perfect! thank you very much.

Also could you suggest a good resource for self learning this VBA stuff. I have a feeling that we'll be using this more in the future.

[gmaxey]

Well for starters, I would avoid the AI idiots. In my opinion they will give you half-baked solutions at best. My website has a lot of code examples as does Graham Mayor, Suzanne Barnhill and Charles Kenyon. Reading and trying to answer posts in these forums with the position that "a solution is there, I just have to find it" is where I learned most of what little I know.

[Aussiebear]

....is where I learned most of what little I know.

. Even for us Aussies, that's far too modest!.

[gmaxey]

"We are all apprentices in a craft where no one ever becomes a master." ... Hemingway (I think). Thanks Ted!