ol7ca
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sub SubtractBoldTxt()
Dim s As Range
Dim doc As Document
Dim sHeader$
Dim iLen%
Set doc = Word.Documents("Doc2.docm")
sHeader = "Total"
iLen = Len(sHeader)
For Each s In doc.Sentences
If s.Words(1).Bold = True Then
x = s.Words(1).Bold
s.Font.ColorIndex = wdRed
s.Select
End If
Next
With Selection
.Range.ListFormat.ApplyListTemplate _
ListTemplate:=ListGalleries(wdBulletGallery).ListTemplates(1), _
ContinuePreviousList:=False, _
ApplyTo:=wdListApplyToWholeList, _
DefaultListBehavior:=wdWord10ListBehavior
.Copy
.EndKey (wdStory)
.Text = "Total" & vbCr
.EndKey (wdStory)
.PasteAndFormat (wdPasteDefault)
End With
End Sub
|
Всего записей: 125 | Зарегистр. 01-02-2007 | Отправлено: 21:38 09-10-2012 | Исправлено: ol7ca, 22:03 09-10-2012 |
|
