VBA代碼將文本框中所選內容中的所有數字加粗？

Question

我有代碼將所選文本的字體更改為Arial且大小為10，這很簡單：

Sub Arial10()
    With Selection.ShapeRange.TextFrame2.TextRange.Font
        .name = "Arial"
        .Size = 10
    End With
End Sub

如何在此宏中添加加粗顯示此選擇項中的任何數字和破折號（“-”）？

Answer 1

來了...

Sub Arial10()
With Selection.ShapeRange.TextFrame2.TextRange.Font
    .Name = "Arial"
    .Size = 10


End With

'-----BOLD all numbers and dashes-----
With Selection.ShapeRange.TextFrame2.TextRange
    Dim i As Long
    For i = 1 To Len(.Text)
        If Mid(.Text, i, 1) Like "#" Or _
            Mid(.Text, i, 1) = "-" Then
                .Characters(i, 1).Font.Bold = True
        End If
    Next
End With

End Sub

Answer 2

另取：

Sub Arial10andBoldStuff()
Dim shp As ShapeRange
Dim i As Long
Dim Char As Object

Set shp = Selection.ShapeRange
With shp.TextFrame2.TextRange
    With .Font
        .Name = "Arial"
        .Size = 10
    End With
    For i = 1 To .Characters.Count
        Set Char = .Characters(i, 1)
        If IsNumeric(Char) Or Char = "-" Then
            Char.Font.Bold = True
        End If
    Next i
End With
End Sub

將形狀設置為變量有助於獲取Intellisense。