В этом пost, мы рады предоставить вам 2 быстрых и полезных способа предотвратить изменение общих файлов шаблонов Word.
В компании или бизнес-организации принято загружать общие файлы в общедоступную папку, включая некоторые документы Word, чтобы каждый мог получить к ним доступ. Иногда эти файлы шаблонов не требуют изменений. Однако это случается, когда некоторые люди случайно изменяют и сохраняют шаблон. Поэтому вам, возможно, придется следить за этой ситуацией и постоянно заменять измененный шаблон исходным. 
Безусловно, эта работа требует много времени и усилий. Итак, мы предлагаем вам макро способ выполнения задачи.
Способ 1: запретить изменение определенного файла шаблона Word
Этот макрос найдет и проверит, был ли файл шаблона изменен в соответствии с временем его последнего изменения. Если время шаблона не совпадает со временем его исходной копии, то он будет заменен последним.
- Сначала откройте Word и нажмите «Alt + F11», чтобы открыть редактор VBA.
- Затем в «Обычном» проекте нажмите вкладку «Вставить» в строке меню.
- Затем выберите «Модуль» в раскрывающемся меню.
- Откройте область редактирования модуля двойным щелчком мыши.
- И вставьте туда следующие коды:
Sub CheckAndReplaceTheModifiedFile() Dim strSharedFile As String Dim strSharedFilePath As String Dim strSharedFileName As String Dim strOriginalFile As String ' Измените путь как фактический путь исходного файла шаблона. strOriginalFile = "C:\test\Doc1.docx" ' Измените путь как фактический путь к общему файлу, который будет проверен. strSharedFile = "C:\Users\общая папка\Doc1.docx" strSharedFilePath = Left(strSharedFile, InStrRev(strSharedFile, "\")) strSharedFileName = Right(strSharedFile, Len(strSharedFile) - InStrRev(strSharedFile, "\")) Если FileDateTime(strSharedFile) <> FileDateTime(strOriginalFile) Then nReturnValue = MsgBox("Файл: " & strSharedFileName & " в общей папке был изменен, вы хотите заменить его исходным файлом?", 4) Если nReturnValue = 6 Затем Kill strSharedFile FileCopy strOriginalFile, strSharedFilePath & strSharedFileName MsgBox («Файл: " & strSharedFileName & " был заменен исходным файлом") End If End If End Sub
- Теперь вам нужно внести изменения в этот макрос.
- Сначала замените путь к файлу в следующей строке кода фактическим адресом вашего неизменного исходного файла:
strOriginalFile = "C:\Users\Public\Documents\Sample\Test 1\DWORDR.docx"
- Во-вторых, замените путь в следующей строке фактическим файлом вашего шаблона в общей папке:
strSharedFile = "C:\Users\Public\Documents\Sample\Shared Folder\DWORDR.docx"
- После этого нажмите «Выполнить» или нажмите «F5».
- Затем появляется окно подтверждения с вопросом, хотите ли вы заменить измененный файл. Нажмите «Да» или «Нет» соответственно.
- И когда замена сделана, появляется окно результата:
Способ 2: запретить изменение нескольких шаблонов
- Прежде всего, вставьте в новый документ таблицу с двумя столбцами и несколькими строками. В первом столбце введите пути к шаблонам в общей папке. А во второй столбец введите адреса неизмененных файлов.
- Затем выполните описанные выше шаги, чтобы установить и запустить макрос.
- Не забудьте заменить макрос на этот:
Sub CheckAndReplaceMultipleModifiedFiles() Dim objTable As Table Dim objSharedFile As Cell Dim objSharedFileRange As Range Dim objOriginalFileRange As Range Dim nRowNumber As Integer Dim strSharedFile As String Dim strOriginalFile As String Set objTable = ActiveDocument.Tables(1) nRowNumber = 1 Для каждого объекта objTable jSharedFile в objTable. Columns(1).Cells Set objSharedFileRange = objSharedFile.Range objSharedFileRange.MoveEnd Unit:=wdCharacter, Count:=-1 Set objOriginalFileRange = objTable.Cell(nRowNumber, 2).Range objOriginalFileRange.MoveEnd Unit:=wdCharacter, Count:=- 1 If objSharedFileRange.Text <> "" Then strSharedFile = objSharedFileRange.Text strOriginalFile = objOriginalFileRange.Text Вызов CheckAndReplaceTheModifiedFileInTableList(strSharedFile, strOriginalFile) End If nRowNumber = nRowNumber + 1 Next End Sub Sub CheckAndReplaceTheModifiedFileInTableList (strSharedFile, strOriginalFile) Dim strSharedFilePath As String Dim strSharedFileName As String strSharedFilePath = Left(strSharedFile, InStrRev(strSharedFile, "\")) strSharedFileName = Right(strSharedFile, Len(strSharedFile) - InStrRev(strSharedFile, "\")) If FileDateTime(strSharedFile) <> FileDateTime(strOriginalFile) Then Kill strSharedFile FileCopy strOriginalFile, strSharedFilePath & strSharedFileName MsgBox ("Файл: " & strSharedFileName & " был заменен исходным файлом") End If End Sub
- Если есть заменяемые файлы, вы получите окно сообщения, как показано в способе 1.
Часто проверяйте свои резервные копии
Резервные копии могут быть отличным подспорьем во время катастрофы с данными. Разумеется, мы имеем в виду действительные резервные копии. Бывают случаи, когда вы прибегаете к резервным копиям, но только для того, чтобы обнаружить, что они каким-то образом повреждены. Поэтому вам нужно потратить время, чтобы проверить, являются ли ваши резервные копии надежными и неповрежденными. В противном случае вам понадобится инструмент для восстановить документ когда происходит потеря данных.
Об авторе:
Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный xls и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com
Оставьте комментарий