如何用VBA在PowerPoint中为文本批量添加超链接

我正在制作用于交互式公开展示的PowerPoint演示文稿，里面包含大量索引条目，点击条目需跳转至对应幻灯片。目前通过创建文本框（形状）并为形状添加超链接实现该功能，但部分链接偶尔失效。因此希望改为直接给文本内容添加超链接（而非整个文本框），手动操作可行但需处理4500个链接，现有VBA代码如下：

Set sh = pp.Slides(1).Shapes.AddShape(Type:=msoShapeRectangle, Left:=leftcm, Top:=topcm, Width:=260, Height:=35)  
With sh.ActionSettings(ppMouseClick)  
    .Action = ppActionHyperlink  
    .Hyperlink.SubAddress = "73. PowerPoint Presentation"  
End With  

sh.TextFrame.TextRange.Text = "LEWIS, Arthur John"

Set sh = pp.Slides(1).Shapes.AddShape(Type:=msoShapeRectangle, Left:=leftcm, Top:=topcm, Width:=260, Height:=35)  
sh.TextFrame.TextRange.Text = "LEWIS, Arthur John"

' 为文本框内的全部文本添加超链接
With sh.TextFrame.TextRange.ActionSettings(ppMouseClick)
    .Action = ppActionHyperlink
    .Hyperlink.SubAddress = "73. PowerPoint Presentation" ' 目标幻灯片的标题或编号，需与实际格式匹配
End With

• 先设置文本内容，再针对TextFrame.TextRange（文本范围）添加超链接，而非给整个形状绑定链接
• 若只需给文本中某一部分加链接，可通过Characters(start, length)指定范围，示例：

  ' 给文本前5个字符添加超链接
  With sh.TextFrame.TextRange.Characters(1, 5).ActionSettings(ppMouseClick)
      .Action = ppActionHyperlink
      .Hyperlink.SubAddress = "73. PowerPoint Presentation"
  End With
  

• 确保Hyperlink.SubAddress格式正确：可使用幻灯片编号（如"Slide 73"）或完全匹配的幻灯片标题

内容的提问来源于stack exchange，提问作者Stephen