表格内容距离边距设置的vba

386026398 · 发表于 2018-3-29 19:57

附件为表格内容距边距的设置，其中一段vba为单元内容居左的距左边距设置，一段vba为单元内容居右的距右边距设置，想用vba，实现自行判断文档所有表格单元，自动按上述要求进行设置。

413191246se · 发表于 2018-3-29 23:27

楼主厉害！Sub宏第一行就可以加注释，这个真不知道。

413191246se · 发表于 2018-3-29 23:29

建议楼主把注释加在第一行代码之下，因为加在第一行，比较难看。

413191246se · 发表于 2018-3-29 23:31

楼主文档内置的这两个宏，似乎不怎么管事。

413191246se · 发表于 2018-3-30 01:15

* 楼主，请试试我在整个宇宙独家原创的 VBA 宏代码：（如果表格太多，请备份文档后，耐心等待）

Sub 循环遍历所有表格及单元格_财会表格()
'功能：光标在表格中处理当前表格；否则处理所有表格！
Dim t As Table, i As Long, c As Cell, r As Range
If Selection.Information(wdWithInTable) = True Then i = 1
For Each t In ActiveDocument.Tables
If i = 1 Then Set t = Selection.Tables(1)
For Each c In t.Range.Cells
Set r = c.Range
With r
If Asc(r) < 0 Then
.Font.Color = wdColorPink '粉红
.ParagraphFormat.Alignment = wdAlignParagraphLeft
.ParagraphFormat.CharacterUnitLeftIndent = 0.5
If r Like "*减：*" Then
.Select
CommandBars.FindControl(ID:=122).Execute
CommandBars.FindControl(ID:=123).Execute
.InsertBefore Text:=Chr(-24159)
' End If
End If
ElseIf Asc(r) > 0 Then
.Font.Color = wdColorBlue '蓝色
.ParagraphFormat.Alignment = wdAlignParagraphRight
.ParagraphFormat.CharacterUnitRightIndent = 0.5
End If
'首行加粗
With t.Rows(1).Range
With .Font
.Name = "黑体"
.Bold = True
.Color = wdColorRed '红色
End With
With .ParagraphFormat
.Alignment = wdAlignParagraphCenter
.LeftIndent = CentimetersToPoints(0)
.CharacterUnitLeftIndent = 0
End With
.HighlightColorIndex = wdYellow '突出显示/黄色
End With
'末行加粗
With t.Rows(t.Rows.Count).Range
With .Font
.NameFarEast = "黑体"
.NameAscii = "宋体"
.Bold = True
.Color = wdColorAutomatic '自动色
End With
With .Cells(1).Range
.Font.Color = wdColorRed '红色
With .ParagraphFormat
.Alignment = wdAlignParagraphCenter
.LeftIndent = CentimetersToPoints(0)
.CharacterUnitLeftIndent = 0
End With
End With
.HighlightColorIndex = wdYellow '突出显示/黄色
End With
End With
Next
If i = 1 Then Exit For
Next
MsgBox "处理完毕！！！！！！！！！！！！" & vbCr & vbCr & _
"*** 如果想打印，只须<全选>，再点击<突出显示：无>即可！" & vbCr & _
"*** 如果想打印，只须<全选>，再点击<自动色>即可！" & vbCr & _
"*** 注释语句可以删除，或注释掉！" & vbCr & _
"*** 特殊功能：光标在表格中处理当前表格；否则处理所有表格！", vbOKOnly + vbExclamation
End Sub

复制代码

386026398 · 发表于 2018-3-30 07:58

谢谢5楼的回答，比我要求的功能还多

相见是缘8 · 发表于 2018-3-30 14:20

本帖最后由相见是缘8 于 2018-3-30 14:32 编辑

413191246se 发表于 2018-3-30 01:15
* 楼主，请试试我在整个宇宙独家原创的 VBA 宏代码：（如果表格太多，请备份文档后，耐心等待）

大神！！！

386026398 · 发表于 2018-3-31 07:06

5楼的宏经测试，要是改进3个地方就好了，1.对居中单元格视同居左单元处理了，居中单元不用加居左0.5，2.表的标题不止1行时不能识别，有的行标题达到2行甚至3行的无法识别，3.无法对标有合计的行加粗。还望5楼的楼主改进，

413191246se · 发表于 2018-3-31 15:48

5楼的我叫层主。请楼主提供附件，你原来的附件我的宏似乎没问题。

386026398 · 发表于 2018-3-31 20:40

附件样式如下

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

[求助] 表格内容距离边距设置的vba