miniA3b.docm - Dim SpellingMistake As integer Dim Numtypos...

This preview shows page 1 out of 1 page.

Dim SpellingMistake As integer Dim Numtypos As Long Dim InlineShapes As Long SpellingMistake= ActiveDocument.SpellingErrors.count Numtypos= ActiveDocument.Typo.count InlineShapes= ActiveDocument.InlineShape.count If (SpellingMistake >=0) then MsgBox("Num typos: " & Actual # typographical mistakes “, ” & "Num inline shapes: not counted")

  • Left Quote Icon

    Student Picture

  • Left Quote Icon

    Student Picture

  • Left Quote Icon

    Student Picture