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

歡迎訪問(wèn) 生活随笔!

生活随笔

當(dāng)前位置: 首頁(yè) > 编程资源 > 编程问答 >内容正文

编程问答

VBA:一个Word VBA编程的例子

發(fā)布時(shí)間:2023/12/14 编程问答 37 豆豆
生活随笔 收集整理的這篇文章主要介紹了 VBA:一个Word VBA编程的例子 小編覺(jué)得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.

VBA編寫(xiě)窗口中,打開(kāi)視圖-本地窗口,可以查看變量值。

單步調(diào)試宏按F8鍵

Sub test()Dim orng As Rangegr = 1With Word.ActiveDocumentDo.Paragraphs(1).Range.Select '選種文檔第一段Selection.Cut '剪切Set orng = .GoTo(wdGoToHeading, wdGoToAbsolute, gr)orng.Select '鼠標(biāo)移動(dòng)到第gr個(gè)標(biāo)題Selection.MoveDown Unit:=wdLine, Count:=1 '鼠標(biāo)指針往下移動(dòng)1行Selection.PasteAndFormat (wdListDontMerge) '粘貼gr = gr + 1Loop Until gr > 5End With End Sub

總結(jié)

以上是生活随笔為你收集整理的VBA:一个Word VBA编程的例子的全部?jī)?nèi)容,希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò),歡迎將生活随笔推薦給好友。