none
Дополнение таблицы в MS Word 2010 RRS feed

  • Вопрос

  • Здравствуйте!

    Подскажите пожалуйста, как добавить строки к уже созданной таблице в MS Word 2010 не вручную. Мне нужно добавить 50 строк.

    Заранее благодарен!!!

    15 апреля 2011 г. 4:05

Ответы

    1. Чем больше строк Вы выделите, тем больше (столько же) сможете вставить с помощью пункта меню Вставить - строки
    2.  Можно использовать макрос вида

       

    Public Sub sss()
    
    Dim tt As Table
    
    Dim i As Integer
    
    Set tt = Selection.Tables(1)
    
    For i = 1 To 50
    
    tt.Rows.Add
    
    Next
    
    End Sub
    
    

    как написать макрос :

    • нажать Alt+F11
    • слева в открывшемся окне правой кнопкой на Normal. Нажать Insert - Module
    • Вставить приведенный выше текст
    • В меню Debug-Compile
    • В меню File-Save Normal

    Чтобы выполнить макрос, встаньте в таблицу выше строки, под которой нужно вставить 50 строк, нажмите Alt+F8, выберите в списке снизу - "из активных шаблонов", в списке сверху -"sss". Нажмите "Выполнить"

     


    15 апреля 2011 г. 15:59