如何自动将每行前两个单词改为斜体，求助各位

Rt......见附件

是不是用函数不好实现呢？

Public Sub chanfont()
Application.ScreenUpdating = False
Dim x As Range, i
For Each x In Selection
    If x = "" Then GoTo 100
    For i = 1 To Len(x)
        x.Characters(1, InStr(1, x.Value, "‘") - 1).Font.Italic = True
    Next i
100:
Next x
Application.ScreenUpdating = True
End Sub

选定区域后再执行宏