Tafels zijn een essentieel kenmerk van Word . Ze komen voor in allerlei soorten documenten te helpen Word-gebruikers visueel gegevens te organiseren . Het kan tijdrovend zijn om tabellen te maken naar uw wens , maar als je iets over Visual Basic , scripttaal Woord kennen , kunt u sneller maken, vullen en opmaak van tabellen . Het bestuderen van de volgende Visual Basic -programma geeft u een voorsprong in het manipuleren van Word-tabellen via code. Typ code om een tabel Sub mac ( ) Dim waar Zoals RangeDim nuTab Zoals tabel Set where = Selection.RangeSet nuTab = ActiveDocument.Tables.Add ( waar , numRows maken : = 7 , NumColumns : . . . . = 3 ) nuTab.Columns ( 1 ) Cells ( 1 ) Range = " sommige dingen" nuTab.Columns ( 2 ) Cells ( 2 ) Range = " wat meer spullen " nuTab.AutoFormat wdTableFormatClassic1 Met nuTab.Columns ( 2 ) . Cells ( 2 ) Met . Grenzen ( wdBorderTop ) . LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth300pt.ColorIndex = wdYellowEnd metMet . Borders ( wdBorderBottom ) . LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth300pt.ColorIndex = wdYellowEnd metend Met End Sub ------------------------- ------------- Voer de bovenstaande code in de Visual Basic IDE ( Integrated Development Environment ) , waarin je van binnen Word kunt invoeren door op alt - F11 , en ervoor te zorgen dat je in het venster code ( Weergave> Code ) . Voer het script door terug te keren naar Word , selecteren "Ontwikkelaar > Macro's , " selecteren " mac " uit de lijst en druk op " Run . " Visual Basic een nieuwe tabel in de huidige invoegpunt , voegt een aantal gegevens aan het en formaten een van de cellen . Leer hoe het script werkt Terug aan de IDE om de code te bestuderen . De verklaring ligt waar = Selection.Range definieert een variabele die de huidige locatie van de cursor . Dit is waar je de installatie van een nieuwe tabel . De tweede regel ( Set nuTab = ... ) creëert eigenlijk de tafel , met behulp van de ActiveDocument object om dit te doen . Het paar uitspraken naar aanleiding van de Set nuTable verklaring voegt inhoud aan de tafels , door de kolommen en cellen eigenschappen van de tabel object . object zoeken Leden met de object Browser Als u zich zorgen maakt over de specifieke functies en eigenschappen ( bijv. kolommen niet wetende , Cells ) van een object , kunt u gemakkelijk een beschrijvende lijst van hen te krijgen door op F2 te drukken , waarin wordt opgeroepen tot het object browser . In het zoekvak van het object browser , kunt u de term " Tafels " in te voeren en druk op " Enter ", selecteer "Table " in het deelvenster met resultaten op de juiste , en krijg een lijst van alle leden van de tabel . Terugkerend naar de code , verwijzen naar de verklaring "Met nuTab.Columns ( 2 ) . Cells ... " De met trefwoord vertelt Visual Basic dat je niet wilt typen uit een lange reeks gestippelde woorden herhaaldelijk verwezen naar methode van een object of eigendom ( bv. Object1.Object2.Object3.doThis ( ) ) . In plaats daarvan , u wilt inzoomen rechts in op de leden van een bepaald object in de keten . Bijvoorbeeld : p Met Object1.Object2.Object3.doThis ( ) End With Solliciteer formatteren De verklaring nuTab.AutoFormat ... geldt een grens regeling om de volledige tabel , terwijl de eerste Met statement begint aan een individuele cel op te maken . De opmaak van uw code is het toepassen is niet specifiek voor tabelcellen , maar kan werken met elke Range object. De nuTab.Columns ( 2 ) . Cells ( 2 ) object gebeurt er met de Range object in dit geval te zijn. Experimenteer hotels met verschillende opmaakopties die Word biedt . Gebruik de Object Browser om ze te vinden . Beginnen met het zoeken van een bekende optie ( bijv. wdLineStyleSingle ) , en merkt het verzamelen van vergelijkbare opties , waarvan het deel uitmaakt .
|