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
Макрос обратного порядка строк в MS Word 2013
Добрый день, друзья!
Нужна помощь: каким должен быть код макроса в MS Word (2013 года, если это важно), чтобы макрос сделал обратный порядок строк для всего документа, т.е. самую нижнюю строку текст сделал самой верхней и т.д. снизу вверх, или сверху вниз, главное, чтобы результат был тем же) - нижняя строка стала самой верхней, а верхняя - в самом низу оказалась, и все остальные строки поменяли свой порядок, исходя из данного.
т.е. грубо говоря, дано:
текст текст текст
дата 31.01.2014
текст текст текст
дата 30.01.2014
текст текст текст
дата 29.01.2014
А нужно, чтобы было:
дата 29.01.2014
текст текст текст
дата 30.01.2014
текст текст текст
дата 31.01.2014
текст текст текст
Заранее благодарю! )
Нужна помощь: каким должен быть код макроса в MS Word (2013 года, если это важно), чтобы макрос сделал обратный порядок строк для всего документа, т.е. самую нижнюю строку текст сделал самой верхней и т.д. снизу вверх, или сверху вниз, главное, чтобы результат был тем же) - нижняя строка стала самой верхней, а верхняя - в самом низу оказалась, и все остальные строки поменяли свой порядок, исходя из данного.
т.е. грубо говоря, дано:
текст текст текст
дата 31.01.2014
текст текст текст
дата 30.01.2014
текст текст текст
дата 29.01.2014
А нужно, чтобы было:
дата 29.01.2014
текст текст текст
дата 30.01.2014
текст текст текст
дата 31.01.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
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
Получилось!!! Крутааа=)
Благодарю!