大众计算机学习网欢迎诸位!收藏本站注 册登 陆
常用教程:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 教程 > 文章页

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

Admin | 2008-9-11 20:22:07 | ReadNums | 7715 | 标签 Word教程 | 打印本页
     

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

  网上抄的,呵呵!


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日