Conditionally hiding parts of a document

macropod · #2 03-20-2014, 02:38 PM

For that you could use code like:

Code:

Sub FilePrint()
Application.ScreenUpdating = False
Dim oFld As Field, Rng As Range
With ActiveDocument
  .ActiveWindow.View.ShowFieldCodes = False
  For Each oFld In .Fields
    With oFld
      If .Type = wdFieldMacroButton Then
        .Code.Font.Hidden = True
        .Update
      End If
    End With
  Next
  Application.Dialogs(wdDialogFilePrint).Show
  For Each oFld In .Fields
    With oFld
      If .Code.Font.Hidden = True Then
        .Code.Font.Hidden = False
        .Update
      End If
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Moving Quick Parts with the document	derohanes	Word	4	10-23-2013 09:30 PM
Print only certain parts of a document on demand	jirkap	Word VBA	1	09-29-2013 08:56 PM
Creating new document from parts of another document	matthewgeary	Word VBA	1	10-05-2012 10:09 AM
hiding images in word document	gib65	Drawing and Graphics	3	08-17-2011 11:09 AM
hiding selected objects in word document	gib65	Word	0	08-09-2011 12:00 PM