Cell Padding or Margins Within a Table

Similar Threads:

1.Set Cell Padding on word tables with merged cells

Dear Experts:

Below macro sets certain padding values for the selected table.
Regrettably it fails to work on tables with merged cells. Have you got
any idea how to re-write the code so that tables featuring merged
cells also get worked on?

Help is much appreciated. Thank you very much in advance.

Regards, Andreas


Sub SetPadding

Dim myCell As Cell
Dim myRow As row
Dim myTable As Table

Set myTable = Selection.Tables(1)
For Each myRow In myTable.rows
    For Each myCell In myRow.Cells
        myCell.TopPadding = CentimetersToPoints(0)
        myCell.BottomPadding = CentimetersToPoints(0)
        myCell.LeftPadding = CentimetersToPoints(0.19)
        myCell.RightPadding = CentimetersToPoints(0.19)
        myCell.WordWrap = True
        myCell.FitText = False

    Next
Next

End Sub

2.Cell within table within label document fails

I'm executing a mail merge into a label document which is divided into the
typical 10 parts. Within each part I have placed a 3-cell table which is in
this format:

  +-----------------------+
   |      Return Address      |
  +-----------------------+
   |    {{Name}}               |
   |    {{Line1}}                |
   |    {{Line2}} ...etc...    |
  +-----------------------+
   |       Additional text       |
  +-----------------------+

The mail-merge works correctly in regards to the fields being filled in
correctly. The problem is that the additional text does not appear on the
printout of the merged document. Interestingly enough, however, the
additional text *does* appear in the print preview. Thank you in advance for
your response.

Regards,
Paul Fry

3.How--split text within cell of table when cell length goes 2d pg

I have a table I created with two columns and numerous rows.  The text in the 
left column of each row is set.  The text in the right column within each 
cell changes -- sometimes one line of typing, many times 15-20 lines of 
typing.  The table needs to be able to separate text within the right column 
if it runs over onto the next page.  It also needs to widow/orphan on each 
page.  Right now if the cell contains more lines of typing than what will fit 
on each specific page, the entire cell is carried over to the next page 
rather than doing a widow/orphan and essentially splitting the cells of one 
row to be on two pages.  How am I able to split the text of one cell in a 
two-column table to run from one page onto the next? 

4.VBA: After copying a cell's comment (within a table) how to move back to that cell

Hello,

  I am trying create a macro that auto increments the first column
(e.g., step numbers) and maintain any comments within that cell.  I
have a macro that will auto increment and copy the cell's comment, but
once I insert the comment I can't move to the next well properly as it
cursor is not within that cell where the comment was inserted.  I have
tried various methods, but can't get anything to work well.  Below is
the VBA macro that performs this task.  It is not pretty, but sort of
works:

Sub InsertStepNumbersEx()

  Dim stepCount As Integer
  Dim startStep As String
  Dim aCom As Comment
  Dim comStr As String
  Dim oRng As Range
  Dim aSel As Selection

  startStep = InputBox(Prompt:="Enter the starting step number", _
          Title:="Starting Step Number", Default:="0")

  stepCount = CInt(startStep)
  While Selection.Information(wdWithInTable) = True

    ' Select the current cell comment
    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Set aCom = Selection.Comments(1)
    aStr = aCom.Range.Text

    ' Insert the Step Numner
    Set aSel = Selection
    Selection.TypeText Text:=stepCount & "."

    ' Select the current cell and add the comment
    If Not IsEmpty(aStr) Then
      Selection.HomeKey Unit:=wdLine
      Selection.EndKey Unit:=wdLine, Extend:=wdExtend
      Set oRng = Selection.Range
      Selection.Comments.Add Range:=oRng
      Selection.TypeText aStr
    End If

    Selection = aSel
    Selection.MoveDown Unit:=wdLine, Count:=1
    stepCount = stepCount + 1

  Wend

End Sub


  Any help on getting the cursor to move back to the cell's original
position is greatly appreciated.

Mark

5.Excel - allow cell margins similar to Word table cells

6. word table cell resize or word table cell size change or word table change cell size

7. Top/Bottom padding in table cells: error when appending a line from clipboard

8. Cell padding applied in Word 2000 tables disappears in Word 97