Бывают случаи, когда Ларри абсолютно необходимо создать четыре или более новых пустых документа. Он задается вопросом, есть ли способ создать четыре новых пустых документа (было бы неплохо ввести, сколько пустых документов нужно) одновременно.

Есть несколько способов решить эту проблему. Если все, что вам нужно сделать, это создать четыре новых документа, основанных на шаблоне Normal, самый простой способ — просто нажать Ctrl + N четыре раза. (На самом деле, вы можете, удерживая клавишу Ctrl, нажать N четыре раза.) Результатом являются четыре пустых документа, готовых к использованию.

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

Sub NewDocuments()

Dim Answer As Variant     Dim iNewDocs As Integer     Dim J As Integer

Answer = InputBox("How many new documents?")

iNewDocs = CInt(Answer)

For J = 1 to iNewDocs         Documents.Add Template:="BusinessReport", NewTemplate:=False, _           DocumentType:=wdNewBlankDocument     Next J End Sub

Макрос можно назначить сочетанию клавиш или кнопке на панели инструментов, готовой к созданию ваших документов. Вы также можете использовать немного другой подход с тем же кодом. Создайте новый документ на основе желаемого шаблона (например, шаблона BusinessReport), а затем добавьте этот макрос в шаблон:

Sub AutoOpen()

Dim Answer As Variant     Dim iNewDocs As Integer     Dim J As Integer

Answer = InputBox("How many more docs?", "Doc Count")

iNewDocs = CInt(Answer)

For J = 1 To iNewDocs         Documents.Add Template:="BusinessReport", NewTemplate:=False, _           DocumentType:=wdNewBlankDocument     Next End Sub

Сохраните документ под таким именем, как «MultipleDocs.doc». Основа макроса такая же, как и у предыдущего. Разница заключается в названии макроса. Поскольку он использует специальное имя AutoOpen, то всякий раз, когда документ MultipleDocs впоследствии открывается, макрос запускается автоматически, и пользователя спрашивают, сколько дополнительных документов нужно создать.

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

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

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

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

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

link: / wordribbon-Creating_Multiple_Blank_Documents_in_One_Step [Создание нескольких пустых документов за один шаг].