日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

word vba高效排版范例应用_收藏 | 原来word里面也有函数!

發布時間:2025/4/17 编程问答 39 豆豆
生活随笔 收集整理的這篇文章主要介紹了 word vba高效排版范例应用_收藏 | 原来word里面也有函数! 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

Word里面的rand“函數”

可以在文檔中快速生成文本,小伙伴在Word中練習排版時,可以用虛擬文本來練習排版。在任意位置輸入=rand()必須為英文半角,按【Enter】鍵,就會生成一段虛擬文本。

=rand(p,s)的語法是輸入指定段落數和句數的文本。參數p表示段落數,參數s表示句數。參數p和s均為整數,參數可以省略。如輸入=rand(20,1),按【Enter】鍵,會填充20段,每段1句的虛擬文本,如果指定的參數值超過Word可接受的范圍,如輸入=rand(1051,20),按【Enter】鍵,則不能得到虛擬文本。(WPS不支持)

Word里面的lorem“函數”

在這個時候,可能有的小伙伴會有疑問,用rand生成的都是中文的,如果想生成英文的虛擬文本,Word能不能做到?哈哈,答案是肯定可以啦。使用lorem函數就可以生成英文的虛擬文本了,其用法跟rand的是一樣的。

=lorem()會生成一段英文的虛擬文本,如果想生成20段,每段1句英文文本,可以輸入=lorem(20,1),然后回車,即可生成20段每段1句的英文隨機文本。

無法生成虛擬文本?

腫么發現按照上面的操作還是無法生成文字?是不是Word不愛我了?

那可能是【校對】的問題,單擊【文件】選項卡,【選項】選項,在彈出的【Word選項】對話框選擇【校對】選項卡-【自動更正選項】,在彈出的【自動更正】對話框,勾選【鍵入時自動替換】,單擊確定即可。

Tips:如果想要Word2003中那段經典虛擬文本(那只敏捷的棕色狐貍躍過那只懶狗。),可以錄入=rand.old()。

擴展:利用VBA填充文字

除了上方提到的兩個函數以外,還可以運用VBA快速輸入文字。

首先,在Word中按【Alt+F11】快捷鍵,打開VBA窗口;單擊【插入】選項卡-【模塊】;

在模塊里輸入代碼,然后單擊運行即可。

代碼如下:

Sub Word技巧達人()

Dim w As Long

Dim word As String

For w = 28888 To 65536 - 30000

word = word & VBA.ChrW$(w)

Next

ActiveDocument.Content = word

End Sub

操作動圖如下:

總結

以上是生活随笔為你收集整理的word vba高效排版范例应用_收藏 | 原来word里面也有函数!的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。