■
<Markdown記法法>
-ソースコードを貼り付け方
```
言語名
ソースコード
```
-特殊文字をそのまま表示したい場合は、 バックスラッシュ()でエスケープ
-文章の最後に半角スペースを2つ以上入力することで改行
-また複数行に渡って空白行を挿入したい場合、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