如何使用Word VBA改变文档第一段生成文件名的大小写

Sub ChangeFileNameCase()
    Dim fileName As String
    Dim newFileName As String
    
    ' 获取当前文档的文件名
    fileName = ThisDocument.FullName
    
    ' 获取第一段的文本内容
    Dim firstParagraph As Paragraph
    Set firstParagraph = ThisDocument.Paragraphs(1)
    Dim firstParagraphText As String
    firstParagraphText = firstParagraph.Range.Text
    
    ' 将第一段文本转换为大写
    newFileName = UCase(firstParagraphText)
    
    ' 修改文件名
    Dim fileSystem As Object
    Set fileSystem = CreateObject("Scripting.FileSystemObject")
    fileSystem.MoveFile fileName, fileSystem.GetParentFolderName(fileName) & "\" & newFileName & ".docx"
    
    ' 提示修改成功
    MsgBox "文件名已成功修改为：" & newFileName & ".docx"
End Sub