Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.03.2016, 22:13   #11
Kley
 
Регистрация: 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

Вот что получается, немножко изменил. Помогите пожалуйста доработать. Можно ли, если встретится первый пробел, перейти к другому абзацу?
Kley вне форума Ответить с цитированием
Старый 22.03.2016, 23:45   #12
Step_UA
Форумчанин
 
Аватар для Step_UA
 
Регистрация: 09.06.2011
Сообщений: 388
По умолчанию

Код:
If i > 1 Then
 ' использовать одну из 2-х следующих строк - ненужную удалить/закомментировать
 if left(strT,1)<>" " then ' первый символ параграфа не пробел
 if instrrev(strT," ",i-1)=0 then ' пробел до позиции i не найден

 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
 End If
на неконкретные вопросы даю неконкретные ответы ...
Step_UA вне форума Ответить с цитированием
Старый 23.03.2016, 07:59   #13
Kley
 
Регистрация: 19.12.2014
Сообщений: 7
По умолчанию

Step_UA
Большое спасибо! Не знаю, насколько верен код и где могут встретится подводные камни, но мою задачу он решил
Kley вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ввести число. Если оно положительное, найти его квадратный корень. Если отрицательное - возвести в квадратВвести число. Если оно п 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