MS-Word：如何解决Range.WordOpenXML中的奇异性问题？

在Word中使用Range对象的WordOpenXML属性时，可能会遇到一些奇怪的问题。一个常见的问题是，当在代码中使用 Range.WordOpenXML 时，会发现生成的 OpenXML 不完整，缺少一些节点或属性，导致运行时错误。因此，我们需要使用以下方法来解决这个问题：

1. 使用Selection对象来代替Range对象。在代码中使用Selection.WordOpenXML属性生成OpenXML，这将确保生成的OpenXML包含所有必需的节点和属性。

2. 明确定义Range的范围。在使用Range对象之前，确保已明确定义了其范围，以避免生成不完整的OpenXML。

下面是使用 Selection 对象避免问题的代码示例：

Sub GenerateOpenXML()
    Dim selection As Selection
    Set selection = Application.Selection

    ' Define the range of the selection
    Dim startRange As Range
    Dim endRange As Range
    Set startRange = selection.GoToNext(wdGoToBookmark, , , "StartRange")
    Set endRange = selection.GoToNext(wdGoToBookmark, , , "EndRange")
    Dim myRange As Range
    Set myRange = selection.Range(startRange.Start, endRange.End)

    ' Generate the OpenXML for the range
    Dim myXML As String
    myXML = myRange.WordOpenXML
End Sub

通过此方法，您可以生成完整的OpenXML，避免运行时错误和其他问题。