■

＜Markdown記法法＞
-ソースコードを貼り付け方

```
言語名
ソースコード
```

-特殊文字をそのまま表示したい場合は、 バックスラッシュ()でエスケープ
-文章の最後に半角スペースを２つ以上入力することで改行
-また複数行に渡って空白行を挿入したい場合、HTMLタグの
を挿入して改行

Sub 読み上げ()
Dim Voice1
Dim cnt As Long
Dim r As Range
Dim str As String

Set Voice1 = CreateObject("SAPI.SpVoice")
Set Voice1.Voice = Voice1.GetVoices().Item(1)
For Each r In Selection
str = r.Value
If str <> "" Then
Voice1.Speak str
End If
Next
End Sub