2013-06-24 4 views
0

В Microsoft Word 2010 у меня есть следующий макрос, хорошо работающий в моей форме. После добавления новой строки мне понадобится новая строка с предопределенным текстом, добавленным в столбцы 1, 2 и 3. В столбце 2 мне нужно иметь несколько строк внутри одной строки. Таблица имеет только 3 столбца. Как мне это сделать?Вставка строки в нижней части таблицы с предопределенным текстом

Sub addrow() 

Dim oTable As Table 
Dim oCell As Cell 
Dim oPrevRow As Row, oNewRow As Row 
Dim iColumn As Long 

' Insert new row 
Set oTable = ActiveDocument.Tables(3) 
Set oPrevRow = oTable.Rows(oTable.Rows.count) 
oTable.Rows.Add 
Set oNewRow = oTable.Rows(oTable.Rows.count) 

End Sub 
+0

Вы можете уточнить «нужно иметь несколько строк внутри одной и той же строке»? – shahkalpesh

+0

Например, внутри конкретной ячейки. В этом случае каждая строка в столбце 2. Мне нужно иметь строку текста, пустую строку, затем другую строку текста. –

ответ

1
Set oNewRow = oTable.Rows(oTable.Rows.count) 
oNewRow.Cells(1).Range.Text = "Column 1 Text" 
oNewRow.Cells(2).Range.Text = "Column 2 Text" 
oNewRow.Cells(3).Range.Text = "Column 3 Text" 
+0

Спасибо, что сработало так, как ожидалось. И последний вопрос. Для второго столбца, как мне вставить текст, затем пустую строку, а затем еще текст на 3-й строке? –

+0

Например, внутри конкретной ячейки. В этом случае каждая строка в столбце 2. Мне нужно иметь строку текста, пустую строку, затем другую строку текста. –

+0

@ChrisK, может попробовать использовать vbCrLf. Например, .Text = "Foo" & vbCrLf & vbCrLf & "Bar" – dennythecoder

Смежные вопросы