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

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

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

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

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

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

sDocName = sDocName & ".doc"

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

Код предполагает, что последние четыре символа sOrigName содержат расширение имени файла (точка плюс три символа). Они удалены и добавлено расширение «.doc».

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (427) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

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