'Code by @ClintCadline - originally posted here: https://www.cadlinecommunity.co.uk/hc/en-us/articles/115005749125
Dim oView As DrawingView = Nothing
Dim oDrawingViews As DrawingViews = ThisApplication.ActiveDocument.Sheets.Item(1).DrawingViews

' Iterate through drawing views
For i = 1 To oDrawingViews.Count
oView = oDrawingViews.Item(i)
xView = oView.Name

ActiveSheet.View(xView).View.IncludeMeshBodies = True
ActiveSheet.View(xView).View.IncludeSurfaceBodies = True

Next