Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
sergey23031978
5 / 5 / 4
Регистрация: 20.02.2015
Сообщений: 151
#1

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

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

Добрый день!

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

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

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

Копирование и вставки строки - VBA
Здравствуйте! Столкнулась с проблемой. Написала цикл на поиск непустых строк со значением не 0, а дальше они должны копироваться на другой...

Цикл, копирование строки с перезаписью - VBA
Прошу помощи так как в макросах не очень. Нужно к примеру с Листа3 копировать строку А2:Z2 с изменяемыми данными на Лист4 начиная с А2...

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

Выровнить строки файла по правому краю - C#
Написать программу, которая переформатирует файл так, что все строки в нем будут выровнены по правому краю (ширина строки равна константе...

4
Казанский
13808 / 5571 / 1405
Регистрация: 24.09.2011
Сообщений: 8,739
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
5 / 5 / 4
Регистрация: 20.02.2015
Сообщений: 151
10.01.2017, 17:26  [ТС] #3
Казанский
большое спасибо. Код работает
0
sergey23031978
5 / 5 / 4
Регистрация: 20.02.2015
Сообщений: 151
27.01.2017, 14:41  [ТС] #4
Казанский
а можете подправить код так чтоби не копировался пустой абзац
0
sergey23031978
5 / 5 / 4
Регистрация: 20.02.2015
Сообщений: 151
09.06.2017, 11:00  [ТС] #5
как продолжить поиск, пока не будет найден текст, т.е нужно добавить проверку
после 14 строки:
if r="" then продолжить поиск

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

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

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

Выравнивание строки по правому краю до заданной длины - C++
выравнивание строки s по правому краю до длины l. Задание нужно сделать с помощью адресной арифметики. 3 день не могу сделать. Подскажите...

Добавить в конец каждой строки необходимо количество «*» что бы выровнять текст по правому краю большей строки - C++
Дано некоторое количество строк, не больше как размер текстового окна. Добавить в конец каждой строки необходимо количество «*» что бы...


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

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

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