Lang L: none (table-of-contents)
Lisa tabel Wordi dokumenti
See lihtne makro lisab teie Wordi dokumendile tabeli:
Sub VerySimpleTableAdd () Dim oTable tabelina Set oTable = ActiveDocument.Tables.Add (Vahemik: = Selection.Range, NumRows: = 3, NumColumns: = 3) End Sub
Valige Wordis tabel
See makro valib aktiivse Wordi dokumendi esimese tabeli:
Sub SelectTable () 'valib aktiivse dokumendi esimese tabeli If ActiveDocument.Tables.Count> 0 Siis', et vigade vältimiseks kontrollime, kas aktiivses dokumendis ActiveDocument on tabel. Tabelid (1). Valige Lõpeta, kui lõpp
Sirvige kõiki tabeli lahtreid
See VBA makro läbib kõik tabeli lahtrid, kirjutades lahtrisse lahtrite arvu:
Sub TableCycling () 'silmus läbi kõigi tabeli lahtrite Dim nCounter As Long' kirjutatakse see kõikidesse tabeli lahtritesse Dim oTable Tabeli Dim oRow As Rida Dim oCell As Cell ActiveDocument.Range.InsertPa bekezdésAfter 'teeb dokumendi lõpus uue parameetri , Siin luuakse tabel Set oTable = ActiveDocument.Tables.Add (Vahemik: = ActiveDocument.Pa bekezdid.Last.Range, NumRows: = 3, NumColumns: = 3) 'luua tabel ja seostada see muutujaga iga oRow tabelis. Ridade välimine silmus läbib ridu Iga oCell In oRow puhul. Lahtrite sisemine silmus läheb nCounter = nCounter + 1 'suurendab loendurit oCell.Range.Text = nCounter' kirjutab loendurile lahtri Next oCell Next oRow 'kuvamise tulemus lahtrist teise veeru teine rida Dim strTemp As String strTemp = oTable.Cell (2, 2). Range.Text MsgBox strTemp End Sub
Looge Exceli failist Wordi tabel
See VBA näide teeb Exceli failist tabeli:
Sub MakeTablefromExcelFile () 'täiustatud Dim oExcelApp, oExcelWorkbook, oExcelWorksheet, oExcelRange Dim nNumOfRows As Long Dim nNumOfCols As Long Dim strFile As String Dim oTable As Tabel' word table Nii kaua, y kui pikk 'silmuste loendur strFile = "c: \ Users \ Nenad \ Desktop \ BookSample.xlsx"' muuda tegelikule teele Määra oExcelApp = CreateObject ("Excel.Application") oExcelApp.Visible = Tõeline komplekt oExcelWorkbook = oExcelApp.Workbooks.Open (strFile) 'avatud töövihik ja seada see muutujale Set oExcelWorksheet = oExcelWorkbook.Worksheets (1)' asign first sheet to the variable Set Count nNumOfCols = oExcelRange.Columns.Count ActiveDocument.Range.InsertPa bekezdésAfter 'teeb dokumendi lõpus uue parameetri, luuakse siia tabel Set oTable = ActiveDocument.Tables.Add (Vahemik: = ActiveDocument.Pa bekezdéss.Last.Range, NumRows: = nNumOfRows, NumColumns: = nNumOfCols) 'creat e tabel ja seostage see muutujaga *** tegelik tehing, tabel täidetakse siin x = 1 kuni nNumOfRows jaoks y = 1 kuni nNumOfCols oTable.Cell (x, y) .Range.Text = oExcelRange.Cells (x, y ) .Väärtus Järgmine y Järgmine x '*** oExcelWorkbook.Close Väär wdColorAutomatic .Shading.BackgroundPatternColor = wdColorKollane lõpp lõpuosaga
