elvin-nsk

Sub ChangeFont()
  Const TargetFont = "Tahoma"
  Const TargetSize = 10
  '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  Dim Page As Page
  Dim Shape As Shape
  For Each Page In ActiveDocument.Pages
    For Each Shape In Page.Shapes
      If Shape.Type = cdrTextShape Then
        Shape.Text.Story.Font = TargetFont