如何用VBA取得Word文档中的标题前面的序号

您可以使用以下VBA代码来获取Word文档中的标题前面的序号：

Sub GetHeadingNumber()
    '获取当前所选内容的标题前面的序号
    Dim HeadingText As String, HeadingNumber As String
    Dim rng As Range
    
    Set rng = Selection.Range
    HeadingText = rng.Paragraphs(1).Range.ListFormat.ListString
    If HeadingText = "" Then
        HeadingNumber = ""
    Else
        HeadingNumber = Left(HeadingText, Len(HeadingText) - 1)
    End If
    MsgBox HeadingNumber
End Sub

在此代码中，我们首先选择所需的文本，然后使用`Paragraphs`属性获取所选文本的第一个段落。接着，我们使用`ListFormat.ListString`属性获取该段落的标题前面的序号，并将其存储在`HeadingText`变量中。最后，我们使用`Left`函数从`HeadingText`中提取序号，并将其存储在`HeadingNumber`变量中。最终，我们使用`MsgBox`函数显示序号。

相关问题

如何利用VBA编写程序，根据题库文档随机生成包含不同题型的考试试卷？

要随机生成包含不同题型的考试试卷，可以按照以下步骤使用VBA编写程序：

参考资源链接：[vba 随机产生考试试卷](https://wenku.csdn.net/doc/6412b6aebe7fbd1778d47971?spm=1055.2569.3001.10343)

1. 首先，创建一个题库文档，确保题目的格式符合特定的规范，例如题号为7位数字字符串，第一位表示题型，第二至五位表示序号，第六位表示题型，第七位表示适用人员。

2. 打开Excel，根据题库文档格式制作题库表格，每一行代表一道题目。

3. 在Excel中编写VBA程序，程序需要执行以下功能：
- 读取题库文档，获取题目的数量和题型。
- 根据设定的试卷参数（如题型比例、题量等），计算需要抽取的每种题型的数量。
- 随机选择题目，确保不重复选择同一题，直到达到所需数量。
- 将选中的题目按要求的格式输出到一个新的Word文档中。

4. 使用Word文档模板（试卷A.DOC），在其中插入VBA代码来自动创建试卷。

具体的VBA代码实现会涉及到对Excel和Word对象模型的操作，包括但不限于：
- 使用FileSystemObject读取和写入题库文件。
- 使用Excel的Range、ListObject等对象读取题库表格数据。
- 利用Randomize和Rnd函数生成随机数来随机抽取题目。
- 在Word中使用Document对象来插入和格式化文本。

示例代码框架如下（具体实现细节省略）：

    Sub GenerateRandomTestPaper()
        Dim題庫文件路径 As String
        Dim題庫文件 As FileSystemObject
        Dim題庫表格 As Range
        Dim題目列表 As Collection
        
        ' 初始化題目列表
        Set 題目列表 = New Collection
        ' 打开题库文件
        Set 题库文件 = CreateObject(

参考资源链接：[vba 随机产生考试试卷](https://wenku.csdn.net/doc/6412b6aebe7fbd1778d47971?spm=1055.2569.3001.10343)

word序号最后一个变成***是怎么了

### Word 文档中最后一个序号变成 *** 的原因

在Word文档中，当最后一个序号突然变成 `***` 时，这通常是因为自动编号功能遇到了某些异常情况。具体来说：

- 自动编号项设置后，字体可能在外部分进行了修改，导致编号无法正常显示[^3]。
- 如果对编号格式进行了复杂更改或直接在文中调整了编号样式，则可能导致此类错误发生。

### 解决方案

#### 方法一：重置列表模板中的字体属性
可以通过VBA宏来修复这个问题。执行以下操作可恢复正常的编号显示：

Sub repair()
    For Each templ In ActiveDocument.ListTemplates
        For Each lev In templ.ListLevels
            lev.Font.Reset
        Next lev
    Next templ
End Sub

这段代码遍历当前文档内的所有列表模板，并将每个级别的字体属性重置为其默认状态，从而消除由于手动修改带来的不兼容问题[^2]。

#### 方法二：重新应用内置编号样式并调整
遵循如下步骤也可以解决问题而不必编写脚本：
1. 将受影响的段落暂时更改为无特殊样式的正文文本；
2. 使用Word提供的标准多级列表选项之一创建新的编号序列；
3. 对新建立好的结构进行必要的个性化定制——注意仅限于通过“定义新多级列表”对话框来进行微调，而不是直接作用于单个条目之上[^5]。

这两种方法都能有效处理因不当编辑而引起的最后一位编号变为空心星号(`***`)的情况。选择任一种方式实施即可恢复正常视图下的预期效果。