From: Doug Robbins - Word MVP on
You're welcome.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

"EM" <EM(a)nospam.discussions.com> wrote in message
news:Oxm0mxg9KHA.4768(a)TK2MSFTNGP04.phx.gbl...
> X-No-Archive: Yes
>
> Worked perfectly, Thanks a lot.
>
> ---
>
>>>Use:
>
> oDoc_Source.ConvertNumberstoText
> and then use:
> .Cell(n + 1, 1).Range.Text = strAcronym
> .Cell(n + 1, 3).Range.Text = Left(oRange.Paragraphs(1).Range,
> InStr(oRange.Paragraphs(1).Range, Chr(9)))<<
>
>
>