Macro Help

fcecconi — Wed, 13 May 2015 18:45:47 GMT

I could use some help with my macro. I am trying to set one object = another object and then jump to a new sheet

sub SelectCoContributor

vCurrSheet = ActiveDocument.ActiveSheet.GetProperties.SheetId

if vCurrSheet = "Document\SHCPDetails" then

set vCoContributor = ActiveDocument.Fields("CO_CONTRIBUTOR_Name").GetPossibleValues

if vCoContributor.Count = "1" then

ActiveDocument.Fields("CONTRIBUTOR_NAME").Value= ActiveDocument.Fields("CO_CONTRIBUTOR_NAME").Value

ActiveDocument.Fields("CONTRIBUTOR_NAME").SelectPossible

ActiveDocument.Fields("CO_CONTRIBUTORIMAGE").Clear

ActiveDocument.ActivateSheet "SHCP"

End If

end sub

The BOLD RED line is where my macro is failing. I could use a trigger to do the same function, but I need to call this macro several times

Thanks for you help!

Frank

Re: Macro Help

Clever_Anjos — Wed, 13 May 2015 19:31:07 GMT

ActiveDocument.Fields("CONTRIBUTOR_NAME").Select vCoContributor(0).Text

should work

fcecconi — Thu, 14 May 2015 15:17:03 GMT

Thanks! It works now