Formatting macro

macropod · #1 01-26-2011, 07:11 PM

Hi Ulodesk,

When posting code, please use code tags.

Whilst I'm not sure what your table design goals are, the following appears to replicate what your code was doing:

Code:

Sub KTableH()
Dim i As Integer
With Options
  .DefaultBorderLineStyle = wdLineStyleSingle
  .DefaultBorderLineWidth = wdLineWidth050pt
  .DefaultBorderColor = 8284228
End With
With Selection.Tables(1)
  For i = 1 To 8
    Select Case i
      Case 1, 3 - 8
        With .Borders(i)
          .LineStyle = Options.DefaultBorderLineStyle
          .LineWidth = Options.DefaultBorderLineWidth
          .Color = Options.DefaultBorderColor
        End With
      Case Else
        With .Borders(i)
          .LineStyle = wdLineStyleNone
        End With
    End Select
  Next i
  With .Rows(1).Range
    With .Shading
      .Texture = wdTextureNone
      .ForegroundPatternColor = wdColorAutomatic
      .BackgroundPatternColor = 8284228
    End With
    .Borders.Shadow = False
    With .Cells.Borders(wdBorderVertical)
      .LineStyle = wdLineStyleSingle
      .LineWidth = wdLineWidth050pt
      .Color = -603914241
    End With
  End With
End With
With Options
  .DefaultBorderLineStyle = wdLineStyleSingle
  .DefaultBorderLineWidth = wdLineWidth050pt
  .DefaultBorderColor = -603914241
End With
End Sub

Ulodesk · #2 01-28-2011, 08:21 AM

Paul,

Thanks for your reply. I read your posts often and continue to learn. I'll have to look up tag use, since I don't know what you mean by using them when posting code.

In this case, the code you supplied formats only the header row fill and internal vertical borders, albeit in the correct colors. The table we use actually has half-point borders of the same color (68/104/126) on all cells (the white internals in the header row excepted), and the font in the header row should be white and boldface.

Anyway, it was just an idea. I'm always looking for improved ways to learn and to encourage our staff to use the shortcuts Word offers. At some point, perhaps I'll find the time to learn VBA. Would that Word had the kind of power with tables that InDesign has.

Cordially,
Ulodesk

ubns · #3 04-10-2012, 04:35 PM

Tt throughs an Syntax error - Sub Ktable not defined.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help with a macro	Takket	Word VBA	2	03-28-2014 04:58 PM
need a macro that does the following	atomsk	Word VBA	0	07-05-2010 07:29 AM
Please help	Jarrod	Word	1	06-05-2010 06:31 AM
Macro help	NEHicks503	Excel	0	04-16-2010 07:29 AM
Formatting Help	caution5697	Word	3	04-22-2009 11:53 PM