调用BuiltInDocumentProperties(wdPropertyTitle)返回空字符串

时间:2012-10-07 19:37:52

标签: vba ms-word

我有一个旧的Word宏,应该通过调用

来获取文档标题
DocTitle = ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle)

    Set oBuiltInProps = ActiveDocument.BuiltInDocumentProperties
    strValue = oBuiltInProps.Item("Title").Value

在一个新文档中,这是在调用SaveAs(我也尝试过SaveAs2)之后完成的,这用来确保文档的第一句填充了Documenttitle属性。然而,这似乎不再起作用,我只是得到一个空白字符串。

这是在我的开发机器上所以它可能有一个单词设置我没有设置,但我不记得了。

有谁知道如何强制保存文档以创建DocumentTitle?

我正在使用Word 2010

(我使用Word 2010进行了单独的工作安装,但最初是为97和97编写的)

1 个答案:

答案 0 :(得分:2)

如果我理解正确并且您正在寻找一种简单地在Word 2010中获取文档标题的方法,则可以使用以下宏:

Dim Title As String
Title = ActiveDocument.Name
MsgBox (Title)