Change Cell Margin with a Macro

[Supunsam]

Hi guys,

I'm very new to VBA and i would really appreciate if you guys can help me on this macro i'm working on. I have word document contains tables formatted with cell margin option in word. I was trying to convert these in to Paragraph indents. So far i came up with this:



Sub CellPadding()

Dim myCell As Cell
Dim myRow As Row
Dim myTable As Table

Set myTable = Selection.Tables(1)

With myTable

For Each myRow In myTable.Rows
For Each myCell In myRow.Cells

If myCell.LeftPadding = CentimetersToPoints(0.5) Then
Set ParagraphForamat.LeftIndent = 72

End If

Next
Next

End With

End Sub


I might did something stupid in this macro. Please help me to solve this issue. basically i want to change the cell padding value to paragraph indent in the cell.

[macropod]

Cross-posted at: https://social.msdn.microsoft.com/Fo...?forum=worddev
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

Sub Demo()
Application.ScreenUpdating = False
Dim oCell As Cell
With Selection
  If .Information(wdWithInTable) = False Then Exit Sub
  For Each oCell In .Tables(1).Range.Cells
    With oCell
      If Round(PointsToCentimeters(.LeftPadding), 2) = 0.5 Then
        .Range.ParagraphFormat.LeftIndent = 72
      End If
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

[Supunsam]

Hi guys,

First of all i like to apologize for this. I just wanted to find a solution as soon as possible and wasn't aware of this issue. I can assure this wont happen again in the future and i will remove my cross post from msdn.