列出樣式的敘述文字 巨集

 

Sub 列出所有樣式的敘述文字_1A()

'作用：找出每一個styles, 將其description寫到文件最後

'ver

'     摘自 《WORD排版藝術》 VBA10-23

'       自訂樣式不論是否有使用皆會列出；預設樣式則會列出部份未使用

'   1A  增加說明

' 好像是列出可用樣式清單，不論有顯示或沒有顯示？可先刪不要者。

' styles數目是什麼？空白文件也顯示100多？

ActiveDocument.Paragraphs.Last.Range.InsertAfter (Chr(10) + "styles description: ")     '將資料標題寫到作用中文件最後

    'MsgBox Application.Styles.Count                            '原書程式

    'application下面沒有styles，改成Application.ActiveDocument. Application可省略

MsgBox ActiveDocument.Styles.Count             '顯示styles數目.

Dim nowStyle As Style

For Each nowStyle In ActiveDocument.Styles

    If nowStyle.InUse = True Then                           '使用中才成立，結果全部跑出來? InUse沒有作用

        ActiveDocument.Paragraphs.Last.Range.InsertAfter (Chr(10) + nowStyle.NameLocal)         '顯示結果在文件最後

        ActiveDocument.Paragraphs.Last.Range.InsertAfter (vbCr + "    " + nowStyle.Description)

    End If                                                  'vbCr=Chr(10)

Next

End Sub

---

#VBA    #MS Word