標題: 每一行頭尾加字問題? [打印本頁]

---

作者: color790    時間: 2012-6-14 11:43     標題: 每一行頭尾加字問題?

在網路上查到以下可在每一行頭尾加字的程式
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    時間: 2012-6-15 18:09

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)