请教一个word VBA调整word表格内单元格缩进量的问题

小盆友靠自己

各位大神，本人工作中经常要对word表格中的内容调整缩进量，目前选定需要调整的单元格之后，再点击“增加缩进量”按钮后，实际的效果是将整个表格往后缩了，这不是我要的效果，我要的效果是表格里面的内容往后缩。实务中我需要一个一个地去调整，非常麻烦，我想用VBA来解决这个问题。
我自己编写了一部分代码，请各位大神帮忙修改一下：
Sub Indent()
Dim aa As Range

If Selection.Information(wdWithInTable) = True Then '表示所选内容位于表格中
For Each aa In Selection.Cells
     aa.ParagraphFormat.IndentCharWidth 1
Next
End If
End Sub

413191246se

1. Sub TableFirstLineIndent()
   
2.     With Selection
   
3.         If .Information(wdWithInTable) = False Then MsgBox "Not-Select!", 0 + 16: End
   
4.         .ParagraphFormat.CharacterUnitFirstLineIndent = 2
   
5.     End With
   
6. End Sub

复制代码

小盆友靠自己

413191246se 发表于 2021-12-22 17:11

非常感谢您的回复，您的回复是将表格内的文本设置为首行缩进两字符，我想要达到的目的是增加缩进量，因为有的时候需要增加好几次缩进量，就是往右边再移动，您可以帮我再看看代码吗？我需要每执行一次，就往右边缩进一次

413191246se

* Please run the first macro firstly, so you can work well! Enjoy!

1. Sub HotkeyFirstLineIndent()
   
2.     KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyF3), KeyCategory:= _
   
3.         wdKeyCategoryCommand, Command:="DecreaseLeftIndent"
   
4.     KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyF4), KeyCategory:= _
   
5.         wdKeyCategoryCommand, Command:="IncreaseLeftIndent"
   
6.     MsgBox "F3: DecreaseLeftIndent" & vbCr & "F4: IncreaseLeftIndent", 0 + 48
   
7. End Sub
   
8. Sub IncreaseLeftIndent()
   
9.     With Selection
   
10.         If .Information(wdWithInTable) = False Then MsgBox "Please put cursor in the table!", 0 + 16: End
    
11.         If .Type = wdSelectionIP Then MsgBox "Not-Select!", 0 + 16: End
    
12.         With .ParagraphFormat
    
13.             If .CharacterUnitLeftIndent = -0.5 And .LeftIndent = -5.25 Then
    
14.                 .CharacterUnitLeftIndent = 0
    
15.                 .LeftIndent = CentimetersToPoints(0)
    
16.             Else
    
17.                 .CharacterUnitLeftIndent = .CharacterUnitLeftIndent + 0.5
    
18.             End If
    
19.         End With
    
20.     End With
    
21. End Sub
    
22. Sub DecreaseLeftIndent()
    
23.     With Selection
    
24.         If .Information(wdWithInTable) = False Then MsgBox "Please put cursor in the table!", 0 + 16: End
    
25.         If .Type = wdSelectionIP Then MsgBox "Not-Select!", 0 + 16: End
    
26.         With .ParagraphFormat
    
27.             If .CharacterUnitLeftIndent = 0.5 And .LeftIndent = 5.25 Then
    
28.                 .CharacterUnitLeftIndent = 0
    
29.                 .LeftIndent = CentimetersToPoints(0)
    
30.             Else
    
31.                 .CharacterUnitLeftIndent = .CharacterUnitLeftIndent - 0.5
    
32.             End If
    
33.         End With
    
34.     End With
    
35. End Sub

复制代码