协调多项选择号码格式

Question

我有一个word文档（单词2010）大约1000页，有2000多个问题，具有以下格式：

1. This is question text multiple lines
(a) Option 1
(b) Option 2
(c) Option 3
(d) Option 4

2. Next question text mutliple lines
A. Option 1
b) Option 2
c] Option 3
D) Option 4

依旧......

如上所示，选项前面的单词编号因问题而异。 我需要以下列格式使用它们：

A. Option 1
B. Option 2
C. Option 3
D. Option 4

这些选项需要在1厘米处留下缩进并悬挂1厘米。

我用Google搜索，看起来我需要使用它 Selection.Range.ListFormat.ListValue

获取子弹值 到目前为止我写的（不完整的宏）：

numOfLines = ActiveDocument.BuiltInDocumentProperties("NUMBER OF LINES")

Selection.HomeKey Unit:=wdStory

For x1 = 1 To numOfLines
        Selection.HomeKey Unit:=wdLine
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        bulletValue = Selection.Range.ListFormat.ListValue
        If bulletValue = 0 OR bulletValue = 1 OR bulletValue = 2 OR bulletValue=3 Then
        'THis is where i have no clue what to do next

        EndIf
Next x1

此计数器x1也是一个问题，因为我需要跳过包含4个选项的4行，然后继续前进。怎么样？