一区二区三区日韩精品-日韩经典一区二区三区-五月激情综合丁香婷婷-欧美精品中文字幕专区

分享

為段落自動添加數(shù)目

 樵夫1964 2021-11-10
《VBA之Word應用》,是我推出第八套教程,教程是專門講解VBA在Word中的應用,圍繞“面向?qū)ο缶幊獭敝v解,首先讓大家認識Word中VBA的對象,以及對象的屬性、方法,然后通過實例讓大家感受到Word VBA 的妙處。本套教程共三冊十六章,今日內(nèi)容是第四章“段落集合Paragraphs對象及段落Paragraph對象”第7節(jié):為段落自動添加數(shù)目。?

第七節(jié) 段落Paragraph對象的方法

大家好,我們繼續(xù)講解段落Paragraph對象,這講的內(nèi)容是Paragraph對象的方法。這套教程我是緊扣面向?qū)ο缶幊虂碇v解的,緊扣對象、對象的屬性、對象的方法來一步步的向大家展現(xiàn)VBA的魅力,我力爭用這種方式來告訴大家什么是面向?qū)ο缶幊?。當然,這部教程要求在學習完我的第七套教程《VBA之Excel應用》之后來學習,因為很多的VBA基本功需要提前打好。

1  Paragraph.Next 方法

這個方法返回一個段落對象, 該對象代表下一個段落。
語法:expression.Next (Count)
其中expression 是必需的。 一個代表 '段落' 對象的變量。
參數(shù):
Count   可選   Variant   要前移的段落數(shù)。 默認值為 1。

2  Paragraph.Previous 方法

這個方法以段落對象的形式返回上一段。
語法:expression.Previous (Count)
其中expression 是必需的。 一個代表 '段落' 對象的變量。
參數(shù):
Count   可選   Variant   要后移的段落數(shù)。 默認值為 1。

3  段落Paragraph對象的方法應用

下面我將利用一段代碼作為實例。這段代碼中,將在活動文檔中的各段前面分別插入一個表示段落的數(shù)字和一個制表符,這是利用Next方法。然后利用Previous方法,再在各段前面插入一個表示段落的數(shù)值。我們先看下面的代碼:

Sub mynzF()
    '在活動文檔中的各段前面分別插入一個表示段落的數(shù)字和一個制表符。
    For n = 0 To ActiveDocument.Paragraphs.Count - 1
        Set myRange = ActiveDocument.Paragraphs(1).Next(Count:=n).Range
        myRange.Select
        myRange.Collapse Direction:=wdCollapseStart
        myRange.InsertAfter n + 1 & vbTab
    Next
    '在活動文檔中的各段前面插入一個表示段落的數(shù)字
    For n = ActiveDocument.Paragraphs.Count - 1 To 0 Step -1
        If n = 0 Then
            Selection.InsertBefore n + 1
        Else
            Selection.Previous(Unit:=wdParagraph, Count:=1).Select
            Selection.InsertAfter n + 1
        End If
    Next
End Sub

代碼截圖:

圖片

代碼解讀:(略)

代碼的運行,上述代碼運行后:

圖片
圖片
今日內(nèi)容回向:
   1  段落對象的Next方法及Previous方法意義是什么?
   2  如何利用上述方法設置文檔的段落?
    
    
本講內(nèi)容參考程序文件:Doc 004文檔.docm

圖片



我20多年的VBA實踐經(jīng)驗,全部濃縮在下面的各個教程中:

圖片

    本站是提供個人知識管理的網(wǎng)絡存儲空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點。請注意甄別內(nèi)容中的聯(lián)系方式、誘導購買等信息,謹防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請點擊一鍵舉報。
    轉(zhuǎn)藏 分享 獻花(0

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多

    国产一级内射麻豆91| 日韩国产亚洲欧美另类| 精品一区二区三区三级视频 | 精品人妻一区二区四区| 后入美臀少妇一区二区| 好吊日成人免费视频公开| 爱在午夜降临前在线观看| 亚洲天堂精品1024| 东京热加勒比一区二区| 中文字幕乱码亚洲三区| 两性色午夜天堂免费视频| 国产欧洲亚洲日产一区二区| 亚洲一区二区亚洲日本| 日韩中文无线码在线视频| 亚洲男女性生活免费视频| 日本东京热加勒比一区二区| 中文字幕一区二区三区大片| 国产精品欧美激情在线| 欧美三级大黄片免费看| 亚洲乱码av中文一区二区三区| 丰满少妇被猛烈撞击在线视频| 日本午夜精品视频在线观看| 国产一区二区三区成人精品| 亚洲天堂国产精品久久精品| 大香蕉再在线大香蕉再在线| 亚洲一区精品二人人爽久久| 国产精品丝袜一二三区| 91在线播放在线播放观看| 亚洲熟妇中文字幕五十路| 久久青青草原中文字幕| 中国一区二区三区人妻| 久久国产精品亚州精品毛片| 九九热精品视频免费观看| 国产日韩欧美在线播放| 99国产一区在线播放| 久久三级国外久久久三级| 九九热在线视频观看最新| 中文字幕无线码一区欧美| 久久亚洲精品中文字幕| 正在播放玩弄漂亮少妇高潮| 精品香蕉国产一区二区三区|