13/01/06 22:07:30.18
>>639
一行とか文頭の定義がよくわかっていませんが、こういうことでしょうか
Sub test2()
Dim p As Paragraph
Dim s As Range
Dim cnt As Long
For Each p In ActiveDocument.Paragraphs
For Each s In p.Range.Sentences
cnt = cnt + s.Characters.Count
Next
If cnt >= 4 Then
p.Range.Characters(1).InsertBefore "☆"
cnt = 0
End If
Next
End Sub