《VBA之Word應用》(10178982),是我推出第八套教程,教程是專門講解VBA在Word中的應用,圍繞“面向對象程式設計”講解,首先讓大家認識Word中VBA的對象,以及對象的屬性、方法,然後通過執行個體讓大家感受到Word VBA 的妙處。本套教程共三冊十六章,今日内容為第一章部分:Word中對象屬性(Properties)的了解及示例(中)
第四節 Word中對象屬性(Properties)的了解及示例
大家好,我們繼續講解從VBA的角度來認識Word。在上一節我們主要了解了Word中對象和集合的概念,并以兩個對象Document和Paragraph為例讓大家對對象和集合有所了解。這節中我們繼續向下學習,面向對象程式設計有了對象,下一個知識點就是要了解對象的屬性(Properties)。
2 對象屬性的設定
若要設定屬性的值,可以按照下面的示例,注意屬性的寫法,用對象的名稱+半角圓點+新的屬性值的寫法。
示例1:下面的例子對名稱為"示例01.doc"的文檔中啟用了變更跟蹤。
Sub mynzG() '啟用了變更跟蹤屬性
Dim myDoc As Document
Set myDoc = Documents.Open(ActiveDocument.Path & "\示例01.docx")
Documents("示例01").Activate
MsgBox Documents("示例01").TrackRevisions
If Documents("示例01").TrackRevisions = False Then Documents("示例01").TrackRevisions = True
MsgBox Documents("示例01").TrackRevisions
End Sub
代碼的截圖:
代碼講解:
在此示例中,首先要打開一個名稱"示例01"的文檔。然後提供給使用者這個文檔的TrackRevisions屬性值;如果這個屬性值為false,則更改為true。
代碼的操作過程截圖:
将這個屬性設定為true後,我們就可以檢視到文檔修改的一些記錄了,如下截圖:
示例2:下面的代碼将回報目前活動文檔的名稱:
Sub mynzH() '回報目前活動文檔的名稱
Dim myDocName As String
myDocName = ActiveDocument.Name
MsgBox myDocName
End Sub
代碼截圖:
代碼講解:
在此示例中, ActiveDocument 指 Word活動視窗中的文檔。該文檔配置設定給變量的名稱指 Word 的活動視窗中的文檔。該文檔的名稱已配置設定給變量myDocName。
代碼的執行效果:
[待續]
本講内容參考程式檔案:Doc 001文檔.docm
【分享成果,随喜正能量】 人生百味,情最濃,人生繁華,淡最真,人生一路,一步有一步的風景,一程有一程的感悟,不論時光如何流轉,有些東西不會改變,那就是對美好的追求,對真情的渴望,給自己一份淡然,不困于情,不憾于心,無悔于生命,充實于生活,平和于心态,守一份心淨,淡淡就好。 。
我20多年的VBA實踐經驗,全部濃縮在下面的各個教程及應用工具中: