将所有word表的左单元格边距设置为特定值的VBA代码
将所有word表的左单元格边距设置为特定值的VBA代码
提问于 2014-04-15 23:58:21
我花了一整天的时间试图找到一个解决这个问题的办法，我认为这个问题很简单，但事实证明是非常困难的。
我想要创建一个宏，它将遍历Word 2007文档中的所有表，并确保左单元格填充(单元格边距)设置为0，而不是默认的.08。这些表没有边框，我希望表中的文本与相应的段落齐平。
无论表格样式如何，我都希望对所有表都使用这个标准。文档中有不同的表样式，它们在Excel中格式化，并复制并粘贴到文档中。由于执行此任务的人员有时忘记手动更改这些单元格边距，直到打印文档出门之前，我想在可能的情况下自动执行这一步骤。
顺便说一句，我见过一些代码，如果你把光标放在表里的话，这些代码应该能工作，但这不是我想要的。我希望在所有具有一个宏运行的表上执行此操作，而不管光标在哪里。
非常感谢
回答 1
Stack Overflow用户
回答已采纳
发布于 2014-04-17 14:58:12
以下代码是由Microsoft社区的Greg提供给我的。
Dim oTbl As Word.Table
For Each oTbl In ActiveDocument.Tables
oTbl.LeftPadding = 0
Next 他的言简意赅是：
tips.html
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/23096612
复制相关文章
相似问题
腾讯云开发者
