Change Cell Margin with a Macro

Supunsam · #1 05-16-2016, 02:47 PM

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 · #2 05-16-2016, 04:22 PM

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

Code:

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 · #3 05-16-2016, 11:15 PM

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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Margin change for selected text in Word 7	Richtriebe	Word	4	03-14-2016 11:57 AM
Word Table internal cell margin?	Powelland	Word Tables	2	12-09-2015 11:42 AM
Change a document to A4 with Left margin 1.5 from Letter size and 1.27 margin	Reuven	Word	1	12-03-2015 04:25 PM
Macro to change cell references	SaneMan	Excel Programming	6	10-01-2013 02:49 PM
Creating a Macro to change the shading of a cell	Triscia	Word VBA	3	01-30-2013 04:18 PM