Thread: [Solved] How to select the first row of the current table
View Single Post
 
Old 01-29-2012, 03:35 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,381
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
Hi Jennifer,

For the font, you need to use:
.Range.Font.Name = "Calibri"

For the borders, I deleted the reference to 'Selection.Tables(1)'. I don't get any errors with:
Code:
  If SettingHeaderBorderOff Then  'Turn all but bottom border off
    With .Rows(1)
      .Borders(wdBorderTop).LineStyle = wdLineStyleNone
      .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
      .Borders(wdBorderRight).LineStyle = wdLineStyleNone
      .Borders(wdBorderVertical).LineStyle = wdLineStyleNone
      .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
      .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
    End With
  End If
I did have to comment out the 'If' test, as there doesn't seem to be a SettingHeaderBorderOff variable setting to test in the code you've supplied.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote