|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
22.03.2016, 22:13 | #11 |
Регистрация: 19.12.2014
Сообщений: 7
|
Sub BoldIt(Optional strS As String = ".")
Dim par As Paragraph, strT As String, i As Long For Each par In ActiveDocument.Paragraphs strT = par.Range.text i = InStr(strT, strS) If i > 1 Then i = i - 2 par.Range.Characters(1).Select Selection.MoveRight wdCharacter, i + 1, wdExtend 'Selection.Font.Bold = True Selection.Paragraphs(1).Range.Inser tBefore text:="[" Selection.InsertAfter text:="]" Selection.Collapse wdCollapseEnd End If Next End Sub Sub RunMe() BoldIt "." End Sub Вот что получается, немножко изменил. Помогите пожалуйста доработать. Можно ли, если встретится первый пробел, перейти к другому абзацу? |
22.03.2016, 23:45 | #12 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 388
|
Код:
на неконкретные вопросы даю неконкретные ответы ...
|
23.03.2016, 07:59 | #13 |
Регистрация: 19.12.2014
Сообщений: 7
|
Step_UA
Большое спасибо! Не знаю, насколько верен код и где могут встретится подводные камни, но мою задачу он решил |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ввести число. Если оно положительное, найти его квадратный корень. Если отрицательное - возвести в квадратВвести число. Если оно п | FYNZIK | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 18.02.2014 16:29 |
Дано предложение, которое заканчивается точкой. Найти повторяющиеся буквы. Делфи 7. | nadyaH | Помощь студентам | 1 | 11.01.2014 20:30 |
Если слово содержит цифру, то заключить ее в скобки.. | moto125 | Помощь студентам | 10 | 25.02.2012 20:35 |
Отпечатать первое слово третьей строки файла, если оно существует | D.o.c | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 12.02.2011 22:40 |
Найти первое слово в строке | Delphinchik | Помощь студентам | 10 | 24.08.2010 11:02 |