Вход на сайт
VBA für Word
136 просмотров
Перейти к просмотру всей ветки
в ответ Puschkina 05.01.11 19:11
Компиляция ваших предложений + немного от себя
В ответ на:
Sub ErstesWortImAbsatzFett()
Dim i As Integer
For i = 1 To ActiveDocument.Paragraphs.Count
With ActiveDocument.Paragraphs(i).Range
With .Words.First
.Font.Bold = True
End With
End With
Next
End Sub
Sub ErstesWortImAbsatzFett()
Dim i As Integer
For i = 1 To ActiveDocument.Paragraphs.Count
With ActiveDocument.Paragraphs(i).Range
With .Words.First
.Font.Bold = True
End With
End With
Next
End Sub