powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Объединение ячеек в ворд, с помощью макроса
6 сообщений из 6, страница 1 из 1
Объединение ячеек в ворд, с помощью макроса
    #38012618
ольга060289
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброго времени суток!
Есть задача: в документе ворд - таблица. В таблице необходимо объединить 3 последних столбца. Всего в таблице 5 столбов.
Помогите, пожалуйста, осуществить это с помощью макроса.
...
Рейтинг: 0 / 0
Объединение ячеек в ворд, с помощью макроса
    #38012675
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сервис - Макрос - Начать запись
проделать все, что нужно, остановить запись, макрос готов
...
Рейтинг: 0 / 0
Объединение ячеек в ворд, с помощью макроса
    #38012930
ольга060289
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Дело в том, что документ будет постоянно изменяться, поэтому макрос не подойдет для измененного документа. Запись макроса происходит с помощью Selection, и именно это мне не подходит
...
Рейтинг: 0 / 0
Объединение ячеек в ворд, с помощью макроса
    #38012948
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ольга060289,
Код: vbnet
1.
2.
'объединение ячеек, например Cell(2, 3), первая цифра - строка, вторая цифра - столбец, то есть ячейка строки ...
ActiveDocument.Tables(1).Cell(2, 3).Merge MergeTo:=ActiveDocument.Tables(1).Cell(2, 5)



по моему со столбцами схоже
...
Рейтинг: 0 / 0
Объединение ячеек в ворд, с помощью макроса
    #38012960
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ольга060289Дело в том, что документ будет постоянно изменяться, поэтому макрос не подойдет для измененного документа. Запись макроса происходит с помощью Selection, и именно это мне не подходитНу так заменить Selection на, собственно, нужные столбцы. Что у вас получилось при записи макроса?
...
Рейтинг: 0 / 0
Объединение ячеек в ворд, с помощью макроса
    #38013277
ольга060289
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо, додумалась вот до этой штуковины:

Dim Tb1 As Table
Dim Cell As Cell
Dim i As Integer

Set Tb1 = ActiveDocument.Tables(1)
For i = 1 To Tb1.Rows.Count
Set Cell = Tb1.Cell(i, 3)
Call Cell.Merge(Tb1.Cell(i, 5))
Next i
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Объединение ячеек в ворд, с помощью макроса
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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