VBA 应用程序如何在英语和法语版本的 WindowsWord 中使用正确的内置样式

如何在英语和法语版本的 Windows/Word 中使用正确的内置样式

vba
Sub ApplyCorrectBuiltInStyle()
    Dim app As Word.Application
    Dim doc As Word.Document
    
    ' 创建 Word 应用程序对象
    Set app = CreateObject("Word.Application")
    
    ' 打开一个新的文档
    Set doc = app.Documents.Add
    
    ' 根据操作系统语言设置文档的默认语言
    If Application.Language = "English" Then
        doc.Content.LanguageID = wdEnglishUS
    ElseIf Application.Language = "French" Then
        doc.Content.LanguageID = wdFrench
    End If
    
    ' 根据语言版本使用正确的内置样式
    If doc.Content.LanguageID = wdEnglishUS Then
        doc.Styles("Heading 1").Font.Bold = True
    ElseIf doc.Content.LanguageID = wdFrench Then
        doc.Styles("Titre 1").Font.Bold = True
    End If
    
    ' 保存并关闭文档
    doc.SaveAs "C:\Users\Username\Documents\Sample.docx"
    doc.Close
    
    ' 关闭 Word 应用程序对象
    app.Quit
    
    ' 释放对象变量
    Set doc = Nothing
    Set app = Nothing
End Sub