Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
sergey23031978
6 / 6 / 4
Регистрация: 20.02.2015
Сообщений: 153
1

Копирование строки вировняной по правому краю

10.01.2017, 15:51. Просмотров 420. Ответов 4
Метки нет (Все метки)

Добрый день!

Прошу помочь с макросом который будет копировать первую строку которая выровнена по правому краю
(макрос для ворд)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2017, 15:51
Ответы с готовыми решениями:

Макрос по удалению текста с выравниванием по правому краю
Ув. участники форума, сердечно прошу помощи в написании макроса. Суть: ...

Excel. Копирование столбца, при заполнении 22-й строки продолжить копирование в соседний столбец
Всем привет. Задача: Есть таблица Excel, заполнены 2 столбца, из них первый -...

Копирование и вставки строки
Здравствуйте! Столкнулась с проблемой. Написала цикл на поиск непустых строк со...

Цикл, копирование строки с перезаписью
Прошу помощи так как в макросах не очень. Нужно к примеру с Листа3 копировать...

Копирование строки с помощью макроса
Спасибо, что уже сюда заглянули) Доброе время суток) Вопрос такой: есть...

4
Казанский
14260 / 5919 / 1568
Регистрация: 24.09.2011
Сообщений: 9,320
10.01.2017, 17:01 2
sergey23031978, пробуйте. Правда, не строка, а абзац.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Se()
Const MSG = "Диапазон с правым выравниванием "
Dim r As Range
  Set r = ActiveDocument.Range
  With r.Find
    .ClearFormatting
    .ParagraphFormat.Alignment = wdAlignParagraphRight
    .Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchWildcards = False
    If .Execute Then
      r.Copy
      MsgBox MSG & "скопирован", vbInformation
    Else
      MsgBox MSG & "не найден", vbExclamation
    End If
  End With
End Sub
0
sergey23031978
6 / 6 / 4
Регистрация: 20.02.2015
Сообщений: 153
10.01.2017, 17:26  [ТС] 3
Казанский
большое спасибо. Код работает
0
sergey23031978
6 / 6 / 4
Регистрация: 20.02.2015
Сообщений: 153
27.01.2017, 14:41  [ТС] 4
Казанский
а можете подправить код так чтоби не копировался пустой абзац
0
sergey23031978
6 / 6 / 4
Регистрация: 20.02.2015
Сообщений: 153
09.06.2017, 11:00  [ТС] 5
как продолжить поиск, пока не будет найден текст, т.е нужно добавить проверку
после 14 строки:
if r="" then продолжить поиск

Добавлено через 32 минуты
и что никто не может помочь?
0
09.06.2017, 11:00
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.06.2017, 11:00

Выровнять строки списка по правому краю
Стоит задача выровнять строки списка по правому краю (см. прикрепление). Именно...

Выровнить строки файла по правому краю
Написать программу, которая переформатирует файл так, что все строки в нем...

Выравнивание строки по правому краю до заданной длины
Помогите пожалуйста решить задачу. Составьте программу, которая выравнивает...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru