Vba word ширина столбца таблицы

Добрый вечер. Недавно столкнулся с проблемой назначения ширины столбца в таблице word .
Я работаю в Visual Basic 2008 express edition, использую Microsoft Word 11.0 Object Library для соединения с Word. Создаю документ, таблицу, начинаю назначать ширину столбцам. Все, вроде, нормально, но как только подходит момент обработать очередной столбец (сузить до 3 мм = 8,5 point) программа тут же выдает ошибку («COMException was unhandled. Значение лежит вне допустимого диапазона.»). Причем, как я уже проанализировал, «допустимый диапазон» начинается с 11 пунктов (3.88 мм), но почему? Почему? Если я тупо захожу в Word, кликая мышкой, и создав таблицу, могу задать ширину столбца или любой ячейки равной, даже 0,1 мм . Помогите пожалуйста. Может решение лежит под носом, а я его не вижу? Или какие-нибудь есть скрытые нюансы ? Заранее спасибо.
Вот фрагмент кода:
«

Код: Выделить всё

Private Sub CreateTable(ByVal w As Microsoft.Office.Interop.Word.Document, ByVal r As Microsoft.Office.Interop.Word.Range)
        Dim strok As Short = 21 '  Количество строк в таблице
        Dim stolb As Short = 18 '   Количество столбцов в таблице
        Dim m As Single = 2.834645669213 '  Количество поинтов в миллиметре
        w.Tables.Add(w.Paragraphs.Item(w.Paragraphs.Count).Range, strok, stolb) ' Добавляем таблицу в документ
        Dim iMax As Integer = w.Tables.Count ' Номер последней таблицы
        w.Tables.Item(iMax).LeftPadding = 0                                                                             
        w.Tables.Item(iMax).RightPadding = 0
        w.Tables.Item(iMax).TopPadding = 0
        w.Tables.Item(iMax).BottomPadding = 0
        w.Tables.Item(iMax).Columns(1).Cells.Width = 5 * m '  Начинаем задавать ширину столбцам
        w.Tables.Item(iMax).Columns(2).Cells.Width = 7 * m
        w.Tables.Item(iMax).Columns(3).Cells.Width = 7 * m
        w.Tables.Item(iMax).Columns(4).Cells.Width = 10 * m
        w.Tables.Item(iMax).Columns(5).Cells.Width = 3 * m ' <--- Вот эта строка, тут все обрывается :(
        w.Tables.Item(iMax).Columns(6).Cells.Width = 23 * m
        w.Tables.Item(iMax).Columns(7).Cells.Width = 15 * m
        w.Tables.Item(iMax).Columns(8).Cells.Width = 10 * m
        w.Tables.Item(iMax).Columns(9).Cells.Width = 25 * m
        w.Tables.Item(iMax).Columns(10).Cells.Width = 5 * m
        w.Tables.Item(iMax).Columns(11).Cells.Width = 20 * m
        w.Tables.Item(iMax).Columns(12).Cells.Width = 20 * m
        w.Tables.Item(iMax).Columns(13).Cells.Width = 5 * m
        w.Tables.Item(iMax).Columns(14).Cells.Width = 5 * m
        w.Tables.Item(iMax).Columns(15).Cells.Width = 5 * m
        w.Tables.Item(iMax).Columns(16).Cells.Width = 10 * m
        w.Tables.Item(iMax).Columns(17).Cells.Width = 5 * m
        w.Tables.Item(iMax).Columns(18).Cells.Width = 20 * m
        w.Range.InsertParagraphAfter()
End Sub

«

Перед установкой ширины столбца, нужно задать правило, по которому она вычисляется:

Код: Выделить всё

w.Tables.Item(iMax).Columns.PreferredWidthType=wdPreferredWidthPoints

Миллиметры в поинты переводятся функцией MillimetersToPoints. Её можно вызвать так:

Код: Выделить всё

w.Application.MillimetersToPoints()

Спасибо за советы. Сделал все как сказали, но ошибка осталась. . Что после такого кода

Код: Выделить всё

w.Tables.Item(iMax).Columns.PreferredWidthType = Microsoft.Office.Interop.Word.WdPreferredWidthType.wdPreferredWidthPoints
w.Tables.Item(iMax).Columns(5).Cells.Width = w.Application.MillimetersToPoints(3)


что без него — к сожалению одно и тоже.
Мне уже кажется, что эту ошибку не убрать вообще, потому что это ограничение связано с возможностями Microsoft Word 11.0 Object Library.
Неужели придется менять намеченный план ?

Я понял! У ячеек этого столбца нужно убрать правые и левые границы. Ширина столбца не может быть меньше, чем сумма правого и левого отступа для текста. Т.е.

Код: Выделить всё

For Each oCell As Word.Cell In w.Tables.Item(iMax).Columns(5).Cells
  oCell.RightPadding = 0
  oCell.LeftPadding = 0
Next

А уже потом задавать ширину столбца.
И почему это нельзя сделать «кирпичную стену»? Разбиение ячеек ещё никто не отменял

Конечно, заработало. Я бы не говорил, если бы не работало:

Код: Выделить всё

Imports Microsoft.Office.Interop.Word
Imports Microsoft.Office.Interop
Module Module1

  Sub Main()
    Dim wdApp As New Word.Application
    Dim wdDoc As Word.Document
    Dim Tbl As Word.Table
    wdDoc = wdApp.Documents.Add()
    Tbl = wdDoc.Tables.Add(wdDoc.Application.Selection.Range, 5, 5)
    For Each ocell As Word.Cell In Tbl.Columns(3).Cells
      ocell.RightPadding = 0
      ocell.LeftPadding = 0
    Next
    With Tbl.Columns(3)
      .PreferredWidthType = WdPreferredWidthType.wdPreferredWidthPoints
      .PreferredWidth = wdApp.MillimetersToPoints(3)
    End With
    wdApp.Visible = True
    wdDoc = Nothing : wdApp = Nothing
  End Sub

End Module

И вот результат:

nested table in WordI have a template which is essentially a 4-row column in Work. Each cell marked with a bookmark. I’ve copied a table from Excel to Word into one of these bookmarks (inside on of the cells). Now I’m trying to format this ‘nested table’ to make it fit according to my desired column widths (for certain columns) but I’m really struggling with the syntax. Additionally, in the table, the first row contains some merged cells (Some are merged to the cell in the adjacent column and some in the row below).

The code I was trying:

With wd.Tables(2)
    .Columns(2).Width = 20
End With

But I keep getting «Run-time error ‘5941’: The requested member of the collection does not exist.» Does this mean I am not indexing it properly?

Tabels(2) is meant to refer to the ‘nested table’ within the larger single column of 4 rows cells.

How do index it properly/find its index?
And how would I change the widths when I have merged cells?
Would I need to:
divide them first>adjust width>re-merge?
Also, I’m doing this in VBA Word, if I reference ‘Microsoft Word xx.0 Object Library’ in excel VBA can I do this in excel?

asked Feb 14, 2017 at 9:51