macro to reset a circular group to a default value

[florentina_doga]

hi guys

I need a macro to reset a circular group to a default value.

I have 20 circular groups of different sizes. I need a macro to reset these groups to ALL.

All is also a fictitious dimension added to all these circular groups

Thank you in advance

[m_woolf · Accepted solution]

This should work for one group:

sub SetGroup

  set gp = ActiveDocument.GetGroup("YourGroupName")

  strField = activedocument.evaluate("=GetCurrentField([YourGroupName])")

  do while left(strField,3) <> "ALL"

  gp.Cycle 1

  Application.Refresh

  strField = activedocument.evaluate("=GetCurrentField([YourGroupName])")

  loop

end sub