Во-первых, спасибо заранее ... все здесь были невероятны
Итак, я пытаюсь использовать два комбинированных списка (cb_RNNumberPayments и cb_CountCohorts), чтобы вставить таблицу в мой документ с закладкой «FeeTable». Также я стараюсь правильно отформатировать таблицу (но это, вероятно, борьба в будущем). Теперь, поскольку таблица имеет заголовок (поэтому нужно иметь oRow + 1) и имеет два дополнительных столбца (oCol +2), и, исходя из того, что я прочитал, ящики не читаются как целые числа, я сталкиваюсь с множеством проблем , Я смогу заставить его работать, если я просто установлю oRow = 4 и oCol = 4, но так как каждый номер столбца и строки каждый раз различается, я хочу написать, чтобы он основывался на выпадающих списках ... make senser? Я также надеюсь вставить определенный текст в заголовки столбцов (класс программы ухода Col1, первый термин Col2, второй срок Col3, Col4-6 зависят от того, существует ли столбец на основе выпадающего списка cb_RNNumberPayments, а последний столбец должен быть Total Fee
Sub FeeTable()
Dim oRng As Word.Range, oTbl As Word.Table
Dim RNPayment As Integer
Dim nCohort As Integer
Dim oRow As Integer
Dim oCol As Integer
Set oRng = ActiveDocument.Range.Bookmarks("FeeTable").Range
Set oCol = cb_RNNumberPayments.Value + 2
Set oRow = cb_CountCohorts.Value + 1
Set oTbl = ActiveDocument.Tables.Add(Range:=oRng, NumRows:=oRow, _
NumColumns:=oCol)
ActiveDocument.Bookmarks.Add "FeeTable", oTbl.Range
oTbl.Rows.SetLeftIndent LeftIndent:=InchesToPoints(0.3), _
RulerStyle:=wdAdjustSameWidth
With oTbl
.Borders.InsideLineStyle = wdLineStyleSingle
.Borders.InsideLineWidth = wdLineWidth025pt
.Borders.InsideColor = wdColorBlack
.Borders.OutsideLineStyle = wdLineStyleSingle
.Borders.OutsideLineWidth = wdLineWidth025pt
.Borders.OutsideColor = wdColorBlack
End With
On Error Resume Next
lbl_Exit:
Exit Sub
End Sub