Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 6311
Последний выпуск: 19.06.2015

Макрос обратного порядка строк в MS Word 2013

88K
26 декабря 2014 года
asele
2 / / 26.12.2014
Добрый день, друзья!

Нужна помощь: каким должен быть код макроса в MS Word (2013 года, если это важно), чтобы макрос сделал обратный порядок строк для всего документа, т.е. самую нижнюю строку текст сделал самой верхней и т.д. снизу вверх, или сверху вниз, главное, чтобы результат был тем же) - нижняя строка стала самой верхней, а верхняя - в самом низу оказалась, и все остальные строки поменяли свой порядок, исходя из данного.

т.е. грубо говоря, дано:

текст текст текст
дата 31.01.2014
текст текст текст
дата 30.01.2014
текст текст текст
дата 29.01.2014

А нужно, чтобы было:

дата 29.01.2014
текст текст текст
дата 30.01.2014
текст текст текст
дата 31.01.2014
текст текст текст

Заранее благодарю! )
275
27 декабря 2014 года
pashulka
985 / / 19.09.2004
Можно протестировать на копии документа - следующий макрос :

Код:
Private Sub Test()
    Dim iSource$(), iDest$(), iCount&, iCounter&

    iSource = Split(ActiveDocument.Content, Chr(11))
    iCount = UBound(iSource): ReDim iDest(iCount)

    For iCounter = 0 To iCount
        iDest(iCount - iCounter) = iSource(iCounter)
    Next

    ActiveDocument.Content = Join(iDest, Chr(11))
End Sub
88K
27 декабря 2014 года
asele
2 / / 26.12.2014
Цитата: pashulka
Можно протестировать на копии документа - следующий макрос :

Код:
Private Sub Test()
    Dim iSource$(), iDest$(), iCount&, iCounter&

    iSource = Split(ActiveDocument.Content, Chr(11))
    iCount = UBound(iSource): ReDim iDest(iCount)

    For iCounter = 0 To iCount
        iDest(iCount - iCounter) = iSource(iCounter)
    Next

    ActiveDocument.Content = Join(iDest, Chr(11))
End Sub



Получилось!!! Крутааа=)

Благодарю!

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог