Table.Cell(1, c).Range.Text = HeadingValues(c - 1) Public Sub HeadingsRow(ByVal HeadingValues) 'Generates the row that sets the number of columns for the table Table.Cell(FromRow, FromColumn).Merge(Table.Cell(ToRow, ToColumn)) Public Function MergeCells(ByVal FromRow, ByVal FromColumn, ByVal ToRow, ByVal ToColumn) As Boolean 'This allows you to merge whichever cells in a table with whichever other cells. Property TableHeadings() 'Set or get the current Headings array Property Doc() 'Get the WordDoc Object or Set it ReadOnly Property RowCount() 'How many rows are currently in the Table? TableID = Table.ID 'This isn't used for anything yet. Table.AutoFitBehavior() 'Autofit option to fit the table to its contents Table = (Range, Rows, Columns) 'Set our table to exist as a 1x1 (see above initial values) in the document Range = LocationInDoc 'Range or selected area in the document. 'We assign the values and create our table object. 'User provides the document and the starting range. Public Sub New(ByRef Doc As Word.Document, ByVal LocationInDoc As Word.Range) 'Declare our objects to be used within the class that are hidden from the user Tb.CellBorders(1, 1, False, False, True, True) 'Remove a couple of the borders on the top left cell 'Add a blank row above the loaded headings for top headings. Range = ("\endofdoc").Rangeĭim Headings() As String = 'Start Word and open the document template. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickĭim oWord As Word.Application 'Assign oWord to be a Word Applicationĭim oDoc As Word.Document 'Assign oDoc to be a Word Document Hopefully this'll help someone down the line.
#HOW DO I NUMBER EACH ROW IN A WORD TABLE INDIVIDUALLY CODE#
See the code below, but be mindful that this is done for my own purposes so it may not be exactly the kind of thing you'd expect. As is usual, I've answered my own question.
0 kommentar(er)
