用vba使表格左右边距与页边距对齐

386026398 · 发表于 2024-4-6 11:46

本帖最后由 386026398 于 2024-4-6 21:14 编辑

附件为word文档，其中表格边距超出页边距，求助用vba使表格左右边距与页边距对齐

lhteee · 发表于 2024-4-7 16:49

怎么解决的，想知道

lhteee · 发表于 2024-4-7 16:51

发个代码呗

batmanbbs · 发表于 2024-4-7 17:11

lhteee 发表于 2024-4-7 16:51
发个代码呗

386026398 · 发表于 2024-4-8 17:21

batmanbbs 发表于 2024-4-7 17:11

我起先提出的问题估计是因为样式问题所致，你这种方式能强制解决边距对齐.没有能解决内容的靠边距问题。我采取的是先刷新样式后对齐。

batmanbbs · 发表于 2024-4-8 21:42

本帖最后由 batmanbbs 于 2024-4-8 21:53 编辑

386026398 发表于 2024-4-8 17:21
我起先提出的问题估计是因为样式问题所致，你这种方式能强制解决边距对齐.没有能解决内容的靠边距问题。 ...

你一没说要解决内容靠边距的问题，只是说要使表格左右边距与页边距对齐；二也没有说内容靠边距的距离啊
PS：楼上希望你能够提供代码，你也没有提供啊，我也想学习一下你的VBA代码是如何直接完成你所说的操作的

小花鹿 · 发表于 2024-4-8 22:29

Sub test()
Dim i&, C&
With ActiveDocument
      C = .PageSetup.TextColumns(1).Width
      For i = 1 To .Tables.Count
         With .Tables(i)
            .Rows.Alignment = 1
            .PreferredWidthType = 3
            .PreferredWidth = C
         End With
      Next i
End With
End Sub

386026398 · 发表于 2024-4-9 09:37

实质就是样式不一造成的，加上这句即可 Selection.Tables(1).Style = "表格主题"，

batmanbbs · 发表于 2024-4-9 17:42

本帖最后由 batmanbbs 于 2024-4-9 17:44 编辑

386026398 发表于 2024-4-9 09:37
实质就是样式不一造成的，加上这句即可 Selection.Tables(1).Style = "表格主题"，

选中第一个表格运行代码后，表格发生变化，边框和单元格垂直居中等都发生变化，同时也边距也并没有对齐页边距。请问是什么原因？

386026398 · 发表于 2024-4-10 02:03

batmanbbs 发表于 2024-4-9 17:42
选中第一个表格运行代码后，表格发生变化，边框和单元格垂直居中等都发生变化，同时也边距也并没有对齐页 ...

这个文字是我加了0.25个空格的，你选中两个单元看处理前后的阴影就明白了。这句Selection.Tables(1).Style = "表格主题"，主要是把样式纠正过来。以便再处理对齐。

		自动登录	找回密码
密码			免费注册

[已解决] 用vba使表格左右边距与页边距对齐