whish I was Bill or Warren ...
Just a small ajustment...
Added chr(34) cause long company name like 'General Electrique Canada'
output just 'General' in TOC and Index
.Fields.Add rg, wdFieldTOCEntry, Chr(34) & rst!NomEntrep & Chr(34) & " \l
1", False
.Fields.Add rg, wdFieldIndexEntry, Chr(34) & rst!NomEntrep & Chr(34), False
Merci encore !
"Jean-Guy Marcil" wrote:
> "Grenier" wrote:
>
> > Jean-Guy and Jay , you guys were right on.
> > Thank's a million !
> > Always amaze by this community support
> > I'll try to "pay it foward"
>
> I can send you my PayPal account number...
> ;-)