While .Execute oCol.Add oRng.Text oColTxt.Add oRng.Sentences(1).Text oColLN.Add oRng.Paragraphs(1).Range.ListFormat.ListString oColPN.Add oRng.Information(wdActiveEndPageNumber) oRng.Collapse wdCollapseEnd Wend End With