Копирование всех открытых документов Word одновременно

Когда у вас открыто несколько документов Word, может понадобиться скопировать их в другую папку — например, для резервного копирования, обмена, загрузки в облачное хранилище, переноса на другой компьютер или прикрепления к электронным письмам. Хотя Word не предлагает прямой команды для одновременного копирования всех открытых документов, существует несколько надёжных способов добиться этого.

В этом руководстве вы познакомитесь с тремя практичными методами: вручную сохранить каждый открытый документ в одну папку, использовать Kutools для Word, чтобы скопировать все открытые документы одним щелчком, или применить макрос VBA для автоматического копирования всех открытых и сохранённых файлов в выбранную вами папку.

• Метод 1: используйте «Сохранить как», чтобы сохранить каждый открытый документ в одну папку
• Метод 2: копируйте Все открытые документы одним щелчком с помощью Kutools для Word
• Метод 3: автоматически копируйте Все открытые документы с помощью VBA

Используйте «Сохранить как», чтобы сохранить каждый открытый документ в одну папку

Этот метод работает во всех версиях Word. Сначала сохраните каждый открытый документ в одну и ту же папку, а затем выделите все файлы в ней и скопируйте их вместе или прикрепите к одному письму.

Office Tab

Вкладки для Word, Excel, PowerPoint и других приложений — как в веб-браузере: удобно переключайтесь между ними в одном окне.

Бесплатно скачатьПодробнее

1. В Word перейдите к первому открытому документу.
2. Нажмите Файл>Сохранить как, затем выберите Обзор.

   

3. В окне «Сохранить как» перейдите в нужную папку. Убедитесь, что в адресной строке отображается имя папки, затем нажмите Сохранить.

   

4. Повторяйте те же действия для каждого открытого документа, каждый раз выбирая одну и ту же папку.
5. Когда закончите, откройте эту папку в Проводнике, нажмите Ctrl + A, чтобы выделить все файлы, затем щелкните правой кнопкой мыши и выберите Копировать.

   

Все выбранные документы успешно скопированы и готовы к вставке в новое место или прикреплению к электронному письму.

Копируйте Все открытые документы одним щелчком с помощью Kutools для Word

Если вам часто приходится копировать или собирать несколько открытых документов, Kutools для Word значительно сэкономит ваше время. Встроенный инструмент позволяет одним щелчком скопировать все текущие открытые документы в выбранную папку.

1. Откройте Word и убедитесь, что все документы, которые вы хотите скопировать, открыты и сохранены.
2. На вкладке KUTOOLS PLUSна Лента нажмите Ещё>Копировать все открытые файлы.

   

3. Появится диалоговое окно с подтверждением успешного копирования файлов. Нажмите ОК.

   

После нажатия Копировать все открытые файлы выбранные документы копируются в буфер обмена. Затем вы можете открыть любую целевую папку и нажать Ctrl + V, чтобы вставить их туда, или сразу вставить в окно электронного письма в качестве вложений.

Примечание:

Перед использованием этой функции убедитесь, что все открытые документы сохранены. Если какой-либо документ содержит несохранённые изменения, его копирование завершится неудачей. Kutools покажет список файлов, копирование которых не удалось, чтобы вы могли сохранить их и повторить попытку.

Автоматическое копирование Все открытые документы с помощью VBA

Если вы предпочитаете автоматизированный способ без надстроек, воспользуйтесь макросом VBA. Он копирует каждый открытый и сохранённый документ в выбранную вами папку. Файлы копируются напрямую из исходных расположений, поэтому открытые документы остаются неизменными.

1. В Word нажмите Alt + F11, чтобы открыть редактор VBA.
2. Нажмите Вставка>Модуль.

   

3. Вставьте приведённый ниже код в модуль.

   Option Explicit
   
   Sub CopyAllOpenDocuments()
   
       Dim doc As Document
       Dim destFolder As String
       Dim src As String, dst As String
       Dim fso As Object
       Dim count As Long
   
       With Application.FileDialog(msoFileDialogFolderPicker)
           If .Show <> -1 Then Exit Sub
           destFolder = .SelectedItems(1)
       End With
   
       If Right(destFolder, 1) <> "\" Then destFolder = destFolder & "\"
   
       Set fso = CreateObject("Scripting.FileSystemObject")
   
       For Each doc In Application.Documents
           If doc.Path <> "" Then
               src = doc.FullName
               dst = destFolder & doc.Name
   
               If LCase$(src) <> LCase$(dst) Then
                   fso.CopyFile src, dst, True
                   count = count + 1
               End If
           End If
       Next doc
   
       MsgBox count & " document(s) copied successfully.", vbInformation, "Kutools for Word"
   
   End Sub

4. Нажмите F5, чтобы запустить макрос.
5. Появится диалоговое окно выбора папки. Выберите целевую папку, в которую нужно скопировать открытые документы, и нажмите ОК.

   

6. Появится диалоговое окно с подтверждением, в котором отображается количество успешно скопированных документов.

   

Все подходящие открытые документы успешно скопированы в выбранную папку. Вы можете открыть её в любое время, чтобы просматривать, перемещать, загружать или прикреплять скопированные файлы по мере необходимости.

Какой метод выбрать

Заключение

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

Надеемся, это руководство оказалось полезным! Если вы хотите узнать ещё больше советов и практических решений для Word, перейдите по этой ссылке, чтобы ознакомиться с нашей полной коллекцией обучающих материалов по Word.