[求助]word的vba里哪個(gè)屬性是頁(yè)數(shù)和首行標(biāo)題

軟件下載

打算將我的電腦所有打印過(guò)的word文檔全部記錄到一個(gè)記事本中，下面這段代碼能記錄我打印的時(shí)間、文檔名。
現(xiàn)在想把這個(gè)文檔的頁(yè)數(shù)、首行標(biāo)題也記錄下來(lái)，請(qǐng)問(wèn)加什么代碼？

另外，有些標(biāo)題很長(zhǎng)，可能會(huì)切換第二行并居中（正常的標(biāo)題后，下面正文第一行不居中），我打算加個(gè)判斷，如果第二行居中，則標(biāo)題就是第一行+第二行（不會(huì)超過(guò)第三行），如果不居中，標(biāo)題就是第一行，這個(gè)可能有點(diǎn)難度，word的VBA我第一次接觸，網(wǎng)上搜到的一些東西條理不是很清楚，特來(lái)求助。

Dialogs(wdDialogFilePrint).Show
DName = ActiveDocument.Path + "\" + ActiveDocument.Name
If ActiveDocument.Path = "" Then DName = "未保存文檔"
Tim = Str(Date) + "日" + Str(Time)
Open "a:\print.txt" For Append As #1
Print #1, "于" + Tim + " 打印" + DName
Close #1

軟件下載

終于找到了，用Selection.Information(wdNumberOfPagesInDocument)

現(xiàn)在問(wèn)題是：這段代碼寫(xiě)到normal.dotx的模塊中，相當(dāng)于新建了一個(gè)Fileprint的宏，可每次打印都沒(méi)用，必須要先運(yùn)行這個(gè)宏才行，該怎樣設(shè)置打開(kāi)word后默認(rèn)就運(yùn)行了？

1、我是word2010，已經(jīng)在信任中心里啟用所有的宏，并已經(jīng)勾上了信任VBA工程對(duì)象模型的訪(fǎng)問(wèn)。

2、我是在NORMAL模版中插入的模塊，這個(gè)應(yīng)該是隨WORD啟動(dòng)的吧？

軟件下載

roych 發(fā)表于 2012-9-21 23:25
應(yīng)該是放在這里吧：
Private Sub Document_Open()
End Sub

很奇怪，我的word2010也不認(rèn)Document_Open()，這個(gè)加到模塊里，代碼中寫(xiě)msgbox "OK"，然后無(wú)論在啟動(dòng)新WORD還是老的文檔，都沒(méi)有任何提示。

roych

應(yīng)該是放在這里吧：
Private Sub Document_Open()
End Sub
打開(kāi)文件后自運(yùn)行。