Obsah
Pridajte tabuľku do dokumentu programu Word
Toto jednoduché makro pridá do dokumentu programu Word tabuľku:
Sub VerySimpleTableAdd () Dim oTable As Table Set oTable = ActiveDocument.Tables.Add (Range: = Selection.Range, NumRows: = 3, NumColumns: = 3) End Sub
Vyberte tabuľku v programe Word
Toto makro vyberie prvú tabuľku v aktívnom dokumente programu Word:
Sub SelectTable () 'vyberie prvú tabuľku v aktívnom dokumente, ak ActiveDocument.Tables.Count> 0 Then', aby sme sa vyhli chybám, skontrolujeme, či v aktívnom dokumente ActiveDocument.Tables (1) existuje nejaká tabuľka. Vyberte End If End Sub
Prechádzajte všetkými bunkami v tabuľke
Toto makro VBA prejde všetkými bunkami v tabuľke a zapíše do bunky počet buniek:
Podradená tabuľka cyklovania () „cez všetky bunky v tabuľke Dim nCounter As Long“ sa zapíše do všetkých buniek tabuľky Dim oTable Ako Table Dim oRow As Row Dim oCell As Cell ActiveDocument.Range.InsertParagraphAfter 'just makes new para athe end of doc , Tu sa vytvorí tabuľka. Set oTable = ActiveDocument.Tables.Add (Range: = ActiveDocument.Paragraphs.Last.Range, NumRows: = 3, NumColumns: = 3) 'create table andignign to to variable for every oRow In oTable. Vonkajšia slučka riadkov prechádza riadkami Pre každý oCell In oRow.Cells 'vnútorná slučka ide nCounter = nCounter + 1' zvyšuje počítadlo oCell.Range.Text = nCounter 'zapisuje počítadlo do bunky Ďalší oCell Ďalší oRow' zobrazí výsledok z bunky z druhý stĺpec v druhom riadku Dim strTemp As String strTemp = oTable.Cell (2, 2) .Range.Text MsgBox strTemp End Sub
Vytvorte tabuľku programu Word zo súboru programu Excel
Tento príklad VBA vytvorí tabuľku zo súboru programu Excel:
Sub MakeTablefromExcelFile () 'advanced Dim oExcelApp, oExcelWorkbook, oExcelWorksheet, oExcelRange Dim nNumOfRows As Long Dim nNumOfCols As Long Dim strfile As String Dim oTable As Table' word table Dim Dim oRow As Row 'word row Dim x Cell Ako dlho, ako dlho počítadlo slučiek strFile = "c: \ Users \ Nenad \ Desktop \ BookSample.xlsx" "zmena na skutočnú cestu Nastaviť oExcelApp = CreateObject (" Excel.Application ") oExcelApp.Visible = True Set oExcelWorkbook = oExcelApp.Workbooks.Open (strFile) 'otvorený zošit a priradiť ho k premennej Nastaviť oExcelWorksheet = oExcelWorkbook.Worksheets (1)' priradiť prvý pracovný list k premennej Nastaviť oExcelRange = oExcelWorksheet.Range ("A1: C8") nNumOfcel Count nNumOfCols = oExcelRange.Columns.Count ActiveDocument.Range.InsertParagraphAfter 'just makes new para athe end of doc, Table will be created here Set oTable = ActiveDocument.Tables.Add (Range: = ActiveDocument.Paragraphs.Last.Range, NumRows: = nNumOfRows, NumColumns: = nNumOfCols) 'stvorenie Tabuľka a priraďte ju k premennej „*** skutočný obchod, tabuľka sa tu naplní Pre x = 1 až nNumOfRows Pre y = 1 až nNumOfCols oTable.Cell (x, y) .Range.Text = oExcelRange.Cells (x, y ) .Hodnota Ďalej y Ďalej x '*** oExcelWorkbook.Close False oExcelApp.Quit With oTable.Rows (1) .Range' teraz môžeme na náš stôl naniesť trochu krásy :) .Shading.Texture = wdTextureNone .Shading.ForegroundPatternColor = wdColorAutomatic .Shading.BackgroundPatternColor = wdColorYellow End With End Sub
