Satura rādītājs
Pievienot tabulu Word dokumentam
Šis vienkāršais makro pievienos tabulu jūsu Word dokumentam:
Sub VerySimpleTableAdd () Dim tabula kā tabulas kopa oTable = ActiveDocument.Tables.Add (Diapazons: = Selection.Range, NumRows: = 3, NumColumns: = 3) End Sub
Programmā Word atlasiet tabulu
Šis makro atlasīs pirmo tabulu aktīvajā Word dokumentā:
Sub SelectTable () 'atlasa pirmo tabulu aktīvajā dokumentā If ActiveDocument.Tables.Count> 0 Tad', lai izvairītos no kļūdām, mēs pārbaudām, vai aktīvajā dokumentā ActiveDocument.Tast tabulas nav. Tabulas (1). Atlasiet Beigt, ja beigas
Izslēgt visas tabulas šūnas
Šis VBA makro pārvietosies pa visām tabulas šūnām, ierakstot šūnu skaitu šūnā:
Sub TableCycling () 'cilpa cauri visām tabulas šūnām Dim nCounter As Long' tas tiks rakstīts visās tabulas šūnās Dim oTable kā Tabula Dim oRow As Row Dim oCell As Cell ActiveDocument.Range.InsertPa bekezdésAfter 'tikai padara jaunu para punktu dokumenta beigās , Šeit tiks izveidota tabula Set oTable = ActiveDocument.Tables.Add (Diapazons: = ActiveDocument.Pa bekezdi.Last.Range, NumRows: = 3, NumColumns: = 3) 'izveidot tabulu un piesaistīt to mainīgajam katrai oRow In oTable. Rindu ārējā cilpa iet caur rindām Katrai oCell In oRow. Šūnu iekšējā cilpa iet nCounter = nCounter + 1 'palielina skaitītāju oCell.Range.Text = nCounter' raksta skaitītāju šūnai Next oCell Next oRow 'displeja rezultāts no šūnas no otrā kolonna otrajā rindā Dim strTemp As String strTemp = oTable.Cell (2, 2). Range.Text MsgBox strTemp End Sub
Izveidojiet Word tabulu no Excel faila
Šis VBA piemērs izveidos tabulu no Excel faila:
Sub MakeTablefromExcelFile () 'uzlabotā Dim oExcelApp, oExcelWorkbook, oExcelWorksheet, oExcelRange Dim nNumOfRows As Long Dim nNumOfCols As Long Dim strFile As String Dim oTable kā Table' word table Dim oRow As Row 'word cell As Long, y As Long 'skaitītājs cilpām strFile = "c: \ Users \ Nenad \ Desktop \ BookSample.xlsx"' mainīt faktisko ceļu Set oExcelApp = CreateObject ("Excel.Application") oExcelApp.Visible = True Set oExcelWorkbook = oExcelApp.Workbooks. Skaits nNumOfCols = oExcelRange.Columns.Count ActiveDocument.Range.InsertPa bekezdésAfter 'tikai izveido jaunu paraugu dokumenta beigās, šeit tiks izveidota tabula Set oTable = ActiveDocument.Tables.Add (Diapazons: = ActiveDocument.Pa bekezdéss.Last.Range, NumRows: = nNumOfRows, NumColumns: = nNumOfCols) 'creat e tabulu un piesaistiet to mainīgajam '*** real deal, tabula šeit tiek aizpildīta. ) .Vērtība Nākamais y Nākamais x '*** oExcelWorkbook.Close False oExcelApp.Quit With oTable.Rows (1). Range' mēs tagad varam galdam piemērot kādu skaistumu :) .Shading.Texture = wdTextureNone .Shading.ForegroundPatternColor = wdColorAutomatic .Shading.BackgroundPatternColor = wdColor Dzeltens beigas ar beigu apakšdaļu
