Sub ChangeFont() Dim i As Long For i = 1 To ThisDocument.Characters.Count Select Case Asc(ThisDocument.Characters( i )) Case Asc("A") To Asc("Z"), Asc("a") To Asc("z") '英文字母 ThisDocument.Characters( i ).Font.Name = "Courier New" Case Asc("0") To Asc("9") '數字 ThisDocument.Characters( i ).Font.Name = "Times New Roman" End Select Next i End Sub