请求哪位大神能不能写出word每个表格底下加段前0.5的代码？

晨晓之黎 · 发表于 2021-1-9 00:46

请求哪位大神能不能写出word每个表格底下加段前0.5的代码？谢谢！（有附件）
效果：表格后面的段落加段前0.5
QQ截图20210109003743.png

Jason_WangSS · 发表于 2021-1-9 11:59

Sub 测试()
For Each otabs In ActiveDocument.Tables
n = otabs.Range.Cells.Count
otabs.Range.Cells(n).Select
Selection.MoveDown Unit:=wdLine, Count:=1
If Selection.Information(wdWithInTable) Then
Else
If Len(Selection.Paragraphs(1).Range.Text) > 2 Then
Selection.ParagraphFormat.LineUnitBefore = 0.5
End If
End If
Next
End Sub

复制代码

zpy2 · 发表于 2021-1-9 12:02

此文档被限制，无法转到编辑模式？

413191246se · 发表于 2021-1-9 13:04

* 楼主，如果段前间距 0.5 嫌大可以改为 0.25，请试用：

Sub SpaceBeforeLine()
Dim t As Table
With ActiveDocument
.Content.Find.Execute "[^13^l]", , , 1, , , , , , "^p", 2
For Each t In .Tables
With t.Range
With .Rows
.WrapAroundText = False
.Alignment = wdAlignRowCenter
End With
.Next(4, 1).ParagraphFormat.LineUnitBefore = 0.5
End With
Next
End With
End Sub

复制代码

晨晓之黎 · 发表于 2021-1-9 14:00

zpy2 发表于 2021-1-9 12:02
此文档被限制，无法转到编辑模式？

没有吧，我看了正常

晨晓之黎 · 发表于 2021-1-9 20:14

谢谢楼上两位大神的代码，运行结果可以了！我觉得4楼的代码速度很快速的！

晨晓之黎 · 发表于 2021-1-23 23:25

413191246se 发表于 2021-1-9 13:04
* 楼主，如果段前间距 0.5 嫌大可以改为 0.25，请试用：

4

13191246se大神，请看下小视频，表格宽度有改动了，哪里出问题了？只要不动表格的宽度，只加段前0.5就好了。

413191246se · 发表于 2021-1-24 01:33

本帖最后由 413191246se 于 2021-1-24 03:13 编辑

* 楼主，我的代码并未改动表格宽度，仅仅是取消每个表格的文字环绕，并且使之居中而已。
* 你在未执行代码时，选定表格点击右键，看看它是否是环绕的。
* “.WrapAroundText = False”这句代码意思是“取消文字环绕”；“.Alignment = wdAlignRowCenter”是“居中”；可分别将其屏蔽/注释试试。

413191246se · 发表于 2021-1-24 01:36

本帖最后由 413191246se 于 2021-1-24 03:12 编辑

略。。。。

晨晓之黎 · 发表于 2021-1-24 09:25

本帖最后由晨晓之黎于 2021-1-24 09:27 编辑

413191246se 发表于 2021-1-24 01:33
* 楼主，我的代码并未改动表格宽度，仅仅是取消每个表格的文字环绕，并且使之居中而已。
* 你在未执行代码 ...

我的表格调整格式宏里面有文字环绕取消和居中位置，还有删除空行宏，都是调好的。

中间的代码是不是可以去掉？

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

[求助] 请求哪位大神能不能写出word每个表格底下加段前0.5的代码？