ГвенДолин знает, как использовать функцию = rand () для вставки случайного текста.

Однако она задается вопросом, есть ли способ настроить или добавить текст к тому, что возвращает = rand (). Она использует эту функцию как шаблон / заполнитель для демонстраций и хотела бы добавить свое собственное словоблудие.

К сожалению, нет возможности изменить то, что возвращает = rand ()

поскольку это функция, встроенная в Word. Однако есть несколько способов обойти эту проблему. Наиболее вероятными кандидатами являются следующие: автотекст, автозамена и макросы.

Вы можете создать запись автотекста, содержащую нужную вам шаблонную информацию. Запись может быть любой длины и даже содержать «специальные» элементы, такие как таблицы. Записи автотекста имеют то преимущество, что их легче вставить в документ, чем использовать = rand ()

функция. Как вы создаете записи автотекста, было описано в других выпусках WordTips. Вы также можете обратиться к следующей полезной странице на http://word.mvps.org [сайте Word MVP]:

http://wordmvp.com/FAQs/Formatting/DummyText.htm

Функцию автозамены Word также можно использовать для вставки ограниченного количества шаблонного текста. При правильной настройке Автозамена работает даже быстрее, чем Автотекст. Все, что вам нужно сделать, это запомнить созданную вами небольшую мнемонику (например, bpt, что означает boilerplate text), ввести эту мнемонику, и она автоматически заменяется более полным шаблоном.

Недостатком использования автотекста или автозамены вместо = rand () является то, что они не так гибки; вы не можете указать, сколько абзацев вы хотите и сколько предложений в каждом абзаце. Если вам нужна такая гибкость, вам нужно будет прибегнуть к созданию макроса, который будет выполнять стандартную вставку. Ниже приведен пример простого макроса для выполнения такой задачи.

Sub RandomText()

Dim sSent As String     Dim iSentences As Integer     Dim iParagraphs As Integer     Dim J As Integer     Dim K As Integer

iSentences = 3    'Number of sentences per paragraph     iParagraphs = 5   'Number of paragraphs     sSent = "Wallace Widgets makes the best widgets in the known world. "



For J = 1 To iParagraphs         For K = 1 to iSentences             Selection.TypeText sSent         Next K         Selection.TypeParagraph     Next J End Sub

Вы, конечно, можете назначить этот макрос сочетанию клавиш или кнопке на панели инструментов, и он вставит ваш текст (указанный в переменной sSent)

всякий раз, когда вы его вызываете. Возможно, вы даже захотите изменить макрос так, чтобы вместо количества предложений и абзацев «жестко закодировано»,

макрос просит пользователя указать, сколько каждого из них он должен использовать.

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

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

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

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

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

link: / wordribbon-Replacing_Random_Text_with_Your_Own_Text [Замена случайного текста вашим собственным текстом].