Разбиение ячеек, объединенных по вертикали / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Разбиение ячеек, объединенных по вертикали

5 сообщений из 5, страница 1 из 1

Разбиение ячеек, объединенных по вертикали

#38014007

ольга060289

Гость

Доброго времени суток!
В документе Ворд есть таблица такого вида:
1|_2_|5|
..|_3_| |
_|_4_|_|

Необходимо с помощью макроса разбить 1й и 5й столбец на три строки или объединить 2й столбец с помощью макроса. Помогите, пожалуйста, написать код)

...

Рейтинг:

0 / 0

26.10.2012, 08:32

| Ответить | Цитировать | Написать

Разбиение ячеек, объединенных по вертикали

#38014034

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Сервис - Макрос - Начать запись...

...

Рейтинг:

0 / 0

26.10.2012, 08:55

| Ответить | Цитировать | Написать

Разбиение ячеек, объединенных по вертикали

#38014055

катастрофа

Участник

Сообщения: 2 519

Рейтинг: 0 / 0

ольга060289, собиение - Merge, разбиение - Split, разбирайтесь

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

'таблицу "й" автивного документа разбить & разделить на три столбца
й = 1
For u = 1 To ActiveDocument.Tables(й).Rows.Count
ActiveDocument.Tables(й).Cell(u, 1).Split 1, 2
ActiveDocument.Tables(й).Cell(u, 2).Split 1, 2
ActiveDocument.Tables(й).Cell(u, 3).Range.Text = "1_ит_01"
Next
ActiveDocument.Tables(й).Columns(3).PreferredWidth = CentimetersToPoints(2.86) 'ширина ... таблицы ... столбца равна ... см.
ActiveDocument.Tables(й).Columns(2).PreferredWidth = CentimetersToPoints(7)
ActiveDocument.Tables(й).Columns(1).PreferredWidth = CentimetersToPoints(7)
MsgBox$ ActiveDocument.Tables(й).Rows.Count

...

Рейтинг:

0 / 0

26.10.2012, 09:25

| Ответить | Цитировать | Написать

Разбиение ячеек, объединенных по вертикали

#38017321

ольга060289

Гость

катастрофа,
не очень понятно, можете объяснить поподробнее.
Этот макрос у меня разбивает 1 и 2 ячейку таблицы

...

Рейтинг:

0 / 0

29.10.2012, 16:19

| Ответить | Цитировать | Написать

Разбиение ячеек, объединенных по вертикали

#38017327

катастрофа

Участник

Сообщения: 2 519

Рейтинг: 0 / 0

ольга060289,
когда сделаете это
ActiveDocument.Tables(1).Cell(1, 3).Range.Text = "1_ит_01"
поймёте в Cell(1, 3) где строка а где ячейка
или пишите по русски

Код: vbnet

ActiveDocument.Tables(1).Rows(2).Cells(3).Range.Text = "1_ит_01"

...

Рейтинг:

0 / 0

29.10.2012, 16:23

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Разбиение ячеек, объединенных по вертикали

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&fpage=67&tid=2157357]:	0ms
get settings:	10ms
get forum list:	12ms
check forum access:	4ms
check topic access:	4ms
track hit:	37ms
get topic data:	11ms
get forum data:	2ms
get page messages:	41ms
get tp. blocked users:	2ms
others:	9ms

total:	132ms