用您自己的文本(Microsoft Word)替换随机文本
GwenDolyn知道如何使用= rand()功能插入随机文本。
但是,她想知道是否有一种方法可以自定义或将文本添加到= rand()返回的内容中。她使用该功能作为样板/填充器进行演示,并希望添加自己的文字。
不幸的是,没有办法修改= rand()
的返回值。因为它是Word内置的功能。但是,有两种方法可以解决此问题。以下是最可能的候选者:自动图文集,自动更正和宏。
您可以创建一个自动文本条目,其中包含所需的样板信息。它可以是所需条目的长度,甚至可以包含“特殊”元素,例如表。与使用= rand()
|相比,自动图文集词条具有易于插入文档的优势。功能。 _WordTips_的其他问题已介绍了如何创建自动图文集词条。您也可以在http://word.mvps.org [Word MVP网站]上参考以下有用的页面:
http://wordmvp.com/FAQs/Formatting/DummyText.htm
Word的自动更正功能也可以用于插入有限数量的样板文本。正确设置后,“自动更正”的使用速度比“自动图文集”更快。您需要做的就是记住您创建的小助记符(例如_bpt_,意思是_boilerplate text_),键入该助记符,它将自动替换为更完整的样板。
使用AutoText或AutoCorrect代替= 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_网站上的任何其他页面)中描述的宏,我准备了一个包含有用信息的特殊页面。
_WordTips_是您进行经济有效的Microsoft Word培训的来源。
(Microsoft Word是世界上最流行的文字处理软件。)本技巧(9034)适用于Microsoft Word 97、2000、2002和2003。您可以为Word(Word 2007)的功能区界面找到此技巧的版本。和更高版本)在这里: