☰

如何自动将段落第一行（在单元格中）设置为标题

tag-icon • tag-icon microsoft-word
如何自动将段落第一行（在单元格中）设置为标题

我在 Word 中有一个大约有 1000 行的大表格。我想制作一个目录，这需要每个单元格都有一个标题样式。

该表有 2 列，我想将该表每行的第一行设置为标题样式。有没有自动的方法可以做到这一点？我一直在尝试手动操作，但这将花费很多时间。

编辑：不幸的是，当我从 Excel 导出时，所有的“新段落”实际上都变成了换行符，而不是段落。

答案1

我假设您所说的行是指每个单元格、第一列的第一个段落。

您可以使用宏来执行此操作：

Sub setTableHeadings() 
Dim tbl as Table
if Selection.Tables.Count=1 Then
Set tbl=Selection.Tables(1)
Dim rw as Row
For Each rw in tbl.Rows
 rw.Cells(1).Range.Text = Replace(rw.Cells(1).Range.Text, Chr(11), Chr(13), , 1)
rw.Cells(1).Range.Paragraphs(1).Style="Heading 1"
Next
End If
End Sub

这将循环遍历每一行、第一列，并将标题 1 样式应用于单元格中的第一个段落。

在文档的副本中（以防万一），选择表格并运行宏来更新第一列。

编辑：更新为用段落标记替换单元格中第一个手动换行符，然后可以将样式应用于第一个段落（注意，如果在 Excel 中使用 ALT ENTER 创建换行符，则 Chr(11) 是手动换行符）。

相关内容