Sisällysluettelo
Lisää taulukko Word -asiakirjaan
Tämä yksinkertainen makro lisää taulukon Word -asiakirjaasi:
Sub VerySimpleTableAdd () Dim oTable as Table Set oTable = ActiveDocument.Tables.Add (Range: = Selection.Range, NumRows: = 3, NumColumns: = 3) End Sub
Valitse Taulukko Wordissa
Tämä makro valitsee aktiivisen Word -asiakirjan ensimmäisen taulukon:
Sub SelectTable () 'valitsee aktiivisen asiakirjan ensimmäisen taulukon If ActiveDocument.Tables.Count> 0 Sitten' virheiden välttämiseksi tarkistamme, onko aktiivisessa doc ActiveDocument.Tables (1) -taulukossa olemassa taulukkoa.
Kierrä kaikki taulukon solut läpi
Tämä VBA -makro kiertää kaikki taulukon solut läpi ja kirjoittaa solumäärän soluun:
Sub TableCycling () 'silmukka kaikkien taulukon solujen läpi Dim nCounter As Long' tämä kirjoitetaan kaikkiin taulukon soluihin Dim oTable Kuten taulukko Dim oRow as Row Dim oCell As Cell ActiveDocument.Range.InsertPa bekezdésAfter 'tekee vain uuden kohdan asiakirjan loppuun , Taulukko luodaan tässä Aseta oTable = ActiveDocument.Tables.Add (Range: = ActiveDocument.Pa bekezds.Last.Range, NumRows: = 3, NumColumns: = 3) 'luo taulukko ja liitä se muuttujaan jokaiselle oRow -taulukolle. Rivien ulompi silmukka kulkee rivien läpi Jokaiselle oCell In oRow.Solujen sisäinen silmukka menee nCounter = nCounter + 1 'lisää laskuria oCell.Range.Text = nCounter' kirjoittaa laskurin solulle Seuraava oCell Next oRow '-näytön tulos solusta toinen sarake toisella rivillä Dim strTemp Kuten merkkijono strTemp = oTable.Cell (2, 2) .Range.Text MsgBox strTemp End Sub
Luo Word -taulukko Excel -tiedostosta
Tämä VBA -esimerkki tekee taulukon Excel -tiedostosta:
Sub MakeTablefromExcelFile () 'Advanced Dim oExcelApp, oExcelWorkbook, oExcelWorksheet, oExcelRange Dim nNumOfRows As Long Dim nNumOfCols As Long Dim strFile As String Dim oTable As Table Niin kauan, y Niin kauan 'silmukoiden laskuri strFile = "c: \ Users \ Nenad \ Desktop \ BookSample.xlsx"' muutos todelliseksi poluksi Aseta oExcelApp = CreateObject ("Excel.Application") oExcelApp.Visible = True Set oExcelWorkbook = oExcelApp.Workbooks.Open (strFile) 'avoin työkirja ja liitä se muuttujaan Aseta oExcelWorksheet = oExcelWorkbook.Worksheets (1)' asign first workheet to variable Set Laske nNumOfCols = oExcelRange.Columns.Count ActiveDocument.Range.InsertPa bekezdésAfter 'tekee vain uuden parametrin asiakirjan loppuun, taulukko luodaan tähän Aseta oTable = ActiveDocument.Tables.Add (Range: = ActiveDocument.Pa bekezds.Last.Range, NumRows: = nNumOfRows, NumColumns: = nNumOfCols) 'creat e taulukko ja liitä se muuttujaan '*** real deal, taulukko täytetään tässä x = 1 nNumOfRows varten y = 1 nNumOfCols oTable.Cell (x, y) .Range.Text = oExcelRange.Cells (x, y ) .Arvo Seuraava y Seuraava x '*** oExcelWorkbook.Close False oExcelApp.Quit With oTable.Rows (1) .Range' voimme nyt soveltaa pöydällemme jotain kaunista :) .Shading.Texture = wdTextureNone .Shading.ForegroundPatternColor = wdColorAutomatic .Shading.BackgroundPatternColor = wdColorKeltainen loppu ja loppuosa
