Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
0 / 0 / 0
Регистрация: 06.06.2015
Сообщений: 16
1

Создание макроса для редактирование текста в Word

18.02.2017, 10:52. Показов 2710. Ответов 1
Метки нет (Все метки)

Создать макрос, который устанавливает двойной интервал между строками, выравнивает текст по левому краю страницы, формирует абзацный отступ 1,75 пт. Первое слово в предложении выделяет красным цветом.
Столкнулся с проблемой, выделение красным цветом первого слова в предложение. Подскажите кто что может
ps. код работает
pss. код на изменение цвета отсутствует
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Selection.WholeStory
    Selection.ParagraphFormat.LineSpacing = LinesToPoints(2)
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
    Selection.WholeStory
    Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.WholeStory
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .WidowControl = True
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(1.75)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
    End With
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.02.2017, 10:52
Ответы с готовыми решениями:

Создание макроса по поиску и замене текста в Word 2007
Помогите пожалуйста написать макрос, который будет в тексте, состоящем из статей, имеющих...

Задача на создание макроса для Word и Exel
Добрый день, может быть кто-нибудь может помочь с такого рода задачей? Написать макрос,...

Создание макроса для открытия существующего шаблона Word из Exel
Добрый день! Не знаю точно к какой теме относится этот вопрос, но главная проблема у меня...

Создание макроса для Word со ссылками на элементы библиотеки переводов в Excel
Всем привет!. начал много и плотно работать с техническими документами на двух языках. Вспомнил...

1
223 / 134 / 45
Регистрация: 08.09.2012
Сообщений: 281
Записей в блоге: 1
18.02.2017, 18:46 2
Лучший ответ Сообщение было отмечено pst1337 как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Dim i As Long
Selection.WholeStory
   
 With Selection.ParagraphFormat
   .LineSpacing = LinesToPoints(2)
   .FirstLineIndent = CentimetersToPoints(1.75)
   .Alignment = wdAlignParagraphLeft
 End With
 
 For i = 1 To ActiveDocument.Sentences.Count
    ActiveDocument.Range.Sentences(i).Words(1).Font.Color = wdColorRed
 Next i
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.02.2017, 18:46

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Создание макроса в Word Excel
Объясните порядок действий при записи макроса, пожалуйста. Средствами Excel записать макрос с...

Поиск и редактирование текста в Word
Народ, помогите со следующей проблемкой. Пытаюсь написать код в VBA для обработки документа....

Создание границы в Excel при вызове макроса из Word'а
Доброго времени суток! Проблема следующая: В Word'е выполняется макрос, который в определённый...

Как отследить редактирование текста в Word?
Hi all! Собственно, subj. Надо отследить нажатие кнопки на клаве. Не важно, что дальше -...


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

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

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