如何根据字体样式删除Word表格中含斜体文本的行

宏录制器确实不太擅长处理这种需要逻辑判断的操作（比如检查文本格式），我给你写一段自定义的VBA代码，专门用来删除表格中包含斜体文本的行，操作起来很简单：

操作步骤： #

1. 打开你的Word文档，按下 Alt + F11 打开VBA编辑器
2. 在左侧的项目资源管理器里，右键点击当前文档的名称，选择「插入」→「模块」
3. 将下面的代码粘贴到新模块的代码窗口中
4. 按下 F5 运行代码，或者点击工具栏上的运行按钮（绿色三角形）

Sub DeleteItalicRows()
    Dim tbl As Table
    Dim row As row
    Dim cell As Cell
    Dim hasItalic As Boolean
    Dim i As Integer
    
    ' 遍历文档中的所有表格（如果只有一个表格，也能正常工作）
    For Each tbl In ActiveDocument.Tables
        ' 从最后一行往前遍历，避免删除行后索引混乱
        For i = tbl.Rows.Count To 1 Step -1
            Set row = tbl.Rows(i)
            hasItalic = False
            
            ' 检查当前行的每个单元格
            For Each cell In row.Cells
                ' 检查单元格内是否有斜体文本
                If cell.Range.Font.Italic = True Then
                    hasItalic = True
                    Exit For ' 只要一个单元格有斜体，就不用继续检查其他单元格了
                End If
            Next cell
            
            ' 如果该行有斜体文本，删除该行
            If hasItalic = True Then
                row.Delete
            End If
        Next i
    Next tbl
    
    MsgBox "已完成！所有含斜体文本的行已被删除。", vbInformation
End Sub

代码说明： #

• 这段代码会遍历文档中的所有表格，如果你的文档只有一个表格，完全不影响
• 采用从下往上遍历行的方式，这是因为如果从上往下删除行，后面的行索引会发生变化，导致漏删
• 只要某一行的任意一个单元格里有斜体格式的文本，整行就会被删除
• 运行结束后会弹出提示框告诉你操作完成

注意事项： #

• 建议在运行代码前备份你的文档，以防万一出现意外情况
• 如果你的表格包含合并单元格，可能需要调整代码（不过普通的3列多行表格完全适用）

内容的提问来源于stack exchange，提问作者Jan-77