是否可以在 Microsoft Word 编号列表中包含两次编号?
示例:我有以下列表。我需要遵循一个规范,但我没有制定并且无法控制,因此必须使用两次数字来格式化列表。
项目 1(苹果)
1.水果
1.B种子
第 2 项(樱桃)
2.水果
2.B种子
第 3 项(莳萝泡菜)
3.水果
3.B种子
然后老板让我插入香蕉。列表如下:
项目 1(苹果)
1.水果
1.B种子
项目 2(香蕉)
2.水果
2.B种子
第 2 项(樱桃)
3.水果
3.B种子
第 3 项(莳萝泡菜)
4.水果
4.B种子
一切都按预期进行,但我不得不遍历 27 个编号项并将它们全部递增,这对我来说很麻烦。有没有办法在编号中生成两次数字?那么我的编号模板应该是这样的
“#。 物品 #”
这可能吗?
答案1
假设您的用户名是“jsharpminor”,您是否习惯用 VisualBasic 编写 Word 宏?
您可以通过以下方式访问宏编辑器:
- 在“开发工具”选项卡上的“代码”组中,单击“宏”。
- 在“宏名”框中,键入宏的名称。
- 在“宏位于”列表中,单击要存储宏的模板或文档。(要使宏在所有文档中可用,请务必单击
Normal.dotm
。) - 单击“创建”以打开 Visual Basic 编辑器。
然后查看这些代码示例,看看是否可以拼凑一个宏,该宏只需查看文档中的每个列表,检查它是否具有形式X. Item Y ([anything])
,X =! Y
如果是,则更新Y
以使其具有与相同的值X
。
查找和处理文档列表中的页面
For Each mypara In ActiveDocument.Lists(2).ListParagraphs
mypara.Range.Underline = wdUnderlineDouble
Next mypara
' source: https://docs.microsoft.com/en-us/office/vba/api/word.list.listparagraphs
将对象转换Paragraph
为Selection
对象:
ActiveDocument.Paragraphs(1).Range.Select
' source: https://www.office-forums.com/threads/how-to-select-a-paragraph-via-vba.1864077/
阅读和书写选定的文本:
MsgBox Selection.Text
For i = 1 To 10
Selection.Text = "Line" & Str(i) & Chr(13)
Next i
' source: https://docs.microsoft.com/en-us/office/vba/api/word.selection.text
答案2
考虑使用序列字段对于您的第二个号码(描述后面的号码)。
Seq(序列)字段按顺序对文档中的章节、表格、图片和其他项目进行编号。如果您添加、删除或移动某个项目及其相应的 Seq 字段,则可以更新文档中剩余的 Seq 字段以反映新的序列。
指示
标识符
您为要编号的一系列项目指定的名称。名称必须以字母开头,且长度不得超过 40 个字符(字母、数字和下划线)。例如,一系列表格的名称可能是“表格”。
开关
\C
重复最接近的先前序列号。这对于在页眉或页脚中插入章节号很有用。
\H
隐藏字段结果。使用它来引用交叉引用中的 Seq 字段而不打印编号。例如,您可能想引用编号的章节但不打印章节编号。如果还存在 Format (*) 开关,则 \h 开关不会隐藏字段结果。
\n
插入指定项目的下一个序列号。这是默认设置。
\rn
将序列号重置为指定数字 n。例如,{ SEQ figure \r 3 } 从 3 开始对图形进行编号。
\s
重置“s”后面标题级别的序列号。例如,{ SEQ figure \s 2 } 开始以标题 2 样式进行编号。
因此,您使用多级列表编号来表示起始编号,使用序列字段来表示末尾编号。当您想要重新开始编号时,可以使用开关\r
将其设置为您想要重新开始的编号。
您可以将序列字段保存为自动文本或快速部分条目,以便轻松多次插入。
答案3
如果文本中的数字始终等于列表数字(即X. 项目 X),可以使用交叉引用来插入数字:
- 开始编号列表并输入物品
- 在引用选项卡上,单击交叉引用(Alt+L、E)
- 选择参考类型:编号项目,并参考:段落编号
- 从列表中选择当前项目,然后单击插入
要更新所有数字,请选择整个列表(或整个文档:Ctrl+A),然后按 F9(或右键单击,然后选择更新字段)
注意:我的 Word 版本不是英文的,因此菜单名称可能无法正确翻译。
答案4
使用StyleRef
方式如下:
- 前往
Insert
标签。 - 在 中
Quick Parts
,点击Field...
。 - 选择
StyleRef
作为字段名称。 - 选择
List Paragraph
作为字段属性。 - 检查标有 的标记
Insert paragraph # in relative context
。 - 单击“确定”。
上述步骤请参考下图。
完成后,然后:
- 复制并粘贴该“1”到每个项目后面,例如这。
- 按 选择全部
ctrl+A
。 - 按 更新字段
F9
。
现在,每当您在列表中添加一个项目(例如,香蕉)时,只需在该项目后复制并粘贴“1”,然后按下 键ctrl+A
并按 键更新所有数字F9
。