Выделение 10 процентов текста в WORD - VBA

Формулировка задачи:

Форумчане! Подскажите пожалуйста как сделать, чтобы выделялось 10% от текста в документе? Пример макроса из word Sub Delete() Selection.WholeStory ----------------> вот здесь должно быть 10% Selection.Copy Selection.Delete Unit:=wdCharacter, Count:=1 End Sub Макрос должен уметь выделять 10% текста с начала документа, потом копировать его в буфер обмена и удалять выделенный текст из документа. Заранее спасибо!

Решение задачи: «Выделение 10 процентов текста в WORD»

textual
                            Листинг программы 
                        

                            Sub bb()
  ActiveDocument.Range(0, ActiveDocument.Characters.Count \ 10).Cut
End Sub
                        