在word中制作壹個宏，可將所有行首字母為特定字母的所在行加粗。如何實現？

下面的宏已完成功能（字母區分大小寫）

Sub Macro1()

'

' Macro1 Macro

' 宏在 2005-10-16 由 lam 錄制

'

Dim char As String

Dim temp As String

Dim blnBold As Boolean

Dim i As Long

Dim m As Long

Dim n As Long

Dim blnFound As Boolean

temp = Left(InputBox("請選擇操作：" & vbCrLf & "輸入T表示加粗" & vbCrLf & "輸入F表示取消加粗", "提示"), 1)

If UCase(temp) = "T" Then

blnBold = True

ElseIf UCase(temp) = "F" Then

blnBold = False

Else

Exit Sub

End If

char = Left(InputBox("請輸入要加粗或取消加粗的行的首字母", "提示"), 1)

If char = "" Then Exit Sub

m = 0: n = 0: blnFound = False

If Application.ActiveDocument.Characters(1) = char Then

m = i

blnFound = True

End If

For i = 2 To Application.ActiveDocument.Characters.count

If Not blnFound And Application.ActiveDocument.Characters(i) = char _

And Application.ActiveDocument.Characters(i - 1) = vbCr Then

m = i - 1

blnFound = True

ElseIf blnFound And Application.ActiveDocument.Characters(i) = vbCr Then

n = i - 1

Call Selection.SetRange(m, n)

Selection.Font.Bold = blnBold

blnFound = False

End If

Next

End Sub