Skip to content

Instantly share code, notes, and snippets.

@dmitr1y

dmitr1y/.cls

Created June 4, 2018 02:44
Show Gist options
  • Save dmitr1y/efab69a25b5d34508d48b515c71cd648 to your computer and use it in GitHub Desktop.
Save dmitr1y/efab69a25b5d34508d48b515c71cd648 to your computer and use it in GitHub Desktop.
Download ZIP
mediaCount
Raw
.cls
Sub mediaCount()
'
' mediaCount Макрос
'
'
Selection.TypeText Text:="Пояснительная записка " & Selection.Information(wdNumberOfPagesInDocument) & " стр., " & ActiveDocument.InlineShapes.Count & " рис., " & ActiveDocument.Tables.Count & " табл., 8 ист."
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment