看起来以下代码将获取形状的地址。 Dim s As Shape For Each s In ActiveDocument.ActivePage.Shapes s.URL.Address .... Next s End Sub