Sub mac ( ) Dim dove come RangeDim nuTab Come Table
dove = Selection.RangeSet nuTab = ActiveDocument.Tables.Add ( dove , numrows : = 7 , NumColumns : . . . . = 3)
nuTab.Columns ( 1 ) cellule ( 1 ) intervallo = nuTab.Columns " alcune cose " (2) cellule ( 2) Gamma = " un po 'di roba "
nuTab.AutoFormat wdTableFormatClassic1
Con nuTab.Columns ( 2 ) . Cells ( 2) Con . Borders ( wdBorderTop ) . LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth300pt.ColorIndex = wdYellowEnd withwith . frontiere ( wdBorderBottom ) . LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth300pt.ColorIndex = wdYellowEnd WithEnd Con
End Sub ------------------------- ------------- inserire il codice sopra in Visual Basic IDE ( ambiente di sviluppo integrato ), che è possibile inserire all'interno di Word premendo ALT - F11 , e assicurando che sei nella finestra del codice ( Visualizza> Codice ) .
Eseguire lo script con il ritorno a Word , selezionando "sviluppatore > Macro ," Selezione "mac " dalla lista e premere "Esegui ". Visual Basic crea una nuova tabella nel punto di inserimento corrente , aggiunge un po 'di dati su di esso e formati di una delle celle .
Imparare lo script funziona
Categoria IDE per studiare il codice . L' istruzione SET dove = Selection.Range definisce una variabile che rappresenta la posizione corrente del cursore . Questo è dove si sta installando una nuova tabella . La seconda linea (Set nuTab = ... ) crea effettivamente la tabella , utilizzando l'oggetto ActiveDocument di farlo.
La coppia di istruzioni che seguono la dichiarazione nuTable Set aggiunge contenuti ai tavoli, attraverso le colonne e celle proprietà dell'oggetto Table .
NGO Trovi Membri dell'oggetto con il Visualizzatore oggetti
Se siete preoccupati di non sapere le funzioni e le proprietà (ad esempio colonne specifiche , celle) di un oggetto , si può facilmente ottenere un elenco descrittivo di loro premendo F2 , che richiama il browser degli oggetti . Nella casella di ricerca del browser degli oggetti , è possibile inserire il termine " Tabelle" e premere "Invio ", selezionare " Table" nel riquadro dei risultati a destra , e ottenere un elenco di tutti i membri della Tavola .
Tornando al codice , fare riferimento alla dichiarazione "Con nuTab.Columns ( 2) . Cells ... " Con la parola chiave dice a Visual Basic che non si desidera digitare una lunga serie di parole punteggiate di fare continuamente riferimento a un metodo di un oggetto o una proprietà (ad esempio Object1.Object2.Object3.doThis ( ) ) . Invece, si vuole zoomare proprio sui membri di un particolare oggetto nella catena . Per esempio :
Object1.Object2.Object3.doThis ( ) End With
applicare la formattazione
nuTab.AutoFormat dichiarazione ... applica un regime bordo alla tabella completa , mentre la prima istruzione With inizia per formattare una singola cella . La formattazione del codice è l'applicazione non è specifico per le celle della tabella , ma può funzionare con qualsiasi oggetto Range . I nuTab.Columns (2). Cells ( 2) oggetto sembra essere l'oggetto Range in questo caso .
Esperimento con diverse opzioni di formattazione di Word offre. Utilizzare il Visualizzatore oggetti per trovarli. Inizia con la ricerca di una soluzione nota ( ad es wdLineStyleSingle ) , e notando la raccolta di opzioni simili di cui è parte .
Programmazione © www.354353.com