¾«Í¨ÔÚVFPÖе÷ÓÃWORDµÄ·½·¨(5)

2019-08-30 22:49

Óï·¨£ºexpression.MoveDown(Unit, Count, Extend) ½«ËùÑ¡ÄÚÈÝÏòÏÂÒÆ¶¯£¬²¢·µ»ØÒƶ¯¾àÀëµÄµ¥Î»Êý¡£ expression ±ØÐè¡£¸Ã±í´ïʽ·µ»ØÒ»¸ö Selection ¶ÔÏó¡£ Unit ÊýÖµÐÍ£¬¿ÉÑ¡¡£ËùÑ¡ÄÚÈÝÒÆ¶¯¾àÀëµÄ¶ÈÁ¿µ¥Î»£º 4£­¶ÎÂ䣬5£­ÐС£Ä¬ÈÏÖµÊÇ 5¡£

Count ÊýÖµÐÍ£¬¿ÉÑ¡¡£ËùÑ¡ÄÚÈÝÒÆ¶¯¾àÀëµÄµ¥Î»Êý¡£Ä¬ÈÏֵΪ 1¡£ Extend ÊýÖµÐÍ£¬¿ÉÑ¡¡£¿ÉΪ 0 »ò 1¡£Èç¹ûÊÇ 0£¬ÔòËùÑ¡ÄÚÈÝÕÛµþµ½½áÊøÎ»Ö㬲¢ÏòÏÂÒÆ¶¯¡£Èç¹ûÊÇ 1£¬ÔòËùÑ¡ÄÚÈÝÏòÏÂÀ©Õ¹¡£Ä¬ÈÏֵΪ 0¡£

ÏÂÀý½«ËùÑ¡ÇøÓòÀ©Õ¹2ÐС£ MyWord.Selection.MoveDown(5,2,1) ¢çMoveEnd ·½·¨

Óï·¨£ºexpression.MoveEnd(Unit, Count)

ÒÆ¶¯ÇøÓò»òËùÑ¡ÄÚÈݵĽáÊø×Ö·ûλÖᣱ¾·½·¨Èç¹û·µ»ØÒ»¸öÕûÊý£¬±íÊ¾ÇøÓò»òËùÑ¡ÄÚÈÝËùÒÆ¶¯µÄµ¥ÔªÊý£»Èç¹û·µ»Ø 0£¬ÔòÒÆ¶¯Ê§°Ü¡£

expression ±ØÐè¡£¸Ã±í´ïʽ·µ»ØÒ»¸ö Range »ò Selection ¶ÔÏó¡£ Unit ÊýÖµÐÍ£¬¿ÉÑ¡¡£ËùÑ¡ÄÚÈÝÒÆ¶¯¾àÀëµÄ¶ÈÁ¿µ¥Î»£º 1£­×Ö·û£¬4£­¶ÎÂ䣬9£­ÁУ¬10£­±í¸ñÐУ¬12£­µ¥Ôª¸ñ¡£Ä¬ÈÏֵΪ1¡£

Èç¹û±í´ïʽµÄ·µ»ØÖµÊÇ Selection ¶ÔÏó£¬Ò²¿ÉÒÔʹÓà 5¡£ Count ÊýÖµÐÍ£¬¿ÉÑ¡¡£Ö¸Òƶ¯µÄµ¥ÔªÊý¡£Èç¹ûΪÕýÊý£¬Ôò½áÊø×Ö·ûÔÚÎĵµÖÐÏòºóÒÆ¶¯£»Èç¹ûΪ¸ºÊý£¬Ôò½áÊø×Ö·ûÏòÇ°ÒÆ¶¯¡£Èç¹û½áÊøÎ»ÖÃÒÑÒÆÖÁÆðʼλÖã¬ÔòÕÛµþ¸ÃÇøÓò²¢Òƶ¯Ê×Ä©Á½¸ö×Ö·ûµÄλÖá£

ÏÂÀý½«ËùÑ¡ÇøÓòµÄ½áÊøÎ»ÖúóÒÆÒ»¸ö×Ö·û¡£ MyWord.Selection.MoveEnd(1,1) ¢èMoveEndUntil ·½·¨

Óï·¨£ºexpression.MoveEndUntil(Cset, Count)

ÒÆ¶¯Ö¸¶¨ÇøÓò»òËùÑ¡ÄÚÈݵĽáÊøÎ»Öã¬Ö±µ½ÔÚÎĵµÖÐÕÒµ½ÈκÎÖ¸¶¨µÄ×Ö·û¡£Èç¹ûÔÚÎĵµÖÐÊÇÏòÇ°ÒÆ¶¯£¬ÔòÀ©Õ¹¸ÃÇøÓò»òËùÑ¡ÄÚÈÝ¡£

±¾·½·¨½«ÇøÓò»òËùÑ¡ÄÚÈݵĽáÊøÎ»ÖõÄÒÆ¶¯×Ö·ûÊýÒÔÊýÖµÐÍ·µ»Ø¡£Èç¹û Count ´óÓÚ 0£¬Ôò±¾·½·¨·µ»ØÒƶ¯×Ö·ûÊý¼Ó 1 µÄÖµ¡£Èç¹û

21

Count СÓÚ 0£¬Ôò±¾·½·¨·µ»ØÒƶ¯×Ö·ûÊý¼õ 1 µÄÖµ¡£Èç¹ûûÓÐÕÒµ½ Cset ×Ö·û£¬Ôò²»¸Ä±äÇøÓò»òËùÑ¡ÄÚÈÝ£¬²¢ÇÒ±¾·½·¨·µ»Ø 0¡£Èç¹û½áÊøÎ»ÖÃÏòºóÒÆ¶¯²¢³¬¹ýÔ­À´µÄ¿ªÊ¼Î»Öã¬Ôò½«¿ªÊ¼Î»ÖÃÉèÖÃΪеĽáÊøÎ»Öá£

expression ±ØÐè¡£¸Ã±í´ïʽ·µ»ØÒ»¸ö Range »ò Selection ¶ÔÏó¡£

Cset ×Ö·ûÐÍ£¬±ØÐè¡£Ò»¸ö»ò¶à¸ö×Ö·û¡£¸Ã²ÎÊýÇø·Ö´óСд¡£ Count ÊýÖµÐÍ£¬¿ÉÑ¡¡£Ö¸¶¨ÇøÓò»òËùÑ¡ÄÚÈÝÒÆ¶¯µÄ×î´ó×Ö·ûÊý¡£Èç¹û Count ÊÇÕýÊý£¬ÔòÇøÓò»òËùÑ¡ÄÚÈÝÔÚÎĵµÖÐÏòÇ°ÒÆ¶¯¡£Èç¹û Count ÊǸºÊý£¬ÔòÇøÓò»òËùÑ¡ÄÚÈÝÏòºóÒÆ¶¯¡£Ä¬ÈÏÏòÇ°ÒÆ¶¯¡£

ÏÂÀý½«ËùÑ¡ÇøÓòÀ©Õ¹µ½Ö±µ½ S ×Ö·û³öÏÖ¡£ MyWord.Selection.MoveEndUntil('S') ¢éMoveLeft ·½·¨

Óï·¨£ºexpression.MoveLeft(Unit, Count, Extend) ½«ËùÑ¡ÄÚÈÝÏò×óÒÆ¶¯£¬²¢·µ»ØÒƶ¯¾àÀëµÄµ¥Î»Êý¡£ expression ±ØÐè¡£¸Ã±í´ïʽ·µ»ØÒ»¸ö Selection ¶ÔÏó¡£ Unit ÊýÖµÐÍ£¬¿ÉÑ¡¡£ËùÑ¡ÄÚÈÝÒÆ¶¯¾àÀëµÄ¶ÈÁ¿µ¥Î»£º 1£­×Ö·û 12£­µ¥Ôª¸ñ¡£Ä¬ÈÏֵΪ 1¡£

Count ÊýÖµÐÍ£¬¿ÉÑ¡¡£ËùÑ¡ÄÚÈÝÒÆ¶¯¾àÀëµÄµ¥Î»Êý¡£Ä¬ÈÏÖµÊÇ 1¡£ Extend ÊýÖµÐÍ£¬¿ÉÑ¡¡£¿ÉÒÔÊÇ 0 »ò 1¡£Èç¹ûÊÇ 0£¬ÔòËùÑ¡ÄÚÈÝÕÛµþµ½ÆðʼλÖ㬲¢Ïò×óÒÆ¶¯¡£Èç¹ûÊÇ 1£¬ÔòËùÑ¡ÄÚÈÝÏò×óÀ©Õ¹¡£Ä¬ÈÏÖµÊÇ 0¡£

ÏÂÀý½«ËùÑ¡ÄÚÈÝÕÛµþµ½ÆðʼλÖ㬲¢Ïò×óÒÆ¶¯1¸ö×Ö·û¡£ MyWord.Selection.MoveLeft ¢êMoveRight·½·¨

Óï·¨£ºexpression.MoveRight(Unit, Count, Extend) ½«ËùÑ¡ÄÚÈÝÏòÓÒÒÆ¶¯£¬²¢·µ»ØÒƶ¯¾àÀëµÄµ¥Î»Êý¡£

expression ±ØÐè¡£¸Ã±í´ïʽ·µ»ØÒ»¸ö Selection ¶ÔÏó¡£

Unit ÊýÖµÐÍ£¬¿ÉÑ¡¡£ËùÑ¡ÄÚÈÝÒÆ¶¯¾àÀëµÄ¶ÈÁ¿µ¥Î»£º

1£­×Ö·û 12£­µ¥Ôª¸ñ¡£Ä¬ÈÏֵΪ 1¡£

Count ÊýÖµÐÍ£¬¿ÉÑ¡¡£ËùÑ¡ÄÚÈÝÒÆ¶¯¾àÀëµÄµ¥Î»Êý¡£Ä¬ÈÏÖµÊÇ 1¡£

22

Extend ÊýÖµÐÍ£¬¿ÉÑ¡¡£¿ÉÒÔÊÇ 0 »ò 1¡£Èç¹ûÊÇ 0£¬ÔòËùÑ¡ÄÚ

ÈÝÕÛµþµ½½áÊøÎ»Ö㬲¢ÏòÓÒÒÆ¶¯¡£Èç¹ûÊÇ 1£¬ÔòËùÑ¡ÄÚÈÝÏòÓÒÀ©Õ¹¡£Ä¬ÈÏÖµÊÇ 0¡£

ÏÂÀý½«ËùÑ¡ÄÚÈÝÕÛµþµ½½áÊøÎ»Ö㬲¢ÏòÓÒÒÆ¶¯1¸ö×Ö·û¡£ MyWord.Selection.MoveRight ¢ëMoveStart ·½·¨

Óï·¨£ºexpression.MoveStart(Unit, Count)

ÒÆ¶¯Ö¸¶¨ÇøÓò»òËùÑ¡ÄÚÈݵĿªÊ¼Î»Öᣱ¾·½·¨·µ»ØÒ»¸öÕûÊý£¬¸ÃÕûÊý±íÃ÷¿ªÊ¼Î»ÖᢸÃÇøÓò»òËùÑ¡ÄÚÈÝʵ¼ÊÒÆ¶¯µÄµ¥Î»Êý£¬Èç¹ûÒÆ¶¯²»³É¹¦£¬Ôò±¾·½·¨·µ»Ø 0¡£

expression ±ØÐè¡£¸Ã±í´ïʽ·µ»ØÒ»¸ö Range »ò Selection ¶ÔÏó¡£ Unit ÊýÖµÐÍ£¬¿ÉÑ¡¡£ËùÑ¡ÄÚÈÝÒÆ¶¯¾àÀëµÄ¶ÈÁ¿µ¥Î»£º

1£­×Ö·û£¬4£­¶ÎÂ䣬 9£­ÁУ¬10£­±í¸ñÐУ¬12£­µ¥Ôª¸ñ£¬15£­±í¸ñ¡£Ä¬ÈÏÖµÊÇ 1¡£

Èç¹û expression ·µ»Ø Selection ¶ÔÏó£¬ÔòÒ²¿ÉÒÔʹÓà 5¡£ Count ÊýÖµÐÍ£¬¿ÉÑ¡¡£ÇøÓò»òËùÑ¡ÄÚÈÝÒÆ¶¯µÄ×î´óµ¥Î»Êý¡£Èç¹û Count ÊÇÕýÊý£¬ÔòÇøÓò»òËùÑ¡ÄÚÈݵĿªÊ¼Î»ÖÃÔÚÎĵµÖÐÏòÇ°ÒÆ¶¯¡£Èç¹û Count ÊǸºÊý£¬ÔòÇøÓò»òËùÑ¡ÄÚÈÝÏòºóÒÆ¶¯¡£Ä¬ÈÏֵΪ 1¡£Èç¹û¿ªÊ¼Î»ÖÃÊÇÏòÇ°ÒÆÖÁ½áÊøÎ»ÖÃÖ®ºó£¬ÔòÕÛµþÇøÓò»òËùÑ¡ÄÚÈÝ£¬²¢ÇÒ¿ªÊ¼Î»ÖúͽáÊøÎ»ÖÃÒÆÖÁͬһλÖá£

ÏÂÀý½«ËùÑ¡ÄÚÈݵĿªÊ¼Î»ÖÃÏòÇ°ÒÆ¶¯Ò»¸ö×Ö·û£¨¼´ËùÑ¡ÄÚÈݼõÉÙÒ»¸ö×Ö·û£©¡£×¢Ò⣺һ¸ö¿Õ¸ñÒ²¿´×÷ÊÇÒ»¸ö×Ö·û¡£

MyWord.Selection.MoveStart(1,1)

ÏÂÀý½«ËùÑ¡ÄÚÈݵĿªÊ¼Î»ÖÃÒÆÖÁ¸ÃÐеĿªÍ·£¨ËùÑ¡ÄÚÈÝÀ©Õ¹µ½ÐеĿªÍ·£©¡£

MyWord.Selection.MoveStart(5,-1) ¢ìMoveStartUntil ·½·¨

Óï·¨£ºexpression.MoveStartUntil(Cset, Count)

ÒÆ¶¯Ö¸¶¨ÇøÓò»òËùÑ¡ÄÚÈݵĿªÊ¼Î»Öã¬Ö±µ½ÔÚÎĵµÖÐÕÒµ½ÈκÎÖ¸¶¨µÄ×Ö·û¡£Èç¹ûÔÚÎĵµÖÐÊÇÏòºóÒÆ¶¯£¬ÔòÀ©Õ¹ÇøÓò»òËùÑ¡ÄÚÈÝ¡£

±¾·½·¨½«Ö¸¶¨ÇøÓò»òËùÑ¡ÄÚÈÝ¿ªÊ¼Î»ÖõÄÒÆ¶¯×Ö·ûÊýÒÔÊýÖµÐÍ

23

·µ»Ø¡£Èç¹û Count ´óÓÚ 0£¬Ôò¸Ã·½·¨·µ»ØÒƶ¯µÄ×Ö·ûÊý¼Ó 1¡£Èç¹û Count СÓÚ 0£¬Ôò¸Ã·½·¨·µ»ØÒƶ¯µÄ×Ö·ûÊý¼õ 1¡£Èç¹ûδ·¢ÏÖ Cset ×Ö·û£¬Ôò²»¸Ä±äÖ¸¶¨ÇøÓò»òËùÑ¡ÄÚÈÝ£¬²¢·µ»Ø 0¡£Èç¹û¿ªÊ¼Î»ÖÃÒÆ¶¯ÖÁ½áÊøÎ»ÖúóµÄλÖã¬ÔòÕÛµþÖ¸¶¨ÇøÓò»òÑ¡¶¨ÄÚÈÝ£¬Í¬Ê±Òƶ¯¿ªÊ¼ºÍ½áÊøÎ»Öá£

expression ±ØÐè¡£±í´ïʽ·µ»ØÒ»¸öRange »ò Selection¶ÔÏó¡£ Cset ×Ö·ûÐÍ£¬±ØÐè¡£Ò»¸ö»ò¶à¸ö×Ö·û¡£¸Ã²ÎÊýÇø·Ö´óСд¡£ Count ÊýÖµÐÍ£¬¿ÉÑ¡¡£Ö¸¶¨ÇøÓò»òËùÑ¡ÄÚÈÝÒÆ¶¯µÄ×î´ó×Ö·ûÊý¡£Èç¹û Count ÊÇÕýÊý£¬ÔòÇøÓò»òËùÑ¡ÄÚÈÝÔÚÎĵµÖÐÏòÇ°ÒÆ¶¯¡£Èç¹û Count ÊǸºÊý£¬ÔòÇøÓò»òËùÑ¡ÄÚÈÝÏòºóÒÆ¶¯¡£Ä¬ÈÏΪÏòÇ°ÒÆ¶¯¡£

ÏÂÀýÔÚÎĵµÖÐÏòºóÀ©Õ¹ËùÑ¡ÄÚÈÝ£¬Ö±µ½ÕÒµ½×Öĸ¡°I¡±¡£ MyWord.Selection.MoveStartUntil(\

Èç¹ûÔÚËùÑ¡ÄÚÈݵĵÚÒ»¶ÎÓÐÃÀÔª×Ö·û ($)£¬ÏÂÀý½« myRange ÒÆµ½¸Ã×Ö·ûµÄÇ°Ãæ¡£

myRange = MyWord.Selection.Paragraphs(1).Range leng = myRange.End - myRange.Start myRange.Collapse(1)

myRange.MoveStartUntil(\myRange.Select ¢íMoveUp ·½·¨

Óï·¨£ºexpression.MoveUp(Unit, Count, Extend) ½«ËùÑ¡ÄÚÈÝÏòÉÏÒÆ¶¯£¬²¢·µ»ØÒƶ¯¾àÀëµÄµ¥Î»Êý¡£ expression ±ØÐè¡£¸Ã±í´ïʽ·µ»ØÒ»¸ö Selection ¶ÔÏó¡£ Unit ÊýÖµÐÍ£¬¿ÉÑ¡¡£ËùÑ¡ÄÚÈÝÒÆ¶¯¾àÀëµÄ¶ÈÁ¿µ¥Î»£º 4£­¶ÎÂ䣬5£­ÐС£Ä¬ÈÏÖµÊÇ 5¡£

Count ÊýÖµÐÍ£¬¿ÉÑ¡¡£ËùÑ¡ÄÚÈÝÒÆ¶¯¾àÀëµÄµ¥Î»Êý¡£Ä¬ÈÏֵΪ 1¡£ Extend ÊýÖµÐÍ£¬¿ÉÑ¡¡£¿ÉΪ 0 »ò 1¡£Èç¹ûÊÇ 0£¬ÔòËùÑ¡ÄÚÈÝÕÛµþµ½½áÊøÎ»Ö㬲¢ÏòÉÏÒÆ¶¯¡£Èç¹ûÊÇ 1£¬ÔòËùÑ¡ÄÚÈÝÏòÉÏÀ©Õ¹¡£Ä¬ÈÏֵΪ 0¡£

ÏÂÀý½«ËùÑ¡ÇøÓòÏòÉÏÀ©Õ¹2ÐС£ MyWord.Selection.MoveUp(5,2,1)

24

¢î

Îå¡¢±í¸ñ´¦Àí

1¡¢Table ¶ÔÏóºÍTables ¼¯ºÏ¶ÔÏó Table ¶ÔÏó´ú±íÒ»¸öµ¥¶ÀµÄ±í¸ñ¡£

Tables ¼¯ºÏ¶ÔÏóÓÉ Table ¶ÔÏó×é³ÉµÄ¼¯ºÏ£¬ÕâЩ¶ÔÏó´ú±íÑ¡¶¨ÄÚÈÝ¡¢·¶Î§»òÎĵµÖеıí¸ñ¡£

Table ¶ÔÏóÊÇ Tables ¼¯ºÏµÄÒ»¸ö³ÉÔ±¡£Tables ¼¯ºÏ°üº¬ÁËÖ¸¶¨µÄÑ¡¶¨ÄÚÈÝ¡¢·¶Î§»òÎĵµÖеÄËùÓбí¸ñ¡£

¿ÉʹÓà Tables ÊôÐÔ·µ»Ø Tables ¼¯ºÏ¡£¿ÉʹÓà Tables(index) ·µ»ØÒ»¸ö Table ¶ÔÏ󣬯äÖÐ index ΪË÷ÒýºÅ¡£Ë÷ÒýºÅ´ú±íÑ¡¶¨ÄÚÈÝ¡¢·¶Î§»òÎĵµÖбí¸ñµÄλÖá£

ÏÂÀý½«»î¶¯ÎĵµÖеĵÚÒ»¸ö±í¸ñת»»ÎªÎı¾¡£ ActiveDocument.Tables(1).ConvertToText 2¡¢Ìí¼Ó±í¸ñ

Óï·¨£ºexpression.Add(Range, NumRows, NumColumns) ·µ»ØÒ»¸ö Table ¶ÔÏ󣬸öÔÏó´ú±íÌí¼ÓÖÁÎĵµÖеĿհ×бí¸ñ¡£

expression ±ØÐè¡£¸Ã±í´ïʽ·µ»ØÒ»¸ö Tables ¶ÔÏó¡£

Range Range ¶ÔÏ󣬱ØÐè¡£Ö¸¶¨±í¸ñÏÔʾµÄÇøÓò¡£Èç¹û¸ÃÇøÓòδÕÛµþ£¬±í¸ñ½«Ìæ»»¸ÃÇøÓò¡£

NumRows ÊýÖµÐÍ£¬±ØÐè¡£ÒªÔÚ±í¸ñÖаüÀ¨µÄÐÐÊý¡£ NumColumns ÊýÖµÐÍ£¬±ØÐè¡£ÒªÔÚ±í¸ñÖаüÀ¨µÄÁÐÊý¡£ ÏÂÀýÔڻÎĵµµÄ¿ªÍ·Ìí¼ÓÒ»¸ö 3 ÐÐ 4 ÁеĿձí¸ñ¡£ MyRange = MyWord.ActiveDocument.Range(0, 0) MyWord.ActiveDocument.Tables.Add(MyRange, 3, 4) ±í¸ñ³£ÓõöÊôÐÔ£º £¨1£©PreferredWidthType ÊôÐÔ

·µ»Ø»òÉèÖÃÖ¸¶¨µ¥Ôª¸ñ¡¢Áлò±í¸ñµÄ¿í¶ÈµÄÊ×Ñ¡¶ÈÁ¿µ¥Î»¡£È¡Öµ£¨ÊýÖµÐÍ£©ÈçÏ£º

25


¾«Í¨ÔÚVFPÖе÷ÓÃWORDµÄ·½·¨(5).doc ½«±¾ÎĵÄWordÎĵµÏÂÔØµ½µçÄÔ ÏÂÔØÊ§°Ü»òÕßÎĵµ²»ÍêÕû£¬ÇëÁªÏµ¿Í·þÈËÔ±½â¾ö£¡

ÏÂһƪ£ºÏÖ´úͨÐż¼ÊõÕûÀí

Ïà¹ØÔĶÁ
±¾ÀàÅÅÐÐ
¡Á ×¢²á»áÔ±Ãâ·ÑÏÂÔØ£¨ÏÂÔØºó¿ÉÒÔ×ÔÓɸ´ÖƺÍÅŰ棩

ÂíÉÏ×¢²á»áÔ±

×¢£ºÏÂÔØÎĵµÓпÉÄÜ¡°Ö»ÓÐĿ¼»òÕßÄÚÈݲ»È«¡±µÈÇé¿ö£¬ÇëÏÂÔØÖ®Ç°×¢Òâ±æ±ð£¬Èç¹ûÄúÒѸ¶·ÑÇÒÎÞ·¨ÏÂÔØ»òÄÚÈÝÓÐÎÊÌ⣬ÇëÁªÏµÎÒÃÇЭÖúÄã´¦Àí¡£
΢ÐÅ£º QQ£º