從網路上找到可以設定字體的程式。

但我要如何把某個字串中的一個單字變成斜體或黑體？
底下是我用 excel 巨集抓下來的，有人可以幫我轉成 BCB 嗎？


[code vb]
Sub Macro2()

Range("A1").Select
ActiveCell.FormulaR1C1 = "He gained his nickname for killing"
With ActiveCell.Characters(Start:=1, Length:=3).Font
.Name = "Times New Roman"
.FontStyle = "標準"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=4, Length:=10).Font
.Name = "Times New Roman"
.FontStyle = "斜體"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=14, Length:=10).Font
.Name = "Times New Roman"
.FontStyle = "標準"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=24, Length:=2).Font
.Name = "Times New Roman"
.FontStyle = "粗體"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=26, Length:=2).Font
.Name = "Times New Roman"
.FontStyle = "標準"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=28, Length:=7).Font
.Name = "Times New Roman"
.FontStyle = "標準"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
.ColorIndex = xlAutomatic
End With
Range("A2").Select
End Sub
[/code]

------
無所不在