Re: Macro for table problems

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: "john@xxxxxxxxxxxxx" <john@xxxxxxxxxxxxx>
Date: 9 Oct 2006 06:43:58 -0700

Hi John

Maybe I'm dumb, but I didn't understand what that progamming language
meant or why the macro does not work.

But if it doesn't work, then what is the best way to insert a specific
table format that I use repeatedly?

John

John McGhie [MVP - Word and Word Macintosh] wrote:

Hi John:

You do NOT want to do the macro! Here's why... (Yes, it works :-))

Sub Main()
'
' Insert or Format Table Macro
' Macro recorded 14/03/00 by John McGhie
'
' On Error GoTo Error

Dim astyle As Style
Dim aDoc As String
Dim aTemplate As String
Dim x As Integer
Dim TabBodyText As Style
Dim TabHeading As Style
Dim TabBullet As Style
Dim tabNumber As Style

aTemplate = ActiveDocument.AttachedTemplate.FullName
aDoc = ActiveDocument.FullName
For Each astyle In ActiveDocument.Styles
If UCase(astyle.NameLocal) = UCase("Table Body Text") Then Set
TabBodyText = astyle
If UCase(astyle.NameLocal) = UCase("Table Bullet") Then Set TabBullet =
astyle
If UCase(astyle.NameLocal) = UCase("Table Heading") Then Set TabHeading
= astyle
If UCase(astyle.NameLocal) = UCase("Table Number") Then Set tabNumber =
astyle
Next astyle

If TabBodyText Is Nothing Then
ActiveDocument.Styles.Add Name:="Table Body Text"
Set TabBodyText = ActiveDocument.Styles("Table Body Text")
With TabBodyText
.AutomaticallyUpdate = False
.BaseStyle = "Body Text"
.NextParagraphStyle = "Table Body Text"
End With
With TabBodyText.Font
.Name = BodyFont
.Size = 10
.Bold = False
.Italic = False
End With
With TabBodyText.ParagraphFormat
.LeftIndent = 0
.RightIndent = 0
.SpaceBefore = 2
.SpaceBeforeAuto = False
.SpaceAfter = 2
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphLeft
.WidowControl = False
.KeepWithNext = False
.KeepTogether = True
.PageBreakBefore = False
.FirstLineIndent = 0
.OutlineLevel = wdOutlineLevelBodyText
End With
End If

If TabHeading Is Nothing Then
ActiveDocument.Styles.Add Name:="Table Heading"
Set TabHeading = ActiveDocument.Styles("Table Heading")
With TabHeading
.AutomaticallyUpdate = False
.BaseStyle = "Table Body Text"
.NextParagraphStyle = "Table Heading"
End With
With TabHeading.Font
.Name = HeadingFont
.Size = 10
.Bold = True
.Italic = False
End With
With TabHeading.ParagraphFormat
.LeftIndent = 0
.RightIndent = 0
.SpaceBefore = 2
.SpaceBeforeAuto = False
.SpaceAfter = 2
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphLeft
.WidowControl = False
.KeepWithNext = True
.KeepTogether = True
.PageBreakBefore = False
.FirstLineIndent = 0
.OutlineLevel = wdOutlineLevelBodyText
End With
End If

If TabBullet Is Nothing Then
ActiveDocument.Styles.Add Name:="Table Bullet"
Set TabBullet = ActiveDocument.Styles("Table Bullet")
With TabBullet
.AutomaticallyUpdate = False
.BaseStyle = "Table Body Text"
.NextParagraphStyle = "Table Bullet"
End With
With TabBullet.Font
.Name = BodyFont
.Size = 10
.Bold = False
.Italic = False
End With
With TabBullet.ParagraphFormat
.LeftIndent = 22
.RightIndent = 0
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 5
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphLeft
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.FirstLineIndent = -17
.OutlineLevel = wdOutlineLevelBodyText
End With
TabBullet.ParagraphFormat.TabStops.ClearAll
TabBullet.ParagraphFormat.TabStops.Add _
Position:=22, Alignment:=wdAlignTabLeft, Leader:= _
wdTabLeaderSpaces
With ListGalleries(wdBulletGallery).ListTemplates(7).ListLevels(1)
.NumberFormat = ChrW(61623)
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleBullet
.NumberPosition = 6
.Alignment = wdListLevelAlignLeft
.TextPosition = 22
.TabPosition = 22
.ResetOnHigher = 0
.StartAt = 1
.Font.Name = "Symbol"
.LinkedStyle = "Table Bullet"
End With
End If

If tabNumber Is Nothing Then
ActiveDocument.Styles.Add Name:="Table Number"
Set tabNumber = ActiveDocument.Styles("Table Number")

With tabNumber
.AutomaticallyUpdate = False
.BaseStyle = "Table Bullet"
.NextParagraphStyle = "Table Number"
End With
With tabNumber.Font
.Name = BodyFont
.Size = 10
.Bold = False
.Italic = False
End With
With tabNumber.ParagraphFormat
.LeftIndent = 22
.RightIndent = 0
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 2
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphLeft
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.FirstLineIndent = -17
.OutlineLevel = wdOutlineLevelBodyText
End With
tabNumber.ParagraphFormat.TabStops.ClearAll
tabNumber.ParagraphFormat.TabStops.Add _
Position:=22, Alignment:=wdAlignTabLeft, Leader:= _
wdTabLeaderSpaces
With ListGalleries(wdNumberGallery).ListTemplates(7).ListLevels(1)
.NumberFormat = "%1."
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = 6
.Alignment = wdListLevelAlignLeft
.TextPosition = 22
.TabPosition = 22
.ResetOnHigher = 0
.StartAt = 1
.LinkedStyle = "Table Number"
End With
End If

If Not Selection.Information(wdWithInTable) Then
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=5,
NumColumns:= _
3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
End If

Dim aTable As Table
Set aTable = Selection.Tables(1)

aTable.Select
aTable.AutoFormat Format:=wdTableFormatGrid5, ApplyBorders:= _
True, ApplyShading:=True, ApplyFont:=False, ApplyColor:=False, _
ApplyHeadingRows:=True, ApplyLastRow:=False,
ApplyFirstColumn:=False, _
ApplyLastColumn:=False, AutoFit:=True

aTable.Select

With Selection
.Rows.AllowBreakAcrossPages = False
.Paragraphs.Reset
.Font.Reset
.Style = ActiveDocument.Styles("Table Body Text")
With .Borders(wdBorderLeft)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth075pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderRight)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth075pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth075pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth075pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderHorizontal)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth025pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderVertical)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth025pt
.Color = wdColorAutomatic
End With
.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
.Borders.Shadow = False
End With
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth025pt
.DefaultBorderColor = wdColorAutomatic
End With

aTable.Rows(1).Select
With Selection
.Style = ActiveDocument.Styles("Table Heading")
.Rows(1).HeadingFormat = True
With .Shading
.Texture = wdTexture10Percent
.ForegroundPatternColor = wdColorAutomatic
.BackgroundPatternColor = wdColorAutomatic
End With
End With

aTable.AutoFitBehavior (wdAutoFitWindow)

End

Error:
MsgBox "The Template has been damaged. See Tech Support.", vbCritical

End Sub

On 9/10/06 4:37 AM, in article
1160332667.937426.263970@xxxxxxxxxxxxxxxxxxxxxxxxxxxx, "john@xxxxxxxxxxxxx"
<john@xxxxxxxxxxxxx> wrote:

Hi Beth

No. I wasn't seeing grey lines, but solid black ones that printed.
But I'll try AutoCorrect instead.

Many thanks

John
Beth Rosengard wrote:

Hi John,

I always use AutoCorrect instead of AutoText for these things (habit). I
just tried it with a table that had no borders at all and with bold in just
one cell. It reproduces fine.

I don't know why AutoText isn't working for you but try AutoCorrect and see
if it makes a difference.

By the way, when you get rid of table borders, they turn gray; they don't
actually disappear (except when you print). Could that be what you're
seeing?

--
***Please always reply to the newsgroup!***

Beth Rosengard
MacOffice MVP

Mac Word FAQ: <http://word.mvps.org/Mac/WordMacHome.html>
My Site: <http://www.bethrosengard.com>

On 10/8/06 8:18 AM, in article
1160320690.065921.236980@xxxxxxxxxxxxxxxxxxxxxxxxxxx, "john@xxxxxxxxxxxxx"
<john@xxxxxxxxxxxxx> wrote:

Thanks, Dailya. The reason I tried a macro (which MIcrosoft Support
recommended) was that I'd alrady tried Autotext. When I used this, it
produced borders although the table I'd selected had none, and (if I
remember correctly) it didn't have bold in one column as did the
selected table.

John

--

Please reply to the newsgroup to maintain the thread. Please do not email
me unless I ask you to.

John McGhie <john@xxxxxxxxxxx>
Microsoft MVP, Word and Word for Macintosh. Business Analyst, Consultant
Technical Writer.
Sydney, Australia +61 (0) 4 1209 1410

--B_3243265427_15662445
Content-Type: text/html
Content-Transfer-Encoding: quoted-printable
X-Google-AttachSize: 21194

<HTML>
<HEAD>
<TITLE>Re: Macro for table problems</TITLE>
</HEAD>
<BODY>
Hi Jo=
hn: 
 
You do NOT want to do the macro!  Here's why...  (Yes, it works :=
-)) 
 
Sub Main() 
' 
' Insert or Format Table Macro 
' Macro recorded 14/03/00 by John McGhie 
' 
' On Error GoTo Error 
 
Dim astyle As Style 
Dim aDoc As String 
Dim aTemplate As String 
Dim x As Integer 
Dim TabBodyText As Style 
Dim TabHeading As Style 
Dim TabBullet As Style 
Dim tabNumber As Style 
 
 
aTemplate =3D ActiveDocument.AttachedTemplate.FullName 
aDoc =3D ActiveDocument.FullName 
For Each astyle In ActiveDocument.Styles 
    If UCase(astyle.NameLocal) =3D UCase("Table Body=
Text") Then Set TabBodyText =3D astyle 
    If UCase(astyle.NameLocal) =3D UCase("Table Bull=
et") Then Set TabBullet =3D astyle 
    If UCase(astyle.NameLocal) =3D UCase("Table Head=
ing") Then Set TabHeading =3D astyle 
    If UCase(astyle.NameLocal) =3D UCase("Table Numb=
er") Then Set tabNumber =3D astyle 
Next astyle 
 
If TabBodyText Is Nothing Then 
    ActiveDocument.Styles.Add Name:=3D"Table Body Te=
xt" 
    Set TabBodyText =3D ActiveDocument.Styles("Table=
Body Text") 
    With TabBodyText 
        .AutomaticallyUpdate =3D Fals=
e 
        .BaseStyle =3D "Body Tex=
t" 
        .NextParagraphStyle =3D &quot=
;Table Body Text" 
    End With 
    With TabBodyText.Font 
        .Name =3D BodyFont 
        .Size =3D 10 
        .Bold =3D False 
        .Italic =3D False 
    End With 
    With TabBodyText.ParagraphFormat 
        .LeftIndent =3D 0 
        .RightIndent =3D 0 
        .SpaceBefore =3D 2 
        .SpaceBeforeAuto =3D False<BR=

        .SpaceAfter =3D 2 
        .SpaceAfterAuto =3D False 
        .LineSpacingRule =3D wdLineSp=
aceSingle 
        .Alignment =3D wdAlignParagra=
phLeft 
        .WidowControl =3D False 
        .KeepWithNext =3D False 
        .KeepTogether =3D True 
        .PageBreakBefore =3D False<BR=

        .FirstLineIndent =3D 0 
        .OutlineLevel =3D wdOutlineLe=
velBodyText 
    End With 
End If 
 
If TabHeading Is Nothing Then 
    ActiveDocument.Styles.Add Name:=3D"Table Heading=
" 
    Set TabHeading =3D ActiveDocument.Styles("Table =
Heading") 
    With TabHeading 
        .AutomaticallyUpdate =3D Fals=
e 
        .BaseStyle =3D "Table Bo=
dy Text" 
        .NextParagraphStyle =3D &quot=
;Table Heading" 
    End With 
    With TabHeading.Font 
        .Name =3D HeadingFont 
        .Size =3D 10 
        .Bold =3D True 
        .Italic =3D False 
    End With 
    With TabHeading.ParagraphFormat 
        .LeftIndent =3D 0 
        .RightIndent =3D 0 
        .SpaceBefore =3D 2 
        .SpaceBeforeAuto =3D False<BR=

        .SpaceAfter =3D 2 
        .SpaceAfterAuto =3D False 
        .LineSpacingRule =3D wdLineSp=
aceSingle 
        .Alignment =3D wdAlignParagra=
phLeft 
        .WidowControl =3D False 
        .KeepWithNext =3D True 
        .KeepTogether =3D True 
        .PageBreakBefore =3D False<BR=

        .FirstLineIndent =3D 0 
        .OutlineLevel =3D wdOutlineLe=
velBodyText 
    End With 
End If 
 
If TabBullet Is Nothing Then 
    ActiveDocument.Styles.Add Name:=3D"Table Bullet&=
quot; 
    Set TabBullet =3D ActiveDocument.Styles("Table B=
ullet") 
    With TabBullet 
        .AutomaticallyUpdate =3D Fals=
e 
        .BaseStyle =3D "Table Bo=
dy Text" 
        .NextParagraphStyle =3D &quot=
;Table Bullet" 
    End With 
    With TabBullet.Font 
        .Name =3D BodyFont 
        .Size =3D 10 
        .Bold =3D False 
        .Italic =3D False 
    End With 
    With TabBullet.ParagraphFormat 
        .LeftIndent =3D 22 
        .RightIndent =3D 0 
        .SpaceBefore =3D 0 
        .SpaceBeforeAuto =3D False<BR=

        .SpaceAfter =3D 5 
        .SpaceAfterAuto =3D False 
        .LineSpacingRule =3D wdLineSp=
aceSingle 
        .Alignment =3D wdAlignParagra=
phLeft 
        .WidowControl =3D True 
        .KeepWithNext =3D False 
        .KeepTogether =3D False 
        .PageBreakBefore =3D False<BR=

        .FirstLineIndent =3D -17 
        .OutlineLevel =3D wdOutlineLe=
velBodyText 
    End With 
    TabBullet.ParagraphFormat.TabStops.ClearAll 
    TabBullet.ParagraphFormat.TabStops.Add _ 
        Position:=3D22, Alignment:=3Dwd=
AlignTabLeft, Leader:=3D _ 
        wdTabLeaderSpaces 
    With ListGalleries(wdBulletGallery).ListTemplates(7=
).ListLevels(1) 
        .NumberFormat =3D ChrW(61623)=
 
        .TrailingCharacter =3D wdTrai=
lingTab 
        .NumberStyle =3D wdListNumber=
StyleBullet 
        .NumberPosition =3D 6 
        .Alignment =3D wdListLevelAli=
gnLeft 
        .TextPosition =3D 22 
        .TabPosition =3D 22 
        .ResetOnHigher =3D 0 
        .StartAt =3D 1 
        .Font.Name =3D "Symbol&q=
uot; 
        .LinkedStyle =3D "Table =
Bullet" 
    End With 
End If 
 
If tabNumber Is Nothing Then 
    ActiveDocument.Styles.Add Name:=3D"Table Number&=
quot; 
    Set tabNumber =3D ActiveDocument.Styles("Table N=
umber") 
     
    With tabNumber 
        .AutomaticallyUpdate =3D Fals=
e 
        .BaseStyle =3D "Table Bu=
llet" 
        .NextParagraphStyle =3D &quot=
;Table Number" 
    End With 
    With tabNumber.Font 
        .Name =3D BodyFont 
        .Size =3D 10 
        .Bold =3D False 
        .Italic =3D False 
    End With 
    With tabNumber.ParagraphFormat 
        .LeftIndent =3D 22 
        .RightIndent =3D 0 
        .SpaceBefore =3D 0 
        .SpaceBeforeAuto =3D False<BR=

        .SpaceAfter =3D 2 
        .SpaceAfterAuto =3D False 
        .LineSpacingRule =3D wdLineSp=
aceSingle 
        .Alignment =3D wdAlignParagra=
phLeft 
        .WidowControl =3D True 
        .KeepWithNext =3D False 
        .KeepTogether =3D False 
        .PageBreakBefore =3D False<BR=

        .FirstLineIndent =3D -17 
        .OutlineLevel =3D wdOutlineLe=
velBodyText 
    End With 
    tabNumber.ParagraphFormat.TabStops.ClearAll 
    tabNumber.ParagraphFormat.TabStops.Add _ 
        Position:=3D22, Alignment:=3Dwd=
AlignTabLeft, Leader:=3D _ 
        wdTabLeaderSpaces 
    With ListGalleries(wdNumberGallery).ListTemplates(7=
).ListLevels(1) 
        .NumberFormat =3D "%1.&q=
uot; 
        .TrailingCharacter =3D wdTrai=
lingTab 
        .NumberStyle =3D wdListNumber=
StyleArabic 
        .NumberPosition =3D 6 
        .Alignment =3D wdListLevelAli=
gnLeft 
        .TextPosition =3D 22 
        .TabPosition =3D 22 
        .ResetOnHigher =3D 0 
        .StartAt =3D 1 
        .LinkedStyle =3D "Table =
Number" 
    End With 
End If 
 
If Not Selection.Information(wdWithInTable) Then 
    ActiveDocument.Tables.Add Range:=3DSelection.Range, N=
umRows:=3D5, NumColumns:=3D _ 
        3, DefaultTableBehavior:=3Dwd=
Word9TableBehavior, AutoFitBehavior:=3D _ 
        wdAutoFitFixed 
End If 
 
Dim aTable As Table 
Set aTable =3D Selection.Tables(1) 
     
aTable.Select 
    aTable.AutoFormat Format:=3DwdTableFormatGrid5, Apply=
Borders:=3D _ 
        True, ApplyShading:=3DTrue, A=
pplyFont:=3DFalse, ApplyColor:=3DFalse, _ 
        ApplyHeadingRows:=3DTrue, App=
lyLastRow:=3DFalse, ApplyFirstColumn:=3DFalse, _ 
        ApplyLastColumn:=3DFalse, Aut=
oFit:=3DTrue 
     
aTable.Select 
      
    With Selection 
        .Rows.AllowBreakAcrossPages=
=3D False 
        .Paragraphs.Reset 
        .Font.Reset 
        .Style =3D ActiveDocument.Sty=
les("Table Body Text") 
        With .Borders(wdBorderLeft)=
 
            .Li=
neStyle =3D wdLineStyleSingle 
            .Li=
neWidth =3D wdLineWidth075pt 
            .Co=
lor =3D wdColorAutomatic 
        End With 
        With .Borders(wdBorderRight=
) 
            .Li=
neStyle =3D wdLineStyleSingle 
            .Li=
neWidth =3D wdLineWidth075pt 
            .Co=
lor =3D wdColorAutomatic 
        End With 
        With .Borders(wdBorderTop)<=
BR>
            .Li=
neStyle =3D wdLineStyleSingle 
            .Li=
neWidth =3D wdLineWidth075pt 
            .Co=
lor =3D wdColorAutomatic 
        End With 
        With .Borders(wdBorderBotto=
m) 
            .Li=
neStyle =3D wdLineStyleSingle 
            .Li=
neWidth =3D wdLineWidth075pt 
            .Co=
lor =3D wdColorAutomatic 
        End With 
        With .Borders(wdBorderHoriz=
ontal) 
            .Li=
neStyle =3D wdLineStyleSingle 
            .Li=
neWidth =3D wdLineWidth025pt 
            .Co=
lor =3D wdColorAutomatic 
        End With 
        With .Borders(wdBorderVerti=
cal) 
            .Li=
neStyle =3D wdLineStyleSingle 
            .Li=
neWidth =3D wdLineWidth025pt 
            .Co=
lor =3D wdColorAutomatic 
        End With 
        .Borders(wdBorderDiagonalDo=
wn).LineStyle =3D wdLineStyleNone 
        .Borders(wdBorderDiagonalUp=
).LineStyle =3D wdLineStyleNone 
        .Borders.Shadow =3D False 
    End With 
    With Options 
        .DefaultBorderLineStyle =3D w=
dLineStyleSingle 
        .DefaultBorderLineWidth =3D w=
dLineWidth025pt 
        .DefaultBorderColor =3D wdCol=
orAutomatic 
    End With 
     
aTable.Rows(1).Select 
    With Selection 
        .Style =3D ActiveDocument.Sty=
les("Table Heading") 
        .Rows(1).HeadingFormat =3D Tr=
ue 
        With .Shading 
            .Te=
xture =3D wdTexture10Percent 
            .Fo=
regroundPatternColor =3D wdColorAutomatic 
            .Ba=
ckgroundPatternColor =3D wdColorAutomatic 
        End With 
    End With 
 
aTable.AutoFitBehavior (wdAutoFitWindow) 
 
End 
 
Error: 
MsgBox "The Template has been damaged.  See Tech Support.", =
vbCritical 
 
End Sub 
 
 
 
On 9/10/06 4:37 AM, in article 1160332667.937426.263970@xxxxxxxxxxxxxxxxxxx=
roups.com, "john@xxxxxxxxxxxxx" <john@xxxxxxxxxxxxx> wrote:<=
BR>
 
> Hi Beth 
> 
> No.  I wasn't seeing grey lines, but solid black ones that printe=
d. 
> But I'll try AutoCorrect instead. 
> 
> Many thanks 
> 
> John 
> Beth Rosengard wrote: 
>> Hi John, 
>> 
>> I always use AutoCorrect instead of AutoText for these things (hab=
it).  I 
>> just tried it with a table that had no borders at all and with bol=
d in just 
>> one cell.  It reproduces fine. 
>> 
>> I don't know why AutoText isn't working for you but try AutoCorrec=
t and see 
>> if it makes a difference. 
>> 
>> By the way, when you get rid of table borders, they turn gray; the=
y don't 
>> actually disappear (except when you print).  Could that be wh=
at you're 
>> seeing? 
>> 
>> -- 
>> ***Please always reply to the newsgroup!*** 
>> 
>> Beth Rosengard 
>> MacOffice MVP 
>> 
>> Mac Word FAQ:  <a href=3D"http://word.mvps.org/Mac/WordMacHome.=
html"><http://word.mvps.org/Mac/WordMacHome.html></a> 
>> My Site:  <a href=3D"http://www.bethrosengard.com";><http://w=
ww.bethrosengard.com></a> 
>> 
>> 
>> 
>> 
>> On 10/8/06 8:18 AM, in article 
>> 1160320690.065921.236980@xxxxxxxxxxxxxxxxxxxxxxxxxxx, "john@j=
ohnhands.com" 
>> <john@xxxxxxxxxxxxx> wrote: 
>> 
>>> Thanks, Dailya.  The reason =
I tried a macro (which MIcrosoft Support 
>>> recommended) was that I'd alrady tried Autotext.  When I =
used this, it 
>>> produced borders although the table I'd selected had none, and=
(if I 
>>> remember correctly) it didn't have bold in one column as did t=
he 
>>> selected table. 
>>> 
>>> John 
> 
 
-- 
 
Please reply to the newsgroup to maintain the thread.  Please do not e=
mail me unless I ask you to. 
 
John McGhie <john@xxxxxxxxxxx> 
Microsoft MVP, Word and Word for Macintosh.  Business Analyst, Consult=
ant Technical Writer. 
Sydney, Australia +61 (0) 4 1209 1410 

</BODY>
</HTML>

--B_3243265427_15662445--

Follow-Ups:
- Re: Macro for table problems
  - From: John McGhie [MVP - Word and Word Macintosh]

References:
- Macro for table problems
  - From: john@xxxxxxxxxxxxx
- Re: Macro for table problems
  - From: Daiya Mitchell
- Re: Macro for table problems
  - From: john@xxxxxxxxxxxxx
- Re: Macro for table problems
  - From: Beth Rosengard
- Re: Macro for table problems
  - From: john@xxxxxxxxxxxxx

Prev by Date: Re: Using the backslash character
Next by Date: Re: Macro for table problems
Previous by thread: Re: Macro for table problems
Next by thread: Re: Macro for table problems
Index(es):
- Date
- Thread

Relevant Pages

Re: Macro for table problems
... You do NOT want to do the macro! ... Dim astyle As Style ... For Each astyle In ActiveDocument.Styles ... .LineStyle = wdLineStyleSingle ...
(microsoft.public.mac.office.word)
Re: Macro for table problems
... Dim astyle As Style ... For Each astyle In ActiveDocument.Styles ... .Alignment = wdListLevelAlignLeft ... .LineStyle = wdLineStyleSingle ...
(microsoft.public.mac.office.word)
Re: Tabellen drehen in VBA
... Dim z, s, i_s, i_z ... Selection.Collapse wdCollapseEnd ... .AutoFitBehavior wdAutoFitContent ... .Borders.OutsideLineStyle = wdLineStyleSingle ...
(microsoft.public.de.word.vba)
Re: Tabellen drehen in VBA
... gibt es in VBA die Möglichkeit, Tabellen sozusagen nach "links" drehen? ... Sub dt ... Dim z, s, i_s, i_z ... .Borders.OutsideLineStyle = wdLineStyleSingle ...
(microsoft.public.de.word.vba)
Re: identifying a specific table in a macro?
... a macro can check the style of the table's text to distinguish ... ' do your formatting here, ... .OutsideLineStyle = wdLineStyleSingle ... .LineStyle = wdLineStyleSingle ...
(microsoft.public.word.tables)