Question

我想在powerpoint中创建一个自定义文档属性，该属性链接到C＃中的文档内容。

我找到了各种示例，但它们都创建了自定义文档属性，没有链接到文档内容。

我想要实现的是用户选择任何形状的文本，并通过单击按钮，创建自定义文档属性以及指向源的链接。我希望以后能够检索它并按需跳转到链接的内容。

以下是我正在使用的代码段：

Microsoft.Office.Core.DocumentProperties properties;
properties = (Office.DocumentProperties)this.myOCMModule.PowerPointApp.ActivePresentation.CustomDocumentProperties;
Microsoft.Office.Interop.PowerPoint.Selection powerPointSelection  = this.myMainOCMModule.PowerPointApp.ActiveWindow.Selection;
PowerPoint.TextRange textRange = powerPointSelection.TextRange;
properties.Add("Test1", true, Microsoft.Office.Core.MsoDocProperties.msoPropertyTypeString, textRange.Text, textRange);

已创建自定义属性，但链接无效。当我在PowerPoint中打开自定义属性时，自定义属性显示为链接断开。

当iIdo手动创建一个自定义属性时，它就像在描述here时那样工作。我想以编程方式做同样的事情。

在MS参考中，它说明了

指定链接的来源由容器应用程序定义。

也许它无法正确解析textRange变量？

有谁知道我如何才能做到这一点？

Answer 1

请参阅上面的评论，但我认为可能有更可靠/可控的方式来做你想做的事。

当用户创建一个“书签”时，您的代码可以为相关形状添加标签。在VBA中，这很简单：

oSh.Tags.Add "TagName", "Value of my tag"
' assuming oSh contains a reference to the shape you want to mark

每次都使用相同的标记名称，但更改每个形状的标记值。

要跳转到标记的内容，请执行以下操作（此处插入强制性的空气码警告）：

Sub JumpToTaggedContent(sTagValue as String)
Dim oSl as Slide
Dim oSh as Shape
  For Each oSl in ActivePresentation.Slides
    For Each oSh in oSl.Shapes
       If oSh.Tags("TagName") = sTagValue Then  ' you've found it
          ActiveWindow.View.GoToSlide(oSh.Parent.SlideIndex)
          oSh.Select
          Exit Sub
       End If
    Next
  Next
End Sub

创建链接到文档内容的自定义Office文档属性

1 个答案: