Stille en standard tabell Border Bredde

February 14  by Eliza

Når du setter inn en tabell i Word, er et grense automatisk opprettet for hver celle i tabellen. Denne grensen er en enkelt linje, en halv punkt i vekt. Dessverre gir Word ingen måte for standard linjebredden du bruker når du oppretter tabellen du å endre. Mens det er sant at du kan plukke en linjebredde i Borders og skyggelegging dialogboksen, er denne vekten tilbake til en halv punkt når du setter inn en ny tabell.

Hvis du ønsker noen andre linjer, slik som tre fjerdedeler av et punkt, har du et problem. Du må velge en ny tabell manuelt og formatere grensene slik at de er ønsket bredde. Hvis du arbeider med massevis av tabeller, kan dette fort bli en problemfri. Du kan selvfølgelig lage en tabellstil, men å bruke en tabellstil kan gi ujevne resultater hvis alt du ønsker å gjøre er linjebredden endre eller hvis du arbeider med et dokument der det har vært mye eksplisitt formatering brukes på bordene.

Kanskje den beste måten rundt dette problemet er å skrive en makro. Selv om dette ikke kan være den mest ideelle løsningen, sikkert er det enklere enn manuelt endre hver tabell i dokumentet.

Følgende makro, FixCellBorders, skritt gjennom hver celle i hver tabell i dokumentet ditt og sørger for at den minste linje vekt er tre fjerdedeler av et punkt. Den gjør dette ved å sjekke ut de aktuelle linjeinnstillinger, og deretter gjøre justeringen bare hvis det er nødvendig.

Sub FixCellBorders ()
«Arbeid gjennom alle tabeller i dokumentet
For Hver objTable I ActiveDocument.Tables
«Arbeid gjennom alle celler i hver tabell
For Hver objCell I objTable.Range.Cells
«Arbeid gjennom alle grenser i hver celle
For Hver objBorder I objCell.Borders
'Sjekk om linjevekt er mindre enn 0,75 pt
Hvis objBorder.LineWidth = wdLineWidth025pt _
Eller objBorder.LineWidth = wdLineWidth050pt Deretter
«Altfor tynn, endre det
objBorder.LineWidth = wdLineWidth075pt
End If
Neste objBorder
Neste objCell
Neste objTable
End Sub

Som du kan forestille deg, er makroen ikke veldig fort siden den ser på alle fire grenser for hver celle i hver tabell i dokumentet. Fordelen er imidlertid at den makro vil bare endre vekten av en hvilken som helst cellerammen som er ved en fjerdedel eller en halvdel punkt. Dette betyr at enhver manuell formatering du har gjort for forskjellige linjebredder ikke vil endre seg.

Hvis du er ute etter en litt raskere makro, vil følgende (FixTableBorders) gjøre susen. I stedet for å se på enkeltceller, det fungerer på hele tabeller. Forskjellen er imidlertid at den tilbakestilles hver kant av hvert bord til tre fjerdedeler av et punkt, ved hjelp av en enkelt linje. Hvis dette passer dine behov, men det er definitivt lettere (raskere) veien å gå.

Sub FixTableBorders ()
For Hver objTable I ActiveDocument.Tables
Med objTable
Med .Borders (wdBorderLeft)
.LineStyle = WdLineStyleSingle
.LineWidth = WdLineWidth075pt
Avslutt med
Med .Borders (wdBorderRight)
.LineStyle = WdLineStyleSingle
.LineWidth = WdLineWidth075pt
Avslutt med
Med .Borders (wdBorderTop)
.LineStyle = WdLineStyleSingle
.LineWidth = WdLineWidth075pt
Avslutt med
Med .Borders (wdBorderBottom)
.LineStyle = WdLineStyleSingle
.LineWidth = WdLineWidth075pt
Avslutt med
Med .Borders (wdBorderHorizontal)
.LineStyle = WdLineStyleSingle
.LineWidth = WdLineWidth075pt
Avslutt med
Med .Borders (wdBorderVertical)
.LineStyle = WdLineStyleSingle
.LineWidth = WdLineWidth075pt
Avslutt med
Avslutt med
Neste objTable
End Sub

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (880) gjelder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Word (Word 2007 og senere) her: Stille en standard tabell marg.