powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Добавлять в цикле клонки к таблице что бы они имели определенную ширину
8 сообщений из 8, страница 1 из 1
Добавлять в цикле клонки к таблице что бы они имели определенную ширину
    #32748499
XX99
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Подскажите как добавлять к таблице колонки, но что бы они имели определенную ширину. ( такую что бы поместилось слово из переменной v_Name)

У меня есть цикл. В нем переменной v_Name присваиваются разные значения. Мне нужно в документ добавлять столбец в котором будет записано v_Name.

что-то типа этого. ( какждая сторка это сл итерация цикла)
...
Рейтинг: 0 / 0
Добавлять в цикле клонки к таблице что бы они имели определенную ширину
    #32748527
XX99
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А то у меня получается следующее
...
Рейтинг: 0 / 0
Добавлять в цикле клонки к таблице что бы они имели определенную ширину
    #32748547
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ты в ворде работаешь? если да, то:
ActiveDocument.Tables(i).Columns.Add
ActiveDocument.Tables(i).Cell(a, b).Width = число
...
Рейтинг: 0 / 0
Добавлять в цикле клонки к таблице что бы они имели определенную ширину
    #32748784
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вопрос не совсем понятен.
Известно ли заранее количество столбцов на пример.
Если добавлять колонки справа когда захочется, можно выйти за границы и листа и вообще формата A1.
А вообще ширину подогнать можно так
Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)
но делать это надо когда уже все заголовки колонок заполнены.
...
Рейтинг: 0 / 0
Добавлять в цикле клонки к таблице что бы они имели определенную ширину
    #32748830
XX99
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
автор
ActiveDocument.Tables(i).Columns.Add
ActiveDocument.Tables(i).Cell(a, b).Width = число


подошло. спасибо.

автор
Известно ли заранее количество столбцов на пример.


нет . сразу не известно. но в принцыпе я могу вычислить. пройдусь сначала в цикле и вычислю кол-во столбцов и название каждого. Правда нужно мне это в массив занести, но я не знаю как.

Мне бы сделать массив v_Array .Научите плиз. И что бы потом узнать число элементов массива и обратиться можно было к конкретному элементу по индексу.
...
Рейтинг: 0 / 0
Добавлять в цикле клонки к таблице что бы они имели определенную ширину
    #32748850
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Private Sub Command1_Click()
Dim v_Array() As Variant, i As Long, s As String
ReDim v_Array(4)
v_Array(0) = "Один"
v_Array(1) = "Два"
v_Array(2) = "Три"
v_Array(3) = "Четыре"
v_Array(4) = "Пять"
For i = 0 To UBound(v_Array)
s = s & v_Array(i) & vbCrLf
Next i
MsgBox s
End Sub
...
Рейтинг: 0 / 0
Добавлять в цикле клонки к таблице что бы они имели определенную ширину
    #32748902
XX99
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
в принцыпе у меня получилось, но только ReDim v_Array(4) этот самый 4 я могу вычислить только при работе программы. Хотя задам 1000. у меня столько никогда не будет.
...
Рейтинг: 0 / 0
Добавлять в цикле клонки к таблице что бы они имели определенную ширину
    #32748988
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
XX99в принцыпе у меня получилось, но только ReDim v_Array(4) этот самый 4 я могу вычислить только при работе программы. Хотя задам 1000. у меня столько никогда не будет.
Опять не понял, в чем проблема:
Добавить переменную - счетчик в теле цикла
или Recordset1.RecordCount ?
Есть много способов узнать количество.
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Добавлять в цикле клонки к таблице что бы они имели определенную ширину
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]