Microsoft Office Forums - View Single Post - [Solved] Please help copy inside brackets

macropod · 02-05-2012, 04:45 AM

hi Jana,

Replace:

Code:

                'StrTxt = StrTxt & Left(oPara.Range.Text, Len(oPara.Range.Text) - 1) & ", "

with:

Code:

                StrTxt = StrTxt & Left(oPara.Range.Text, Len(oPara.Range.Text) - 1)
                While Right(StrTxt, 1) = "."
                  StrTxt = Left(StrTxt, Len(StrTxt) - 1)
                Wend
                StrTxt = StrTxt & ", "