通过功能区代码隐藏在Word中打开文件

Sub HideCode()
   Dim objDoc As Document
   Dim objSect As Section
   Dim objRange As Range
   Dim lngStart As Long
   Dim lngEnd As Long

   Set objDoc = ActiveDocument
   Set objRange = objDoc.Content

   With objRange.Find
      .Text = "'"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
   End With

   lngStart = objRange.Start

   Do While objRange.Find.Execute
      lngEnd = objRange.End
      objDoc.Range(lngStart, lngEnd).Font.Hidden = True
      lngStart = lngEnd
   Loop
End Sub