Tutorial for å legge til Visual Basic Word tabeller

Tabeller er en viktig funksjon i Word. De vises i alle typer dokumenter for å hjelpe Word-brukere visuelt organisere data. Det kan være tidkrevende å lage tabeller til din smak, men hvis du vet noe om Visual Basic, Word skriptspråk, kan du raskere opprette, fylle og formatere tabeller. Studerer følgende Visual Basic programmet vil gi deg et forsprang i å manipulere Word tabeller gjennom koden.

Skriv inn koden for å lage en tabell

Sub mac ()
Dim der As Range
Dim nuTab Som tabell

Sett hvor = Selection.Range
Sett nuTab = ActiveDocument.Tables.Add (der, numRader: = 7, NumColumns: = 3)

nuTab.Columns (1) .Cells (1) .Range = "noen ting"
nuTab.Columns (2) .Cells (2) .Range = "noen flere ting"

nuTab.AutoFormat wdTableFormatClassic1

Med nuTab.Columns (2) .Cells (2)

With .Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth300pt
.ColorIndex = wdYellow
End With
With .Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth300pt
.ColorIndex = wdYellow
End With

End With

End Sub

Skriv inn det foregående kode i Visual Basic IDE (integrert utviklingsmiljø), som du kan gå inn fra innsiden Word ved å trykke alt-F11, og sørger for at du er i kodevinduet (Vis> Code).

Kjør skriptet ved å returnere til Word, velge "Utvikler> Makroer," velge "mac" fra listen, og trykk på "Run." Visual Basic lager en ny tabell på gjeldende innsettingspunktet, legger til noen data til det og formaterer en av cellene.

Lær hvordan skriptet Works

Gå tilbake til IDE å studere koden. Uttalelsen ligger der = Selection.Range definerer en variabel som representerer den nåværende plasseringen av markøren. Det er der du skal installere et nytt bord. Den andre linjen (Set nuTab = ...) faktisk skaper bordet, ved hjelp av ActiveDocument objektet til å gjøre dette.

Paret av uttalelser etter Set nuTable uttalelsen legger innhold til tabellene, gjennom kolonnene og celler egenskapene til tabellobjekt.

Finn Object Medlemmer med objektet Browser

Hvis du er bekymret for ikke å kjenne de spesifikke funksjoner og egenskaper (f.eks kolonner, celler) av et objekt, kan du lett få en beskrivende liste over dem ved å trykke F2, som kaller opp objektet leseren. I søkeboksen av objektet nettleser, kan du skrive inn begrepet "Tabeller" og trykk "Enter", velg "Table" i resultatruten til høyre, og få en liste over alle medlemmene i tabell.

Retur til koden, se uttalelsen "Med nuTab.Columns (2) .Cells ..." The Med søkeord forteller Visual Basic som du ikke ønsker å skrive ut en lang streng av prikkete ord gjentatte ganger refererer til et objekt metode eller eiendom (f.eks Object1.Object2.Object3.doThis ()). I stedet, du vil zoome rett inn på medlemmer av et bestemt objekt i kjeden. For eksempel:

med Object1.Object2.Object3
.doThis ()
End With

Påfør Formatering

Uttalelsen nuTab.AutoFormat ... gjelder en grense ordningen til hele tabellen, mens den første Med uttalelsen begynner å formatere en enkelt celle. Den formatering koden din søker er ikke spesifikt for tabellceller, men kan fungere med alle Range objekt. Den nuTab.Columns (2) .Cells (2) objekt skjer for å være Range objekt i dette tilfellet.

Eksperimenter med forskjellige formateringsalternativer som Word tilbyr. Bruk Object Browser for å finne dem. Start med søker en kjent alternativ (f.eks wdLineStyleSingle), og legge merke til innsamling av lignende alternativer som det er en del.