如何让Word文档内容折叠之VBA源代码

Option Explicit
Sub Example1()
    Dim MyRange As Range
    With Selection
        ActiveDocument.AttachedTemplate.AutoTextEntries("展开").Insert .Range
        .Paragraphs(1).Next.Range.Font.Hidden = False
    End With
End Sub
'----------------------
Sub Example2()
    Dim MyRange As Range
    With Selection
        ActiveDocument.AttachedTemplate.AutoTextEntries("折叠").Insert .Range
        Set MyRange = ThisDocument.Range(.Paragraphs(1).Next(1).Range.Start, .Paragraphs(1).Next(2).Range.End)
        MyRange.Font.Hidden = True
    End With
End Sub
'----------------------

Private Sub Document_Close()
　　Options.ButtonFieldClicks = 2
End Sub
'----------------------

Private Sub Document_New()
　　Application.OrganizerCopy
End Sub
'----------------------

Private Sub Document_Open()
    With ActiveDocument.ActiveWindow
        .View.ShowAll = False
        .View.ShowHiddenText = False
    End With
    Options.ButtonFieldClicks = 1
End Sub

　　网上抄的，呵呵！

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18