- 帖子
- 7
- 主題
- 0
- 精華
- 0
- 積分
- 7
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- word10
- 閱讀權限
- 10
- 註冊時間
- 2018-12-30
- 最後登錄
- 2020-6-21
|
SELECTION.Find.Execute FindText:="<抬頭>"
SELECTION.EndKey unit:=wdLine
SELECTION.HomeKey unit:=wdStory, Extend:=wdExtend
a=selection.range.characters.count
SELECTION.homeKey
SELECTION.Find.Execute FindText:="<結尾>"
SELECTION.homeKey unit:=wdLine
SELECTION.HomeKey unit:=wdStory, Extend:=wdExtend
b=selection.range.characters.count
Set myRange = ActiveDocument.Range(Start:=a, End:=b)
msgbox myRange |
|
發表於 2019-5-21 16:54
| 