Tartalomjegyzék
Táblázat hozzáadása a Word dokumentumhoz
Ez az egyszerű makró hozzáad egy táblázatot a Word dokumentumához:
Sub VerySimpleTableAdd () Dim oTable as Table Set oTable = ActiveDocument.Tables.Add (tartomány: = Selection.Range, NumRows: = 3, NumColumns: = 3)
Válassza ki a táblázatot a Wordben
Ez a makró kiválasztja az aktív táblázat első táblázatát:
A Sub SelectTable () 'az első dokumentumot választja ki az aktív dokumentumban If ActiveDocument.Tables.Count> 0 then' a hibák elkerülése érdekében ellenőrizzük, hogy létezik -e táblázat az ActiveDocument Active Doc.Tables (1) táblázatban. Válassza a End If End Sub lehetőséget
Lépjen végig egy táblázat összes celláján
Ez a VBA makró végigmegy a táblázat összes celláján, és a cellák számát írja a cellába:
Sub TableCycling () 'hurok a Dim nCounter táblázat hosszú celláin keresztül' ez lesz írva az összes táblázat cellájába , Itt jön létre a tábla Set oTable = ActiveDocument.Tables.Add (Range: = ActiveDocument.Pa bekezds.Last.Range, NumRows: = 3, NumColumns: = 3) 'hozzon létre egy táblázatot, és rendelje hozzá a változóhoz Minden oRow In oTable. A sorok külső hurka végigmegy a sorokon Minden egyes oCell In oRow sorban. A cellák belső ciklusa nCounter = nCounter + 1 'növeli az oCell.Range.Text = nCounter számlálót a következő oCell Next oRow' megjelenítési eredményhez a cellából második oszlop a második sorban Dim strTemp Mint karakterlánc strTemp = oTable.Cell (2, 2). Range.Text MsgBox strTemp End Sub
Hozzon létre Word táblázatot Excel fájlból
Ez a VBA példa táblázatot készít egy Excel fájlból:
Sub MakeTablefromExcelFile () 'Advanced Dim oExcelApp, oExcelWorkbook, oExcelWorksheet, oExcelRange Dim nNumOfRows As Long Dim nNumOfCols As Long Dim strFile As String Dim oTable As Table' szó tábla Dim oRow As Row 'szósor Dim oCell As Long, y As Long 'számláló a hurkokhoz strFile = "c: \ Users \ Nenad \ Desktop \ BookSample.xlsx"' változás az aktuális elérési útra Set oExcelApp = CreateObject ("Excel.Application") oExcelApp.Visible = True Set oExcelWorkbook = oExcelApp.Workbooks.Open (strFile) 'nyitott munkafüzet és hozzárendelése változóhoz Set oExcelWorksheet = oExcelWorkbook.Worksheets (1)' asign first workheet to variable Count nNumOfCols = oExcelRange.Columns.Count ActiveDocument.Range.InsertPa bekezdésAfter 'csak új paramétereket készít a dokumentum végén, itt jön létre a táblázat. = nNumOfRows, NumColumns: = nNumOfCols) 'creat e táblázatot, és rendelje hozzá a '*** real deal' változóhoz, a táblázat itt töltődik be ) .Érték Következő y Következő x '*** oExcelWorkbook.Close False oExcelApp.Quit With oTable.Rows (1) .Range' most némi szépséget alkalmazhatunk az asztalunkon :) .Shading.Texture = wdTextureNone .Shading.ForegroundPatternColor = wdColorAutomatic .Shading.BackgroundPatternColor = wdColorSárga vége véggel
