Tl code

{run:macro:'s=ActiveDocument.Selection.PrimaryTopic.Text%0D%0Al=%22(list)%22%0D%0AIf InStrRev(s,l) Then%0D%0A 	s=Replace(s,l,%22%22)%0D%0A Else%0D%0A s=s & l%0D%0A	End If%0D%0A ActiveDocument.Selection.PrimaryTopic.Text=s'}