Sadržaj
Dodaj tablicu u Wordov dokument
Ova jednostavna makronaredba dodat će tablicu vašem Word dokumentu:
Sub VerySimpleTableAdd () Dim oTable As Table Set oTable = ActiveDocument.Tables.Add (Raspon: = Selection.Range, NumRows: = 3, NumColumns: = 3) End Sub
Odaberite Tablica u programu Word
Ova makronaredba odabrat će prvu tablicu u aktivnom Word dokumentu:
Sub SelectTable () 'odabire prvu tablicu u aktivnom dokumentu Ako je ActiveDocument.Tables.Count> 0 Zatim' kako bismo izbjegli pogreške, provjeravamo postoji li neka tablica u aktivnom dokumentu ActiveDocument.Tables (1). Odaberite End If End Sub
Prođite kroz sve ćelije u tablici
Ova VBA makronaredba će proći kroz sve ćelije u tablici, upisujući broj ćelija u ćeliju:
Sub TableCycling () "petlja kroz sve ćelije u tablici Dim nCounter As Long" to će biti zapisano u svim ćelijama tablice Dim oTable As Table Dim oRow As Row Dim oCell As Cell ActiveDocument.Range.InsertParagraphAfter "samo čini novi para na kraju dokumenta , Tablica će biti stvorena ovdje. Postavite oTable = ActiveDocument.Tables.Add (Raspon: = ActiveDocument.Paragraphs.Last.Range, NumRows: = 3, NumColumns: = 3) 'stvorite tablicu i dodijelite je varijabli za svaki oRow u oTable. Vanjska petlja redova prolazi kroz retke Za svaku oCell In oRow.Cells 'unutarnja petlja ide nCounter = nCounter + 1' povećava brojač oCell.Range.Text = nCounter 'upisuje brojač u ćeliju Next oCell Next oRow' rezultat prikaza iz ćelije iz drugi stupac u drugom retku Dim strTemp As String strTemp = oTable.Cell (2, 2) .Range.Text MsgBox strTemp End Sub
Napravite Word tablicu iz Excel datoteke
Ovaj primjer VBA će napraviti tablicu od Excel datoteke:
Sub MakeTablefromExcelFile () 'napredni Dim oExcelApp, oExcelWorkbook, oExcelWorksheet, oExcelRange Dim nNumOfRows As Long Dim nNumOfCols As Long Dim strFile As String Dim oTable As Table' tablica riječi Dim oRow As Row 'ćelija Riječ Dim As Long, y As Long 'brojač za petlje strFile = "c: \ Users \ Nenad \ Desktop \ BookSample.xlsx"' promijeni se u stvarnu putanju Postavi oExcelApp = CreateObject ("Excel.Application") oExcelApp.Visible = True Set oExcelWorkbook = oExcelApp.Workbooks.Open (strFile) 'otvorite radnu knjigu i dodijelite je varijabli Postavi oExcelWorksheet = oExcelWorkbook.Worksheets (1)' označite prvi radni list u varijablu Postavi oExcelRange = oExcelWorksheet.Range ("A1: C8ORocNo Count nNumOfCols = oExcelRange.Columns.Count ActiveDocument.Range.InsertParagraphAfter 'samo napravi novu para na kraju dokumenta, ovdje će se stvoriti tablica. Postavite oTable = ActiveDocument.Tables.Add (Raspon: = ActiveDocument.Paragraphs.Last.Range, = nNumOfRows, NumColumns: = nNumOfCols) 'creat e tablicu i dodijelite je varijabli '*** real deal, tablica se ovdje popunjava For x = 1 To nNumOfRows For y = 1 To nNumOfCols oTable.Cell (x, y) .Range.Text = oExcelRange.Cells (x, y ) .Vrijednost Sljedeća y Sljedeća x '*** oExcelWorkbook.Zatvorite Netačno oExcelApp.Quit Sa oTable.Rows (1) .Range' sada možemo primijeniti malo ljepote na našu tablicu :). Shadarenje.Texture = wdTextureNone. wdColorAutomatic .Shading.BackgroundPatternColor = wdColorYellow Kraj s End Sub
