Turinys
Pridėti lentelę prie „Word“ dokumento
Ši paprasta makrokomanda pridės lentelę prie „Word“ dokumento:
Sub VerySimpleTableAdd () Dim oTable kaip lentelės rinkinys oTable = ActiveDocument.Tables.Add (Range: = Selection.Range, NumRows: = 3, NumColumns: = 3) End Sub
„Word“ pasirinkite lentelę
Ši makrokomanda pasirinks pirmąją aktyvaus „Word“ dokumento lentelę:
„Sub SelectTable ()“ pasirenka pirmąją aktyvaus dokumento lentelę „If ActiveDocument.Tables.Count“> 0 Tada “, kad išvengtume klaidų, patikriname, ar aktyvioje dokumento„ ActiveDocument “lentelėje yra bet kuri lentelė. Lentelės (1). Pasirinkite„ End If End Sub “
Peržiūrėkite visas lentelės ląsteles
Ši VBA makrokomanda eis per visas lentelės langelius, įrašydama ląstelių skaičių į langelį:
Sub TableCycling () 'kilpa per visas lentelės Dim nCounter As Long langelius' tai bus parašyta visose lentelės ląstelėse Dim oTable kaip lentelės Dim oRow As Row Dim oCell As Cell ActiveDocument.Range.InsertPa bekezdésAfter 'tiesiog padaro naują dokumento pabaigą , Čia bus sukurta lentelė Set oTable = ActiveDocument.Tables.Add (Diapazonas: = ActiveDocument.Parags.Last.Range, NumRows: = 3, NumColumns: = 3) “sukurkite lentelę ir priskirkite ją kintamajam Kiekvienai„ oRow In oTable “. Eilutės išorinė kilpa eina per eilutes Kiekvienai oCell In oRow. Ląstelių vidinė kilpa eina nCounter = nCounter + 1 'padidina skaitiklį oCell.Range.Text = nCounter' rašo skaitiklį langeliui Next oCell Next oRow 'rodymo rezultatas iš ląstelės iš antrasis stulpelis antroje eilutėje Dim strTemp As String strTemp = oTable.Cell (2, 2). Range.Text MsgBox strTemp End Sub
Sukurkite „Word“ lentelę iš „Excel“ failo
Šis VBA pavyzdys sudarys lentelę iš „Excel“ failo:
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 oRow As Row 'word cell As Long, y As Long 'skaitiklių kilpoms strFile = "c: \ Users \ Nenad \ Desktop \ BookSample.xlsx"' pakeisti faktinį kelią Set oExcelApp = CreateObject ("Excel.Application") oExcelApp.Visible = True Set oExcelWorkbook = „oExcelApp.Workbooks.Open (strFile)“ atidarykite darbo knygą ir priskirkite ją kintamajam Nustatykite „oExcelWorksheet = oExcelWorkbook.Worksheets“ (1) 'priskirkite pirmąjį darbalapį kintamajam Nustatykite „oExcelRange = oExcelWorksheet.Range“ („A1: C8“) n = OExRef. Skaičiuoti nNumOfCols = oExcelRange.Columns.Count ActiveDocument.Range.InsertPa bekezdésAfter 'tiesiog sukuria naują dokumento pabaigą, čia bus sukurta lentelė Set oTable = ActiveDocument.Tables.Add (Range: = ActiveDocument.Parags.Last.Range, NumRows: = nNumOfRows, NumColumns: = nNumOfCols) 'creat e lentelę ir priskirkite ją kintamajam *** realus sandoris, lentelė užpildoma čia x = 1 iki nNumOfRows y = 1 iki nNumOfCols oTable.Cell (x, y). Range.Text = oExcelRange.Cells (x, y ) .Verta Toliau y Kitas x '*** oExcelWorkbook.Close False oExcelApp.Quit With oTable.Rows (1). Range' dabar galime savo stalui pritaikyti šiek tiek grožio :) .Shading.Texture = wdTextureNone .Shading.ForegroundPatternColor = wdColorAutomatic .Shading.BackgroundPatternColor = wdColorGeltona pabaiga su pabaiga
