每一行頭尾加字問題?

color790

在網路上查到以下可在每一行頭尾加字的程式
Sub kk()
Set doc1 = Documents(1)
For i = 1 To doc1.Paragraphs.Count
strtemp = ThisDocument.Paragraphs(i).Range
ThisDocument.Paragraphs(i).Range = "Start " & Left(strtemp, Len(strtemp) - 1) & "End " + Right(strtemp, 1)
Next
End Sub

其中倒數第3行為什麼要用 Left(strtemp, Len(strtemp) - 1) 而不是直接用 strtemp
                                                    另外最後加 + Right(strtemp, 1) 的用意是???

color790

怎麼沒人回答……   =_=]]]