sksanjeev786
Well-known Member
- Joined
- Aug 5, 2020
- Messages
- 884
- Office Version
- 365
- 2016
- Platform
- Windows
VBA Code:
Sub FirstColumnIndentation()
Dim tbl As Table
Dim cell As cell
If Selection.Information(wdWithInTable) = False Then
MsgBox "Please select table", vbExclamation
Exit Sub
End If
Set tbl = Selection.Tables(1)
For Each cell In tbl.Columns(1).Cells
cell.paragraphFormat.LeftIndent = 0.06 * 72 ' Convert inches to points (1 inch = 72 points)
Next cell
End Sub