word宏vba 获取标题内容

在Word中，可以使用VBA（Visual Basic for Applications）宏来获取标题内容。以下是一个简单的VBA代码示例来实现这个功能：

Sub GetTitleContent()
    Dim currentDoc As Document
    Dim titleRange As Range
    
    ' 获取当前文档对象
    Set currentDoc = ActiveDocument
    
    ' 查找标题
    Set titleRange = currentDoc.Range(Start:=0, End:=0).Paragraphs(1).Range
    
    ' 显示标题内容
    MsgBox titleRange.Text
End Sub

上述代码中，我们先声明了两个变量：`currentDoc`用于存储当前文档对象，`titleRange`用于存储标题内容。

然后，通过`ActiveDocument`对象获取当前文档对象。

接下来，我们使用`Range`对象的`Paragraphs`属性和`Range`方法来获取文档的第一个标题段落的范围。

最后，使用`titleRange.Text`获取标题内容，并通过`MsgBox`函数将其显示出来。

通过运行上述VBA宏，我们可以获取到标题内容。当然，注意文档中必须有标题段落存在，否则会出现错误。