Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub hideone() Dim wdApp As Object, newDoc As Object Dim strFile As String Dim myDoc As String myDoc = "Risk Audit Report Template" strFile = ThisWorkbook.Path & "\" & myDoc & ".docm" '~~> Establish an Word application object On Error Resume Next Set wdApp = GetObject(, "Word.Application") If Err.Number <> 0 Then Set wdApp = CreateObject("Word.Application") End If Err.Clear On Error GoTo 0 wdApp.Visible = False Set newDoc = wdApp.Documents.Add(strFile) Call wdApp.Run("hideone") End Sub
Sub wordhideone() ' hideone Macro ' ActiveDocument.Bookmarks("one").Range.Font.Hidden = True ActiveDocument.Bookmarks("one_01").Range.Font.Hidden = True End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.