finally I found for the hyperlink,
tdm.Paragraphs.InsertAfter(Pres.Slides(j).Shapes(1).TextFrame.TextRange.Tex t & Chr(13)).ActionSettings(ppMouseClick).Hyperlink.SubAddress = j