Change Cell Margin with a Macro

macropod · #1 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 · #2 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