koyusi
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ol7ca
Вот код [more=модуля:]
Код: Sub SubtractBoldTxt()
Dim doc As Document
Dim s As Range
Dim iLen%
Dim bHdr As Boolean
Dim sHdr$
Set doc = ActiveDocument
sHdr = "Total"
iLen = Len(sHdr)
For Each s In doc.Sentences
If Left(s.Text, iLen) = sHdr Then Exit For
With s
If .Words(1).Bold = True Then
'x = .Words(1).Bold ' ???
.Font.ColorIndex = wdRed
.Select
.Copy
With Selection
If Not bHdr Then
bHdr = True
.EndKey (wdStory)
.Text = vbCr & vbCr & vbCr & vbCr
.MoveDown Unit:=wdLine
.MoveUp Unit:=wdLine
.Text = sHdr & vbCr & vbCr
End If
.EndKey (wdStory)
.Text = vbCr
.MoveUp Unit:=wdLine
.PasteAndFormat (wdPasteDefault)
.Range.ListFormat.ApplyListTemplate _
ListTemplate:=ListGalleries(wdBulletGallery).ListTemplates(1), _
ContinuePreviousList:=False, _
ApplyTo:=wdListApplyToWholeList, _
DefaultListBehavior:=wdWord10ListBehavior
End With
End If
End With
Next
End Sub |
|
Всего записей: 87 | Зарегистр. 03-10-2012 | Отправлено: 23:39 09-10-2012 | Исправлено: koyusi, 23:43 09-10-2012 |
|
