Sub sample()
Dim i As Long, j As Long
j = 2
For i = 1 To 3
With ActiveWindow.Selection.TextRange _
.Sentences(i).ActionSettings(ppMouseClick)
.Hyperlink.SubAddress = j
End With
j = j + 1
Next i
End Sub
Sub sample2()
Dim sid As Slide: Set sid = ActivePresentation.Slides(1)
Dim mokuji As String
Dim sLnk As TextRange
With ActivePresentation.Slides
Dim i As Long
For i = 2 To .Count
With .Item(i)
mokuji = .Shapes.Title.TextFrame.TextRange.Text & vbNewLine
Set sLnk = sid.Shapes.Placeholders(2).TextFrame.TextRange.InsertAfter(NewText:=mokuji)
sLnk.ActionSettings(ppMouseClick).Hyperlink.SubAddress = .SlideID & "," & .SlideIndex & "," & mokuji
End With
Next i
End With