Obsah
Přidat tabulku do dokumentu aplikace Word
Toto jednoduché makro přidá do dokumentu aplikace Word tabulku:
Sub VerySimpleTableAdd () Dim oTable As Table Set oTable = ActiveDocument.Tables.Add (Range: = Selection.Range, NumRows: = 3, NumColumns: = 3) End Sub
Vyberte tabulku ve Wordu
Toto makro vybere první tabulku v aktivním dokumentu aplikace Word:
Sub SelectTable () 'vybere první tabulku v aktivním dokumentu If ActiveDocument.Tables.Count> 0 Then', abychom se vyhnuli chybám, zkontrolujeme, zda v aktivním dokumentu ActiveDocument.Tables (1) existuje nějaká tabulka. Vyberte End If End Sub
Projděte všechny buňky v tabulce
Toto makro VBA bude procházet všemi buňkami v tabulce a zapíše počet buněk do buňky:
Sub TableCycling () 'smyčka přes všechny buňky v tabulce Dim nCounter As Long' to bude zapsáno do všech buněk tabulky Dim oTable As Table Dim oRow As Row Dim oCell As Cell ActiveDocument.Range.InsertParagraphAfter 'just makes new para athe end of doc Zde se vytvoří tabulka Set oTable = ActiveDocument.Tables.Add (Rozsah: = ActiveDocument.Paragraphs.Last.Range, NumRows: = 3, NumColumns: = 3) 'vytvořte tabulku a přiřaďte ji proměnné Pro každý oRow v oTable. Vnější smyčka řádků prochází řádky Pro každý oCell In oRow.Cells 'vnitřní smyčka jde nCounter = nCounter + 1' zvyšuje čítač oCell.Range.Text = nCounter 'zapisuje čítač do buňky Další oCell Další oRow' zobrazí výsledek z buňky z druhý sloupec ve druhém řádku Dim strTemp As String strTemp = oTable.Cell (2, 2) .Range.Text MsgBox strTemp End Sub
Vytvořte tabulku Word ze souboru aplikace Excel
Tento příklad VBA vytvoří tabulku ze souboru aplikace 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 oCell Jak dlouhý, tak dlouhý jako čítač smyček strFile = "c: \ Users \ Nenad \ Desktop \ BookSample.xlsx" 'změna na skutečnou cestu Set oExcelApp = CreateObject ("Excel.Application") oExcelApp.Visible = True Set oExcelWorkbook = oExcelApp.Workbooks.Open (strFile) 'otevřete sešit a přiřaďte jej k proměnné Set oExcelWorksheet = oExcelWorkbook.Worksheets (1)' přiřadí první list k proměnné Set 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) 'kreativa Tabulka a přiřaďte ji k proměnné '*** skutečný obchod, tabulka se zde vyplní Pro x = 1 To nNumOfRows Pro y = 1 To nNumOfCols oTable.Cell (x, y) .Range.Text = oExcelRange.Cells (x, y ) .Hodnota Další y Další x '*** oExcelWorkbook.Close False oExcelApp.Quit With oTable.Rows (1) .Range' můžeme nyní aplikovat na náš stůl nějakou krásu :) .Shading.Texture = wdTextureNone .Shading.ForegroundPatternColor = wdColorAutomatic .Shading.BackgroundPatternColor = wdColorYellow End With End Sub
