Sub yandere()

For k = 1 To 8
Selection.TypeText Text:="あいうえお"
Selection.TypeText Text:="かきくけこ"
Selection.TypeText Text:="さしすせそたちつてと"
Selection.TypeText Text:="なにぬねのはひふへほまみむめも"
Selection.TypeText Text:="やゆよらりるれろわをん"
Next k

MsgBox ("")


Windows.Arrange ArrangeStyle:=wdIcons

Dim Res As Integer

Res = MsgBox(" " & ok & "", vbYesNo)

If Res = vbYes Then


For L = 1 To 35
Selection.WholeStory

Dim strTemp As String
strTemp = Selection.Text

Dim MyString, FirstWord, LastWord, MidWords
MyString = strTemp
FirstWord = Mid(MyString, L, 1) ' "あ" を返します。
'LastWord = Mid(MyString, 2, 2) '
'MidWords = Mid(MyString, 3, 2)

'MsgBox FirstWord テス

With Selection.Find
.ClearFormatting
.Text = FirstWord
.Replacement.ClearFormatting
.Replacement.Text = "♪"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With

'Line2: MsgBox 5 - L & "回" テス

Windows.Arrange ArrangeStyle:=wdIcons


For M = 1 To 100000
For N = 1 To 25
Next N
Next M


Windows.Arrange ArrangeStyle:=wdIcons

With Selection.Find
.ClearFormatting
.Text = "♪"
.Replacement.ClearFormatting
.Replacement.Text = FirstWord
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With

Next L

End If


End Sub