Vba word range скопировать содержимое
в противном случае, это будет легко сделать выбор.Копирование и выделение.Методы вставки.
Я, наконец, решил скопировать слово в слово. FormattedText, казалось, работал довольно хорошо, до последнего слова (некоторые специальные (очевидно) символы), где внезапно ячейка, которую я только что заполнил скопированным контентом, станет пустой. Когда я увеличивал количество ячеек, появлялись другие ошибки во время выполнения, например, ваша таблица была повреждена, и другие неоднозначные. Так или иначе, исходная ячейка, из которой я копировал, всегда, казалось, имела эти своеобразные символы в конце с кодами ASCII 13 и 7. Я знаю что значит 13, но 7? В любом случае, я решил скопировать все, кроме этого последнего символа с кодом 7. Кажется, это работает нормально. Форматирование и поля копируются. В любом случае, вся эта история еще раз доказала мне, что программирование в VBA-это в основном занятие методом проб и ошибок. Никогда не знаешь, когда что-то может сломаться.. если только я не пропустил обновление некоторых важных концепций..
вот фрагменты кода, который я использовал. Идея в том, что сначала у нас есть документ с одна таблица ячеек 1x1 с некоторым содержимым rich text. В первом фрагменте кода (внутри макроса) я умножаю ячейки:
во второй части макроса я заполняю каждую пустую ячейку содержимым первой ячейки:
вот изображения документа Word, о котором идет речь. Первое изображение перед запуском макроса, второе-между первым куском кода и последним, в то время как третье изображение является результатом документ.
это не всегда работает, с текстовые поля, диаграммы, например, или, если вам нужно скопировать его в другой документ, но это хорошо для копирования простого форматированного текста внутри одного документа.
скопировать весь документ в новый документ следующим образом:
я столкнулся с аналогичной проблемой. Я хотел скопировать таблицу из одного документа word в другой с помощью Powershell без использования буфера обмена. Поскольку пользователь, использующий компьютер во время выполнения сценария, может сломать сценарий с помощью буфера обмена. Решение я придумал:
- откройте исходный документ и поместите закладку, охватывающую диапазон того, что я хотел (в моем случае одну таблицу).
- сохраните исходный документ с закладкой в другом месте (чтобы избежать изменение исходного документа).
- открыл целевой документ и создал объект диапазона для того, где я хотел разместить таблицу.
- используется range.InsertFile с первым параметром исходного файла с моей закладкой и вторым параметром моего имени закладки. Эта единственная операция вытянула всю таблицу плюс исходное форматирование непосредственно в целевой документ.
затем я добавил код, основанный на том, где была сделана вставка и сколько дольше история должна была выбрать вставленную таблицу, чтобы разрешить дальнейшие операции над ней.
Я пробовал много других методов для перемещения таблицы, и это было намного лучше. Извините, я не могу предоставить код VBA для этого решения.
в Office 2007+ VSTO вы можете экспортировать блок с помощью
используйте свойство Text объекта Selection, чтобы поместить данные в строковую переменную, а не в буфер обмена:
Dim strTemp как строка
затем вы можете вставить текст, хранящийся в переменной в другом месте по мере необходимости.
Доброй ночи. Открывал уже подобную тему, но не одного совета не последовало. Пробую снова.
Приложенный файл является типичным внутренним документом организации.
Пытаюсь написать макрос для копирование содержимого столбцов: наименование основных материалов, единица измерения, подлежит отпуску. на лист экселя в столбцы с аналогичными наименованиями.
Подскажите как правильно обратиться к ячейкам таблицы ворд?
Каким образом можно задать диапазон копирования(не пустые ячейки)?
Помощь в написании контрольных, курсовых и дипломных работ здесь
Макрос для копирование данных из таблицы word на лист excel
Доброго дня. Прошу помощи в написание макроса для извлечение необходимых данных из таблицы word и.
Копирование таблицы из Word в Excel
Всем доброго времени суток! Прошу помочь со скриптом. Нужно следующее: 1) Есть файл doc или.
Копирование таблицы из excel в word
Добрый день! Необходимо копировать таблицу из Excel в файл ворд, шаблон файла ворд я сделал.
пытаюсь определить последнюю пустую ячейку таким вот перебором, но меня не понимают)
Спасибо большое. Все сработало. Но появилась другая проблема.
Как вставить в таблицу эксель копированные ячейки, но что бы сохранилось форматирование текущей таблицы.
Вот мой код вставки. Но он переносит так же форатирование: и шрифт, и границы таблицы и пр.
Приложите два файла, откуда копируем и куда с описанием, что должно получиться и из какого файла запускается процедура. Двумя файлами не обойтись. Сбрасываю архив. В файле "журнал заказ-нарядов" ед. форма. Запускаете (активным должен быть лист "журнал. " Выбираете статью, далее заказ-наряд и содержимое лимитной карты должно улететь на лист "Лимитные карты". Улетает, но не красиво. От этого и хочется избавиться. Спасибо. Запускаете (активным должен быть лист "журнал. " Выбираете статью, далее заказ-наряд и содержимое лимитной карты должно улететь на лист "Лимитные карты". Улетает Ничего не происходит. Сможете воспроизвести проблему на двух файлах? В таком довольно большом проекте разбираться и вникать долго, тут я не смогу помочь. Попробуйте выбрать статья :26/11.1 Общезаводская; заказ-наряд 6/26-17.
Но проблема же не в работе кода. А в выборе правильного режима вставки информации из буфера обмена.
Мне достаточно будет общего примера.
Спасибо. Попробуйте выбрать статья :26/11.1 Общезаводская; заказ-наряд 6/26-17. Ничего не происходит. Если Вам понятна логика работы данного проекта, то для других она не интуитивно-понятна. У меня не получается увидеть проблему, тут я пас.
Я бы пошел другим путем, без использования буфера обмена, через переменную. Так лишнее форматирование не передаётся.
у вас даже порядок столбцов не совпадает, копи-вставка явно не годится
'''''''word
'' № п / п
'' СОДЕРЖАНИЕ РАБОТ
'' Ед. изм.
'' К -во
'' Цех
'' Специальность
'' Н/ч
'''''''excel
'Номер п / п
'Статья
'Заказ -наряд
'Наименование основных материалов
'Единица измерения
'Количество
'Счет
'Категория
Нет все верно. В ворде интересует только:Наименование основных материалов, Единица измерения, Подлежит отпуску.
Те же самые столбцы есть на листе "Лимитные карты" экселя.
Вопрос совершенно не в этом.
Я прошу помощи в описании вставки из буфера в таблицу экселя.
Я бы пошел другим путем, без использования буфера обмена, через переменную. Так лишнее форматирование не передаётся. Я поэтому и не хотел выкладывать весь проект, а только озвучил проблему и свои попытки ее решить.
Вы предлагаете, например, сформировать массив из данных таблицы ворда, а далее прогулявшись по ячейкам экселя циклом все вставить?)) Все равно вставляется с вордовским форматированием.
Спасибо. Возник большой вопрос: Возможно ли вставлять не через буфер обмена, а через объект range:
но на меня ругаются. Видно я не правильно понимаю range и как извлекать данные из него. Но я дилетант и с этим не спорю.
Пошел наверно самым длинным, в смысле кода путем, но все в результате получается красиво)
Некорректное копирование таблицы из Word-а в Excel
Некорректное копирование таблицы из Word-а в Excel. Например при копировании ячейки в Word .
Копирование таблицы из Word (специальная вставка) в Excel
Добрый день есть bat файл с таким содержанием. @ECHO ON setlocal enabledelayedexpansion for %%f.
Копирование таблицы из Excel в Word средствами VBA
Добрый день! Прошу помощь зала. Вставляю в Word таблицу из Excel методом PasteExcelTable. Задача.
Копирование содержимого ячейки таблицы Excel в закладку Word
Задача. Нужно скопировать значение ячейки (например А1) в документ word в определенное место. Место.
Добавление срок в таблицу Word при заполнении документа Word из данных Excel
Всем привет! Я новичок в этом деле и нужна помощь. Есть таблица Excel с данными на основании.
Копирование данных из Excel в Word
Какой код написать, чтобы данные из строки Excel вставились в одну ячейку Word. Чтобы было так: .
Функция записи макросов Excel используется не столько для создания хорошего кода, сколько для поиска названий необходимых объектов, методов и свойств. Например, при записи операции копирования и вставки можно получить код:
Sub Макрос()
Range( " A1 " ).Select
Selection.Copy
Range( " B1 " ).Select
ActiveSheet.Paste
End Sub
Обратите внимание, что данная программа выделяет ячейки. Однако в VBA для работы с объектом не обязательно его выделять. Данную процедуру можно заменить значительно более простой — применить метод Сору, который использует аргумент, представляющий адрес места вставки копируемого диапазона.
Sub CopyRange()
Range( " А1 " ).Copy Range( " В1 " )
End Sub
Предполагается, что рабочий лист является активным и операция выполняется на активном рабочем листе. Чтобы скопировать диапазон на другой рабочий лист или в другую книгу, необходимо задать ссылку:
Sub CopyRange2()
Workbooks( " File1.xlsx " ).Sheets( " Лист1 " ).Range( " A1 " ).Copy _
Workbooks( " File2.xlsx " ).Sheets( " Лист2 " ).Range( " A1 " )
End Sub
Еще одним подходом к решению этой задачи является использование для представления диапазонов объектных переменных:
Sub CopyRange3()
Dim Rngl As Range, Rng2 As Range
Set Rngl = Workbooks( " File1.xlsx " ).Sheets( " Лист1 " ).Range( " A1 " )
Set Rng2 = Workbooks( " File2.xlsx " ).Sheets( " Лист2 " ).Range( " A1 " )
Rngl.Copy Rng2 End Sub
Можно копировать большой диапазон. Адрес места вставки определяется единственной ячейкой (представляющей верхний левый угол вставляемого диапазона):
Sub CopyRange4 ()
Range( " А1:С800 " ).Copy Range( " D1 " )
End Sub
Для перемещения диапазона ячеек вместо метода Сору используется метод Cut.
Если размер копируемого диапазона не известен используется свойство CurrentRegion, возвращающее объект Range, который соответствует прямоугольнику ячеек вокруг заданной ячейки:
Sub CopyCurrentRegion2()
Range( " A1 " ).CurrentRegion.Copy Sheets( " Лист2 " ).Range( " A1 " )
End Sub
Метод End имеет один аргумент, определяющий направление, в котором увеличивается выделение ячеек. Следующий оператор выделяет диапазон от активной ячейки до последней непустой ячейки внизу:
Range (ActiveCell, ActiveCell.End(xlDown)).Select
Три остальные константы имитируют комбинации клавиш при выделении в других направлениях: xlUp (вверх), xlToLeft (влево) и xlToRight (вправо).
В прилагаемом Excel-файле определено несколько распространенных типов выделения ячеек (см. рис. 1). Код любопытен тем, что является также примером создания контекстного меню.
Запрос значения ячейки
Следующая процедура запрашивает значение у пользователя и вставляет его в ячейку А1:
Sub GetValuel()
Range( " A1 " ).Value = InputBox( " Введите значение " )
End Sub
Однако при выполнении этой процедуры возникает проблема. Если пользователь щелкнет на кнопке Отмена в окне ввода данных, то процедура удалит данные, которые находились в текущей ячейке. Модифицированная версия процедуры адекватно реагирует на щелчок на кнопке Отмена и не выполняет при этом никаких действий:
Sub GetValue2()
Dim UserEntry As Variant
UserEntry = InputBox( " Введите значение " )
If UserEntry <> " " Then Range( " A1 " ).Value = UserEntry
End Sub
Во многих случаях следует проверить правильность данных, введенных пользователем. Например, необходимо обеспечить введение только чисел в диапазоне от 1 до 12 (рис. 2). Это можно сделать при помощи процедуры GetValue3(), код которой приведен в Модуле1 приложенного Excel-файла. Некорректные данные игнорируются, и окно запроса значения отображается снова. Этот цикл будет повторяться, пока пользователь не введет правильное значение или не щелкнет на кнопке Отмена.
Рис. 2. Проверка данных, введенных пользователем
Ввод значения в следующую пустую ячейку
Если требуется ввести значение в следующую пустую ячейку столбца или строки, используйте код (рис. 3):
Sub GetData()
Dim NextRow As Long
Dim Entry1 As String, Entry2 As String
Do
' Определение следующей пустой строки
NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
' Запрос данных
Entry1 = InputBox( " Введите имя " )
If Entry1 = " " Then Exit Sub
Entry2 = InputBox( " Введите сумму " )
If Entry2 = " " Then Exit Sub
' Запись данных
Cells(NextRow, 1) = Entry1
Cells(NextRow, 2) = Entry2
Loop
End Sub
Рис. 3. Макрос вставляет данные в следующую пустую строку рабочего листа
Это бесконечный цикл. Для выхода из него (щелкните на кнопке Cancel) использовались операторы Exit Sub. Обратите внимание строку, в который определяется значение переменной NextRow. Если вам трудно ее понять, проанализируйте содержимое ячейки: перейдите в последнюю ячейку столбца А и нажмите <End> и <↑>. После этого будет выделена последняя непустая ячейка в столбце А. Свойство Row возвращает номер этой строки; чтобы получить расположенную под ней строку (следующую пустую строку), к этому номеру прибавляется 1.
Приостановка работы макроса для определения диапазона пользователем
В некоторых ситуациях макрос должен взаимодействовать с пользователем. Например, можно создать макрос, который приостанавливается, когда пользователь указывает диапазон ячеек. Для этого воспользуйтесь функцией Excel InputBox. Не путайте метод Excel InputBox с функцией VBA InputBox. Несмотря на идентичность названий, это далеко не одно и то же.
Процедура, представленная ниже, демонстрирует, как приостановить макрос и разрешить пользователю выбрать ячейку. Затем автоматически формула вставляется в каждую ячейку выделенного диапазона.
Sub GetUserRange()
Dim UserRange As Range
Prompt = " Выберите диапазон для случайных чисел. "
Title = " Выбор диапазона "
' Отображение поля ввода
On Error Resume Next
Set UserRange = Application.InputBox( _
Prompt:=Prompt, _
Title:=Title, _
Default:=ActiveCell.Address, _
Type:=8) ' Выделение диапазона
On Error GoTo 0
' Отменено ли отображение поля ввода?
If UserRange Is Nothing Then
MsgBox " Отменено. "
Else
UserRange.Formula = " =RAND() "
End If
End Sub
Окно ввода данных показано на рис. 4. Важный момент в этой процедуре – определение аргумента Туре равным 8 (в этом случае InputBox вернет диапазон; подробнее см. Application.InputBox Method).
Рис. 4. Использование окна ввода данных с целью приостановки выполнения макроса
Обязательно проверьте, включено ли обновление экрана при использовании метода InputBox для выделения диапазона. Если обновление экрана отключено, вы не сможете выделить рабочий лист. Чтобы проконтролировать обновление экрана, в процессе выполнения макроса используйте свойство ScreenUpdating объекта Application.
Подсчет выделенных ячеек
Если активный лист содержит диапазон data, то следующий оператор присваивает количество ячеек в диапазоне data переменной с названием CellCount:
CellCount = Range( " data " ).Count
Вы можете также определить, сколько строк или столбцов содержится в диапазоне. Следующее выражение вычисляет количество столбцов в выделенном диапазоне:
Следующий оператор пересчитывает количество строк в диапазоне с названием data и присваивает это количество переменной RowCount.
RowCount = Range( " data " ).Rows.Count
Просмотр выделенного диапазона
Вы можете столкнуться с трудностями при создании макроса, который оценивает каждую ячейку в диапазоне и выполняет операцию, определенную заданному критерию. Если выделен целый столбец или строка, то работа макроса может занять много времени. Процедура ColorNegative устанавливает красный цвет для ячеек, которые содержат отрицательные значения. Цвет фона для других ячеек не определяется. Код процедуры можно найти в Модуле4 приложенного Excel-файла.
Усовершенствованная процедура ColorNegative2, создает объектную переменную WorkRange типа Range, которая представляет собой пересечение выделенного диапазона и диапазона рабочего листа (рис. 5). Если выделить столбец F (1048576 ячеек), то его пересечение с рабочим диапазоном В2:I16) даст область F2:F16, которая намного меньше исходного выделенного диапазона. Время, затрачиваемое на обработку 15 ячеек, намного меньше времени, уходящего на обработку миллиона ячеек.
Рис. 5. В результате пересечения используемого диапазона и выделенного диапазона рабочего листа уменьшается количество обрабатываемых ячеек
И всё же процедура ColorNegative2 недостаточно эффективна, поскольку обрабатывает все ячейки в диапазоне. Поэтому предлагается процедура ColorNegative3. В ней используется метод SpecialCells, с помощью которого генерируются два поднабора выделенной области: один поднабор (ConstantCells) включает ячейки, которые содержат исключительно числовые константы; второй поднабор (FormulaCells) включает ячейки, содержащие числовые формулы. Обработка ячеек в этих поднаборах осуществляется с помощью двух конструкций For Each-Next. Благодаря тому, что исключается обработка пустых и нетекстовых ячеек, скорость выполнения макроса существенно увеличивается.
Sub ColorNegative3()
' Окрашивание ячеек с отрицательными значениями в красный цвет
Dim FormulaCells As Range, ConstantCells As Range
Dim cell As Range
If TypeName(Selection) <> " Range " Then Exit Sub
Application.ScreenUpdating = False
' Создание поднаборов исходной выделенной области
On Error Resume Next
Set FormulaCells = Selection.SpecialCells(xlFormulas, xlNumbers)
Set ConstantCells = Selection.SpecialCells(xlConstants, xlNumbers)
On Error GoTo 0
' Обработка ячеек с формулами
If Not FormulaCells Is Nothing Then
For Each cell In FormulaCells
If cell.Value < 0 Then
cell.Interior.Color = RGB(255, 0, 0)
Else
cell.Interior.Color = xlNone
End If
Next cell
End If
' Обработка ячеек с константами
If Not ConstantCells Is Nothing Then
For Each cell In ConstantCells
If cell.Value < 0 Then
cell.Interior.Color = RGB(255, 0, 0)
Else
cell.Interior.Color = xlNone
End If
Next cell
End If
End Sub
Оператор On Error необходим, поскольку метод SpecialCells генерирует ошибку, если не находит в диапазоне ячеек указанного типа.
Удаление всех пустых строк
Следующая процедура удаляет все пустые строки в активном рабочем листе. Она достаточно эффективна, так как не проверяет все без исключения строки, а просматривает только строки в так называемом «используемом диапазоне», определяемом с помощью свойства UsedRange объекта Worksheet.
Первый шаг — определить последнюю используемую строку и присвоить этот номер строки переменной LastRow. Это не так просто, как можно ожидать, поскольку текущий диапазон необязательно начинается со строки 1. Следовательно, значение LastRow вычисляется таким образом: к найденному количеству строк используемого диапазона прибавляется номер первой строки текущего диапазона и вычитается 1.
В процедуре применена функция Excel СЧЁТЗ, определяющая, является ли строка пустой. Если данная функция для конкретной строки возвращает 0, то эта строка пустая. Обратите внимание, что процедура просматривает строки снизу вверх и использует отрицательное значение шага в цикле For-Next. Это необходимо, поскольку при удалении все последующие строки перемещаются «вверх» в рабочем листе. Если бы в цикле просмотр выполнялся сверху вниз, то значение счетчика цикла после удаления строки оказалось бы неправильным.
Дублирование строк
Пример, рассматриваемый в этом разделе, демонстрирует использование возможностей VBA для создания дубликатов строк. На рис. 6 показан пример рабочего листа, используемого организаторами лотереи. В столбце А вводится имя. В столбце В содержится количество лотерейных билетов, приобретенных одним покупателем. В столбце С находится случайное число сгенерированное с помощью функции СЛЧИС. Победитель определяется путем сортировки данных в третьем столбце (выигрыш соответствует наибольшему случайному числу).
Рис. 6. Дублирование строк на основе значений в столбце В
А теперь нужно продублировать строки, в результате чего количество строк для каждого участника лотереи будут соответствовать количеству купленных им билетов. Например, если Барбара приобрела два билета, для нее создаются две строки. Ниже показана процедура, выполняющая вставку новых строк.
Объектная переменная cell была инициализирована ячейкой В2, первой ячейкой, в которой находится числовая величина. Вставка новых строк осуществляется в цикле, а их копирование происходит с помощью метода FillDown. Значение переменной cell увеличивается на единицу, после чего выбирается следующий участник лотереи, Цикл выполняется до тех пор, пока не встретится пустая ячейка. На рис. 7 показан рабочий лист после выполнения этой процедуры.
Рис. 7. В соответствии со значением в столбце В добавлены новые строки
Определение диапазона, находящегося в другом диапазоне
Функция InRange имеет два аргумента, оба — объекты Range. Функция возвращает значение True (Истина), если первый диапазон содержится во втором.
Возможно, функция InRange кажется сложнее, чем того требует ситуация, поскольку в коде должна быть реализована проверка принадлежности двух диапазонов одной и той же книге и рабочему листу. Обратите внимание, что в процедуре используется свойство Parent, которое возвращает объект-контейнер заданного объекта. Например, следующее выражение возвращает название листа для объекта rng1:
Следующее выражение возвращает название рабочей книги rng1:
Функция VBA Union возвращает объект Range, который представляет собой объединение двух объектов типа Range. Объединение содержит все ячейки, относящиеся к исходным диапазонам. Если адрес объединения двух диапазонов совпадает с адресом второго диапазона, первый диапазон входит в состав второго диапазона.
Определение типа данных ячейки
В состав Excel входит ряд встроенных функций, которые могут помочь определить тип данных, содержащихся в ячейке. Это функции ЕНЕТЕКСТ, ЕЛОГИЧ и ЕОШИБКА. Кроме того, VBA поддерживает функции IsEmpty, IsDate и IsNumeric.
Ниже описана функция CellType, которая принимает аргумент-диапазон и возвращает строку, описывающую тип данных левой верхней ячейки этого диапазона (рис. 8). Такую функцию можно использовать в формуле рабочего листа или вызвать из другой процедуры VBA.
Рис. 8. Функция CellType, возвращающая тип данных ячейки
Function CellType(Rng)
' Возвращает тип ячейки, находящейся в левом верхнем углу диапазона
Dim TheCell As Range
Set TheCell = Rng.Range( " A1 " )
Select Case True
Case IsEmpty(TheCell)
CellType = " Пустая "
Case TheCell.NumberFormat = " @ "
CellType = " Текст "
Case Application.IsText(TheCell)
CellType = " Текст "
Case Application.IsLogical(TheCell)
CellType = " Логический "
Case Application.IsErr(TheCell)
CellType = " Ошибка "
Case IsDate(TheCell)
CellType = " Дата "
Case InStr(1, TheCell.Text, " : " ) <> 0
CellType = " Время "
Case IsNumeric(TheCell)
CellType = " Число "
End Select
End Function
Обратите внимание на использование оператора SetTheCell. Функция CellType получает аргумент-диапазон произвольного размера, но этот оператор указывает, что функция оперирует только левой верхней ячейкой диапазона (представленной переменной TheCell).
Я не использовал VB в течение многих лет, поэтому, пожалуйста, простите меня, если это окажется очевидным. Я пытаюсь написать макрос Word vba для использования в шаблоне, который будет отображать пользовательскую форму, а затем импортировать содержимое fileA.docx, fileB.docx или fileC.docx в зависимости от пользовательской формы. (После этого я собираюсь использовать закладки для заполнения некоторых данных формы, не знаю, насколько это актуально). Файлы A, B и C будут содержать текст с некоторым базовым форматированием, таким как списки, но ничего особенного.
Решения, которые я видел в Интернете, могут копировать содержимое файла в новый файл, но в идеале я хотел бы импортировать весь один из этих файлов в новый, в настоящее время безымянный файл, который я получаю из шаблона. Я думаю, что у меня возникают проблемы с переключением выделения на один из этих файлов, а затем обратно на новый безымянный документ, хотя я мог бы использовать руку, чтобы убедиться, что я тоже правильно копирую.
Обновление: я делал вещи слишком сложно, хотя ответы здесь заставили меня указать правильное направление (спасибо!). В конце концов я просто сделал
что дает мне сырой дамп всего, что я хотел.
Используя такие команды, вы можете переключаться между тем, какой документ вы используете, и копировать и вставлять элементы:
Вы можете вставлять, копировать и вставлять вещи в и из документов, используя команды копирования.
Затем вы можете пойти и отформатировать такие, или скопировать и вставить их с оригинальным форматированием из ранее.
- начать в исходном документе
- нажмите Ctrl-A, чтобы выбрать все
- нажмите Ctrl-C, чтобы скопировать его в буфер обмена
- переключиться на целевой документ
- нажмите Ctrl-V, чтобы вставить в документ
- остановить запись
или (при условии, что Word 2007 или более поздняя версия)
- начать в целевом документе с закрытым исходным документом
- на ленте нажмите вставить> объект> текст из файла .
- перейти к исходному документу
- нажмите кнопку вставки
- остановить запись
Я предпочитаю вторую версию, поэтому я должен был поставить ее первой
Вот существенное улучшение (я думаю), которое вы захотите включить, потому что оно:
- не использует буфер обмена и, следовательно, не делает ваш макрос уязвимым для пользователя, изменяющего содержимое буфера обмена во время работы макроса
- не использует файл и, таким образом, значительно повышает скорость за счет исключения операций ввода-вывода и исключает возможность необходимости иметь дело с безопасностью/разрешениями файловой системы и т. д. Пожалуйста, не используйте .InsertFile (), если вы просматриваете документы, вы замедляете работу себя вниз. Используйте его один раз, в конце - только если вам нужно. В приведенном ниже примере показано, как добиться того же результата без использования .InsertFile ()
Идея состоит в том, чтобы перенести некоторую часть текста, найденного в 1 исходном документе, в конечный документ, отличный от исходного, и сохранить исходное форматирование.
Для этого (пропустить код для открытия документов):
Я делал то же самое, пытался выбрать другой документ, скопировать и вставить. Но это не сработало (я получил ошибку, вероятно, из-за того, что какое-то другое приложение использовало буфер обмена, но я не уверен.). Поэтому я немного поискал и нашел идеальное решение для Microsoft Dev Center.
Читайте также: