如何通过Python/VBA调整Word中RTL表格旁小方框位置且保留单元格数据

VBA 解决方案 #

直接在Word中通过宏批量处理，无需额外工具：

Sub FixTableHandlePosition()
    Dim tbl As Table
    Dim cell As Cell
    Dim para As Paragraph
    
    ' 遍历文档内所有表格
    For Each tbl In ActiveDocument.Tables
        ' 设置表格整体方向为LTR，将选择小方框移至左侧
        tbl.TableDirection = wdTableDirectionLtr
        
        ' 逐个单元格恢复RTL阅读顺序，保持内容原有方向
        For Each cell In tbl.Range.Cells
            For Each para In cell.Range.Paragraphs
                para.ReadingOrder = wdReadingOrderRtl
                ' 可选：强制保持单元格内容右对齐
                ' para.Alignment = wdAlignParagraphRight
            Next para
        Next cell
    Next tbl
End Sub

使用方法 #

1. 打开目标Word文档，按Alt+F11打开宏编辑器。
2. 插入新模块，粘贴上述代码。
3. 运行宏即可批量处理所有表格。

Python 解决方案 #

通过pywin32库调用Word API，适合批量处理多个文档：

前置准备 #

先安装依赖库：

pip install pywin32

处理代码 #

import win32com.client as win32

def fix_table_handle_position(word_file_path):
    word = win32.Dispatch("Word.Application")
    word.Visible = False  # 后台静默处理
    doc = word.Documents.Open(word_file_path)
    
    for tbl in doc.Tables:
        # 设置表格方向为LTR，移动小方框到左侧
        tbl.TableDirection = 0  # 对应wdTableDirectionLtr常量
        # 遍历单元格恢复RTL阅读顺序
        for cell in tbl.Range.Cells:
            for para in cell.Range.Paragraphs:
                para.ReadingOrder = 2  # 对应wdReadingOrderRtl常量
                # 可选：保持内容右对齐
                # para.Alignment = 2  # 对应wdAlignParagraphRight常量
    
    doc.Save()
    doc.Close()
    word.Quit()

# 调用示例，替换为你的文档路径
if __name__ == "__main__":
    fix_table_handle_position(r"C:\Docs\target_file.docx")

说明 #

两种方案的核心逻辑一致：

• 先调整表格整体方向为LTR，将表格旁的选择小方框移至期望的左侧位置；
• 再逐个单元格设置阅读顺序为RTL，确保单元格内的内容保持原有的右对齐/从右往左的排版，不会被整体翻转。

内容的提问来源于stack exchange，提问作者Stanislav Bondarenko