光標(biāo)停留文檔

1、在WD中如何用VBA宏語(yǔ)言選定一行、一段，刪除一行、一段，移動(dòng)光標(biāo)至行首、行尾、段首、段尾等。請(qǐng)看以下內(nèi)容。SubMoveToCurrentLineStart()移動(dòng)光標(biāo)至當(dāng)前行首ion.HomeKeyunit:=wdLineEndSubSubMoveToCurrentLineEnd()移動(dòng)光標(biāo)至當(dāng)前行尾ion.EndKeyunit:=wdLineEndSubSubToCurrentLineStart()選擇從光標(biāo)至當(dāng)前行首的內(nèi)容ion

2、.HomeKeyunit:=wdLineExtend:=wdExtendEndSubSubToCurrentLineEnd()選擇從光標(biāo)至當(dāng)前行尾的內(nèi)容ion.EndKeyunit:=wdLineExtend:=wdExtendEndSubSubCurrentLine()選擇當(dāng)前行ion.HomeKeyunit:=wdLineion.EndKeyunit:=wdLineExtend:=wdExtendEndSubSubMoveToDoc

3、Start()移動(dòng)光標(biāo)至文檔開(kāi)始ion.HomeKeyunit:=wdStyEndSubSubMoveToDocEnd()移動(dòng)光標(biāo)至文檔結(jié)尾ion.EndKeyunit:=wdStyEndSubSubToDocStart()選擇從光標(biāo)至文檔開(kāi)始的內(nèi)容ion.HomeKeyunit:=wdStyExtend:=wdExtendEndSubSubToDocEnd()選擇從光標(biāo)至文檔結(jié)尾的內(nèi)容ion.EndKeyunit:=wdStyExte

4、nd:=wdExtendEndSubSubDocAll()選擇文檔全部?jī)?nèi)容（從WholeSty可猜出Sty應(yīng)是當(dāng)前文檔的意思）ion.WholeStyEndSubSubMoveToCurrentParagraphStart()移動(dòng)光標(biāo)至當(dāng)前段落的開(kāi)始ion.MoveUpunit:=wdParagraphEndSubSubMoveToCurrentParagraphEnd()移動(dòng)光標(biāo)至當(dāng)前段落的結(jié)尾ion.MoveDownunit:=wd

5、ParagraphEndSubSubToCurrentParagraphStart()選擇從光標(biāo)至當(dāng)前段落開(kāi)始的內(nèi)容ion.MoveUpunit:=wdParagraphExtend:=wdExtendEndSubSubToCurrentParagraphEnd()選擇從光標(biāo)至當(dāng)前段落結(jié)尾的內(nèi)容ion.MoveDownunit:=wdParagraphExtend:=wdExtendEndSubSubCurrentParagraph()

6、選擇光標(biāo)所在段落的內(nèi)容ion.MoveUpunit:=wdParagraphion.MoveDownunit:=wdParagraphExtend:=wdExtendEndSubSubDisplayionStartEnd()顯示選擇區(qū)的開(kāi)始與結(jié)束的位置，注意：文檔第1個(gè)字符的位置是0MsgBox(“第“&ion.Start&“個(gè)字符至第“&ion.End&“個(gè)字符“)EndSubSubCurrentLine()刪除當(dāng)前行ion.Home