сделала запись макроса на 4х строчках, в итоге он выполняет 4 строки а мне нужно 10000, можно ли просто исправить мой макрос?

[Татьяна0602]

имеется большая таблица, сделала запись макроса на 4х строчках, в итоге он выполняет 4 строки а мне нужно 10000, можно ли просто исправить мой макрос?

[Serge_Bliznykov]

Сообщение от Татьяна0602

можно ли просто исправить мой макрос?

да, можно.

[Татьяна0602]

Сообщение от Serge_Bliznykov

да, можно.

А как если не секрет с макросами имела дело лет 7 назад уже все забылось

[Татьяна0602]

У меня вот такой макрос получился.

[Serge_Bliznykov]

Сообщение от Татьяна0602

У меня вот такой макрос получился.

во-первых, Вы забыли упомянуть, что речь идёт про MS WORD

во-вторых, опишите, какую задачу Вы решаете (что должен делать ваш макрос)

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

[Татьяна0602]

Сообщение от Serge_Bliznykov

во-первых, Вы забыли упомянуть, что речь идёт про MS WORD

во-вторых, опишите, какую задачу Вы решаете (что должен делать ваш макрос)

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

1000 извинений, да действительно это Word
задача до жути монотонная ибо в наличии таблица из 4 столбцов и огромного количества строк которую необходимо объединить в 1 столбец и тоже количество строк.
маленький фрагмент прилагаю

[Serge_Bliznykov]

попробуйте такой макрос:

Sub MergeTableCells()
Dim oTable As Word.Table
Dim oRow As Word.Row
Dim oCell As Word.Cell, uText$

Dim numberOfColumnsInCurrentTable As Integer
Dim currentTableIndex As Integer

currentTableIndex = ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count

Set oTable = ActiveDocument.Tables(currentTableIndex)


For Each oRow In oTable.Rows
    uText = ""
    For Each oCell In oRow.Cells
       uText = uText & oCell.Range.Text
       oCell.Range.Text = ""
    Next
    oRow.Cells.Merge
    uText = Replace(uText, vbCr, " ")
    'ActiveDocument.Tables(1).Cell(1, 1).Range.Text = uText
    oTable.Cell(oRow.Index, 1).Range.Text = uText
Next
End Sub

Внимание!
В коде определяется текущая таблица.
Поэтому, при использовании, перед вызовом макроса ОБЯЗАТЕЛЬНО сначал установите курсор внутрь той таблицы, которую надо обработать.
Потом вызывайте макрос MergeTableCells

[Татьяна0602]

Сообщение от Serge_Bliznykov

попробуйте такой макрос:

Sub MergeTableCells()
Dim oTable As Word.Table
Dim oRow As Word.Row
Dim oCell As Word.Cell, uText$

Dim numberOfColumnsInCurrentTable As Integer
Dim currentTableIndex As Integer

currentTableIndex = ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count

Set oTable = ActiveDocument.Tables(currentTableIndex)


For Each oRow In oTable.Rows
    uText = ""
    For Each oCell In oRow.Cells
       uText = uText & oCell.Range.Text
       oCell.Range.Text = ""
    Next
    oRow.Cells.Merge
    uText = Replace(uText, vbCr, " ")
    'ActiveDocument.Tables(1).Cell(1, 1).Range.Text = uText
    oTable.Cell(oRow.Index, 1).Range.Text = uText
Next
End Sub

Внимание!
В коде определяется текущая таблица.
Поэтому, при использовании, перед вызовом макроса ОБЯЗАТЕЛЬНО сначал установите курсор внутрь той таблицы, которую надо обработать.
Потом вызывайте макрос MergeTableCells

увы выбрасывает в панель редактирования макроса.. там ничего менять же ненадо было?
пора вспоминать как это делается

[Serge_Bliznykov]

Сообщение от Татьяна0602

увы выбрасывает в панель редактирования макроса..

не понимаю, о чём Вы...

Сообщение от Татьяна0602

там ничего менять же ненадо было?

нет.

Сообщение от Татьяна0602

пора вспоминать как это делается

я думал, что Вы знаете, как работать с макросами.

ладно. попробуем по другому.
я вставил макрос в ваш файл с таблицей.
попробуйте использовать его.

Имеем Таблицу вот такого плана.zip

Напоминаю, что макрос можно вызвать по Alt-F8

[Татьяна0602]

Сообщение от Serge_Bliznykov

я думал, что Вы знаете, как работать с макросами.

ладно. попробуем по другому.
я вставил макрос в ваш файл с таблицей.
попробуйте использовать его.

Вложение 96316

Напоминаю, что макрос можно вызвать по Alt-F8

Я раньше, пусть поверхностно но знакомилась с макросами и даже пользовалась, но забыла все за 4года декрета.
ОГРОМАДНОЕ СПАСИБО все работает и реально избавляет от монотонной ручной работы