How to get group labels via macro

Thu, 24 Jan 2013 18:15:54 GMT

Hi,

This is an example from the API-guide to get all fields/definitions in a group.

groups = ActiveDocument.GetGroups

set gp = groups(0).GetProperties

set vars = gp.FieldDefs

for i = 0 to vars.Count-1

set fld = vars(i)

msgbox("field " & i+1 & " is " & fld.Name)

But how do i get the label? I tried:

msgbox("label " & i+1 & " is " & fld.Label)

But did not work. Doesn't seem to find it in the API-guide.

Cheers

Martin

Re: How to get group labels via macro

Gysbert_Wassenaar — Thu, 24 Jan 2013 19:08:38 GMT

Try something like this:

sub GetLabels

groups = ActiveDocument.GetGroups

set gp = groups(0).GetProperties

vars = gp.Labels

msgbox vars(0)

for i = 1 to ubound(vars)

msgbox vars(i)

end sub