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

Следующий код показывает этот процесс:

Open "MyFile.Dat" For Append As #1 For J = 1 to NewValues     Print #1, UserVals(OrigVals + J)

Next J Close #1

Когда файл открывается в режиме добавления, любая новая информация добавляется в конец файла, не нарушая существующее содержимое.

Однако убедитесь, что вы используете это только для текстовых файлов, не являющихся документами. Если вы попытаетесь сделать это с файлом документа (то есть вы измените «MyFile.Dat» на что-то вроде «MyFile.Doc», и это уже существующий файл документа), то существует очень реальная вероятность того, что документ будет поврежден, и вы больше не сможет читать в Word.

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

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

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

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

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

link: / word-Appending_to_a_Non-Document_Text_File [Добавление к текстовому файлу без документов].