Word копирование строки таблицы

Перемещение и копирование ячеек

После
создания может потребоваться изменить
расположение данных в таблице. Word
предоставляет возможность перемещать
и копировать ячейки в таблице вместе с
содержащимся в них текстом.

Использование мыши для перемещения ячеек, строк и столбцов

Для
того чтобы переместить или скопировать
одну или несколько, ячеек, вместе, с их
содержимым, выполните следующие действия:

• Выберите
  ячейки, строки или столбцы, которые вы
  предполагаете переместить или
  скопировать.

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

• Дальнейшие
  ваши действия зависят от того, хотите
  ли вы переметить или скопировать
  выделенные элемента. Для того чтобы
  переместить элементы таблицы, нажмите
  левую кнопку мыши. Если вам требуется
  скопировать элементы, нажмите клавишу
  Ctrl, после чего нажмите левую кнопку
  мыши. В зависимости от произведенных
  вами действий в строке состояния
  появится соответствующее сообщение.

• Переместить
  курсор в ячейку, расположенную левее
  и выше того места, в котором должны
  появиться перемещенные или скопированные
  ячейки.

• Отпустить кнопку
  мыши.

Использование команд меню Правка

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

Изменение ширины столбцов. Перемещение границ ячеек и использование горизонтальной линейки

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

Автоматическая настройка ширины столбцов таблицы

• Выберите
  столбцы, ширину которых вы предполагаете
  изменить. Если вы выберите столбцы не
  полностью (например, одну или более
  строк) Word изменит ширины столбцов только
  в указанных строках.

• Выберите
  Таблица |
  Высота и ширина ячейки.
  В окне диалога “Высота
  и ширина ячеек”
  перейдите на вкладку “Столбец”.

• Нажмите
  кнопку Автоподбор.
  В результате окно диалога будет закрыто,
  и столбцы таблицы будут выровнены в
  соответствии с их содержимым.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

• #
• #
• #
• #
• #
• #
• #
• #
• #
• #
• #

Была ли эта статья полезной?

I am trying to duplicate a table row in Word, using VBA, without using the Selection object or the clipboard. That is, I want a new row that has the same content as an existing row.

To do this, I first create a new (empty) row, and loop through each cell in the source row and copy its contents into the corresponding cell in the target row.

To copy each cell, I get a Range object that references the entire content of the source cell, and an equivalent Range for the target cell, and then do this:

oToRange.FormattedText = oFromRange.FormattedText

This works well on Office 2003, and also works most of the time on Office 2010. However, I am having a real problem with one particular scenario. I have (greatly) simplified that scenario to demonstrate the core of the problem.

In the picture below, there are two cells in the outer (grey) 2R x 1C table. The second row is the row to be copied. The first row is the new row I created, and into which I want to copy the content of the second row.

You’ll notice that the second row contains a nested table.

When I run the code below in Word 2003, it works perfectly, and I get the following result:

But, in Word 2010, the same code produces this result:

As you can see, the cell content has been inserted before (and outside) the target table cell.

It’s worth mentioning that if I put something after the nested table, so that it’s no longer the last thing in the source cell, then this problem does not occur.

Here’s the full VBA code I’m using:

Dim oDoc As Word.Document
Set oDoc = ThisDocument

Dim oFromRange As Range
Set oFromRange = ThisDocument.Tables(1).Cell(2, 1).Range
oFromRange.End = oFromRange.End - 1

Dim oToRange As Range
Set oToRange = ThisDocument.Tables(1).Cell(1, 1).Range
oToRange.End = oToRange.End - 1

oToRange.FormattedText = oFromRange.FormattedText

NOTE: the adjustment to the end of the source and target ranges is necessary because Cell.Range includes the end-of-cell marker, and I don’t want to copy that.

What can I do to persuade it to put the content inside the target cell (like Word 2003 does), rather than before it?

Я пытаюсь скопировать строку таблицы в Word, используя VBA, без использования объекта выделения или буфера обмена. То есть я хочу новую строку, которая имеет то же содержание, что и существующая строка.

Для этого я сначала создаю новую (пустую) строку, перебираю каждую ячейку исходной строки и копирую ее содержимое в соответствующую ячейку целевой строки.

Чтобы скопировать каждую ячейку, Я получаю объект Range, который ссылается на все содержимое исходной ячейки, и эквивалент Range для целевой ячейки, а затем сделайте следующее:

oToRange.FormattedText = oFromRange.FormattedText

Это хорошо работает в Office 2003, а также работает большую часть времени в Office 2010. Однако у меня есть реальная проблема с одним конкретным сценарием. Я (значительно) упростил этот сценарий, чтобы продемонстрировать суть проблемы.

На рисунке ниже, есть две ячейки во внешней (серой) таблице 2R x 1C. Вторая строка-это строка, которую нужно скопировать. Первая строка-это новая строка, которую я создал и в которую я хочу скопировать содержание второго ряда.

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

Когда я запускаю приведенный ниже код в Word 2003, он отлично работает, и я получаю следующий результат:

Но в Word 2010 тот же код приводит к следующему результату:

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

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

Вот полный код VBA, который я использую:

Dim oDoc As Word.Document

Set oDoc = ThisDocument


Dim oFromRange As Range

Set oFromRange = ThisDocument.Tables(1).Cell(2, 1).Range

oFromRange.End = oFromRange.End - 1


Dim oToRange As Range

Set oToRange = ThisDocument.Tables(1).Cell(1, 1).Range

oToRange.End = oToRange.End - 1


oToRange.FormattedText = oFromRange.FormattedText

Примечание: корректировка до конца исходного и целевого диапазонов необходима, потому что Cell.Range включает маркер конца ячейки, и я не хочу его копировать.

Что я могу сделать, чтобы убедить его поместить содержимое внутрь целевой ячейки (как это делает Word 2003), а не раньше это?