- 帖子
- 115
- 主題
- 33
- 精華
- 0
- 積分
- 152
- 點名
- 0
- 作業系統
- windows XP
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-5-19
- 最後登錄
- 2024-1-18
|
每一行頭尾加字問題?
在網路上查到以下可在每一行頭尾加字的程式
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) 的用意是??? |
|
發表於 2012-6-14 11:43
| 
