天天看點

Word中對象屬性(Properties)的了解及示例(中)

作者:VBA語言専攻

《VBA之Word應用》(10178982),是我推出第八套教程,教程是專門講解VBA在Word中的應用,圍繞“面向對象程式設計”講解,首先讓大家認識Word中VBA的對象,以及對象的屬性、方法,然後通過執行個體讓大家感受到Word VBA 的妙處。本套教程共三冊十六章,今日内容為第一章部分:Word中對象屬性(Properties)的了解及示例(中)

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

代碼的截圖:

Word中對象屬性(Properties)的了解及示例(中)

代碼講解:

在此示例中,首先要打開一個名稱"示例01"的文檔。然後提供給使用者這個文檔的TrackRevisions屬性值;如果這個屬性值為false,則更改為true。

代碼的操作過程截圖:

Word中對象屬性(Properties)的了解及示例(中)
Word中對象屬性(Properties)的了解及示例(中)

将這個屬性設定為true後,我們就可以檢視到文檔修改的一些記錄了,如下截圖:

Word中對象屬性(Properties)的了解及示例(中)

示例2:下面的代碼将回報目前活動文檔的名稱:

Sub mynzH() '回報目前活動文檔的名稱

Dim myDocName As String

myDocName = ActiveDocument.Name

MsgBox myDocName

End Sub

代碼截圖:

Word中對象屬性(Properties)的了解及示例(中)

代碼講解:

在此示例中, ActiveDocument 指 Word活動視窗中的文檔。該文檔配置設定給變量的名稱指 Word 的活動視窗中的文檔。該文檔的名稱已配置設定給變量myDocName。

代碼的執行效果:

Word中對象屬性(Properties)的了解及示例(中)

[待續]

本講内容參考程式檔案:Doc 001文檔.docm

【分享成果,随喜正能量】 人生百味,情最濃,人生繁華,淡最真,人生一路,一步有一步的風景,一程有一程的感悟,不論時光如何流轉,有些東西不會改變,那就是對美好的追求,對真情的渴望,給自己一份淡然,不困于情,不憾于心,無悔于生命,充實于生活,平和于心态,守一份心淨,淡淡就好。 ​​ ​​​。

Word中對象屬性(Properties)的了解及示例(中)

我20多年的VBA實踐經驗,全部濃縮在下面的各個教程及應用工具中:

Word中對象屬性(Properties)的了解及示例(中)

繼續閱讀