VBA代码设置所有单词表';将左单元格边距设置为特定值

VBA代码设置所有单词表';将左单元格边距设置为特定值,vba,ms-word,word-2007,Vba,Ms Word,Word 2007,我花了一整天的时间试图找到一个解决这个问题的方法,我认为这个方法很简单,但事实证明是非常困难的 我想创建一个宏,它将遍历Word 2007文档中的所有表,并确保左单元格填充(单元格边距)设置为0,而不是默认值.08。表格没有边框,我希望表格中的文本与相应的段落齐平 我希望这个标准适用于所有表格,而不考虑表格样式。文档中有不同的表格样式,它们在Excel中格式化并复制粘贴到文档中。由于执行此任务的人员有时会忘记手动更改这些单元格边距,直到打印的文档即将出门,因此如果可能,我希望自动执行此步骤 顺便

我花了一整天的时间试图找到一个解决这个问题的方法,我认为这个方法很简单,但事实证明是非常困难的

我想创建一个宏,它将遍历Word 2007文档中的所有表,并确保左单元格填充(单元格边距)设置为0,而不是默认值.08。表格没有边框,我希望表格中的文本与相应的段落齐平

我希望这个标准适用于所有表格,而不考虑表格样式。文档中有不同的表格样式,它们在Excel中格式化并复制粘贴到文档中。由于执行此任务的人员有时会忘记手动更改这些单元格边距,直到打印的文档即将出门,因此如果可能,我希望自动执行此步骤

顺便说一句,我看到过如果表中有光标,应该可以工作的代码,但这不是我想要的。我希望在一次宏运行的所有表上执行此操作,而不管光标在哪里


非常感谢Microsoft社区的Greg Maxey向我提供了以下代码

Dim oTbl As Word.Table
    For Each oTbl In ActiveDocument.Tables
    oTbl.LeftPadding = 0
Next 
他的Word tips网站位于: