Энтони регулярно импортирует несколько отчетов в текстовых файлах (например, filename.txt) в Word. Затем он использует макросы для форматирования этой импортированной информации. После завершения макроса форматирования Энтони вручную использует «Сохранить как» для каждого отчета, чтобы сохранить его как документ Word. Ему интересно, какие команды он должен добавить в свой макрос, чтобы автоматизировать последний шаг сохранения данных. Энтони хотел бы, чтобы макрос сохранял файл с тем же корневым именем, что и исходный текстовый файл, только изменив его на формат Word, как в filename.docx.

Действия по сохранению файла относительно просты. Рассмотрим следующий фрагмент кода, который сохраняет документ в формате Word:

ActiveDocument.SaveAs FileName:=sDocName, _   FileFormat:=wdFormatDocument

Имя файла сохраняется в переменной sDocName, а настройка свойства FileFormat указывает, что вы хотите сохранить документ в формате Word. В существующем макросе остается только настроить sDocName с желаемым именем файла.

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

sDocName = Left(sOrigName, Len(sOrigName) - 4)

sDocName = sDocName & ".docx"

ActiveDocument.SaveAs FileName:=sDocName, _   FileFormat:=wdFormatDocument

Код предполагает, что последние четыре символа sOrigName содержат расширение имени файла (точка плюс три символа). Они удалены и добавлено расширение «.docx». Если вы не уверены, какой длины будет расширение имени файла для исходного файла, вы можете положиться на функцию Split, чтобы при желании разделить его:

sNameParts = Split(sOrigName, ".")

sDocName = sNameParts(0) & ".docx"

ActiveDocument.SaveAs FileName:=sDocName, _   FileFormat:=wdFormatDocument

Чтобы этот макрос работал, убедитесь, что вы объявили sNameParts как строковый массив.

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (404) применим к Microsoft Word 2007, 2010, 2013 и 2016. Вы можете найти версию этого совета для более старого интерфейса меню Word здесь:

link: / word-Saving_in_Document_Format_from_a_Macro [Сохранение в формате документа из макроса].