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

Самый простой способ выполнить такое копирование — использовать макрос.

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

Sub CopyTables()

Dim Source As Document     Dim Target As Document     Dim tbl As Table     Dim tr As Range

Set Source = ActiveDocument     Set Target = Documents.Add

For Each tbl In Source.Tables         Set tr = Target.Range         tr.Collapse wdCollapseEnd         tr.FormattedText = tbl.Range.FormattedText         tr.Collapse wdCollapseEnd         tr.Text = vbCrLf     Next End Sub

После запуска макрос создает совершенно новый документ (Target) и копирует таблицы из исходного документа (Source) в новый. (Исходный документ — это тот документ, который был активен при запуске макроса.)

Макрос помещает пустую строку между каждой таблицей в целевом документе.

Если вам не нужна пустая строка, удалите или закомментируйте строку непосредственно перед оператором Next.

_Примечание: _

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

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (13338) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365.