13/01/07 00:02:53.60
>>639
>>641はうまくいかなかったので、書き直しました。
Sub tset3()
Dim n As Long
Dim i As Long
Selection.MoveStart Unit:=wdStory
n = Selection.Information(wdFirstCharacterLineNumber)
Selection.HomeKey Unit:=wdStory, Extend:=wdMove
For i = 1 To n
If Selection.EndKey(Unit:=wdLine, Extend:=wdMove) >= 4 Then
Selection.HomeKey Unit:=wdLine, Extend:=wdMove
Selection.InsertBefore "☆"
End If
Selection.HomeKey Unit:=wdLine, Extend:=wdMove
Selection.MoveDown Unit:=wdLine, Extend:=wdMove
Next
End Su