vb²Ù×÷wordÏê½â(3)

2019-06-11 13:56

ActiveDocument. PrintOut

Ҫͨ¹ý³ÌÐòÀ´ÉèÖÃÄÇЩҲ¿ÉÒÔÔÚ¡°´òÓ¡¡±¶Ô»°¿ò(ÔÚ¡°Îļþ¡±²Ëµ¥ÖÐ)Àï½øÐÐÉèÖõĴòÓ¡Ñ¡Ï¿ÉÒÔʹÓÃPrintOut ·½·¨µÄ²ÎÊýÀ´ÊµÏÖ¡£Óû§¿ÉÒÔʹÓÃOptions ¶ÔÏóµÄÊôÐÔÀ´ÉèÖôòÓ¡Ñ¡ÏÕâЩѡÏîÒ²¿ÉÒÔÔÚ¡°Ñ¡Ï¶Ô»°¿ò(ÔÚ¡°¹¤¾ß¡±²Ëµ¥ÖÐ)¡°´òÓ¡¡±Ò»±íÀï½øÐÐÉèÖá£ÒÔÏÂʾÀýÉèÖûÎĵµ´òÓ¡Òþ²ØµÄÎÄ×Ö£¬²¢ÇÒÖ»´òÓ¡³öǰÈýÒ³¡£

Options. PrintHiddenText = True ActiveDocument. From :=\

¹Ø±ÕÎĵµ

Òª¹Ø±ÕÒ»¸öÎĵµ£¬¿ÉÒÔ¶ÔDocument¶ÔÏóÓ¦ÓÃClose·½·¨¡£ÒÔϵÄʾÀý¹Ø±ÕÁËÃûΪ¡°Sales.doc¡±µÄÎĵµ¡£

Documents (\

Èç¹û¶ÔÎĵµ½øÐйýÐ޸ģ¬Word»áÏÔʾ³öÒ»ÌõÏûÏ¢À´Ñ¯ÎÊÓû§ÊÇ·ñÒª±£´æËù½øÐеÄÐ޸ġ£Óû§¿ÉÒÔËæSaveChanges²ÎÊýʹÓÃwdDoNotSaveChanges»ò wdSaveChanges³£Á¿À´Ê¹¸ÃÌáʾ²»ÔÙ³öÏÖ¡£ÒÔϵÄʾÀý±£´æ²¢ÇҹرÕÁËSales.doc¡£

Documents

(\

Close

PrintOut

Range

:=wdPrintFromTo,

SaveChanges :=wdSaveChanges

Òª¹Ø±ÕËùÓÐÒÑ´ò¿ªµÄÎĵµ£¬¿ÉÒÔ¶ÔDocuments¼¯ºÏÓ¦ÓÃClose·½·¨¡£ÒÔϵÄʾÀýûÓб£´æÐ޸ľ͹رÕÁËËùÓеÄÎĵµ¡£

Documents. Close SaveChanges :=wdDoNotSaveChanges

·ÃÎÊÎĵµÖеĶÔÏó

Óû§¿ÉÒÔ´ÓDocument¶ÔÏóÀ´·ÃÎÊ·µ»Ø¶ÔÏóµÄһϵÁÐÊôÐԺͷ½·¨¡£Òª²é¿´ÔÚDocument¶ÔÏóÖÐËùÄÜʹÓõĶÔÏóµÄ²ã´Î¹ØÏµÍ¼£¬¿ÉÒÔ²ÎÔÄ¡°°ïÖú¡±Öеġ°Microsoft Word¶ÔÏó(Documents)¡±¡£ÀýÈ磬TableÊôÐÔ£¬ËüÄܹ»·µ»ØÒ»¸öTable¶ÔÏóµÄ¼¯ºÏ£¬¿ÉÒÔÔÚDocument¶ÔÏóÖÐʹÓá£Ëæ×ÅÒ»¸ö¼¯ºÏ¶ÔÏóʹÓõÄCountÊôÐÔÄܹ»ÅжÏÔڸü¯ºÏÖÐËù°üº¬µÄÏîÊý¡£ÒÔϵÄʾÀýÏÔʾһÌõÏûÏ¢À´Ö¸³öÔڻÎĵµÖÐÓжàÉÙ±í¸ñ¡£

MsgBox ActiveDocument. Tables. Count & \document\

ʹÓÃTable(index)¿ÉÒÔ·µ»ØÒ»¸öµ¥Õűí¸ñ¶ÔÏó£¬ÕâÀïµÄindexÊÇË÷ÒýºÅ¡£ÔÚÒÔϵÄʾÀýÖУ¬myTable´ú±í¡°Sales.doc¡±ÎĵµÀïµÄµÚÒ»Õűí¸ñ¡£

Set myTable = Documents (\¹ØÓÚ·µ»ØÒ»¸öÌØÊâ¶ÔÏóµÄÐÅÏ¢¿ÉÒÔ´Ó¡°°ïÖú¡±ÖеĶÔÏóÖ÷Ìâ±¾Éí (ÀýÈ磬¡°Table ¶ÔÏó¡±)ºÍÏàÓ¦µÄ¼¯ºÏ¶ÔÏóÖ÷Ìâ(ÀýÈ磬¡°Table¼¯ºÏ¶ÔÏó¡±)ÖлñµÃ¡£

ÏòÎĵµÌí¼Ó¶ÔÏó

¿ÉÒÔʹÓÃËæ×ÅÄÜÔÚDocument¶ÔÏóÖзÃÎʵļ¯ºÏ¶ÔÏóµÄAdd·½·¨À´ÏòÎĵµÌí¼ÓÖîÈç½Å×¢¡¢±¸×¢»ò±í¸ñÕâÑùµÄ¶ÔÏó¡£ÀýÈ磬ÒÔÏÂÃüÁîÔÚmyRange±äÁ¿(myRangeÊÇÒ»¸ö°üº¬ÁËÒ»¸öRange¶ÔÏóµÄ¶ÔÏó±äÁ¿)ËùÖ¸¶¨µÄλÖÃÉÏÌí¼ÓÁËÒ»ÕÅ3x3µÄ±í¸ñ¡£

ActiveDocument. Tables. Add Range :=myRange, NumRows :=3, NumColumns :=3

ÒÔϵÄʾÀýÔÚmyRange±äÁ¿ËùÖ¸¶¨µÄλÖÃÉÏÌí¼ÓÁËÒ»¸ö½Å×¢¡£ ActiveDocument.

Footnotes.

Add

Range

:=myRange,

Text :=\

Òª»ñµÃÖ§³ÖAdd·½·¨µÄ¼¯ºÏ¶ÔÏóÁÐ±í£¬Çë²ÎÔÄ¡°°ïÖú¡±Öеġ°Add ·½·¨¡±¡£

ÔËÓÃRange¶ÔÏó

µ±Ê¹ÓÃVisual Basicʱһ¸ö³£¼ûµÄÈÎÎñ¾ÍÊÇÔÚÎĵµÖÐÖ¸¶¨Ò»¿éÇøÓò£¬È»ºó¶ÔËü½øÐд¦Àí£¬±ÈÈç²åÈëÎÄ×Ö»òÓ¦ÓøñʽµÈ¡£ÀýÈ磬Óû§¿ÉÄÜÏë±àдһ¸öºê£¬À´¶ÔÎĵµÖÐij¸ö²¿·ÖÀïµÄij¸öµ¥´Ê»ò¶ÌÓï½øÐж¨Î»¡£ÄǾͿÉÒÔʹÓÃÒ»¸öRange¶ÔÏóÀ´±íʾÏëÔÚÆäÖÐËÑË÷ÌØ¶¨µ¥´Ê»ò¶ÌÓïµÄ²¿·ÖÎĵµ¡£ÔÚÈ·¶¨Range¶ÔÏóºó£¬Óû§Äܹ»Ó¦ÓøöÔÏóµÄ·½·¨ºÍÊôÐÔÀ´ÐÞ¸ÄÏàÓ¦·¶Î§ÖеÄÄÚÈÝ¡£

Ò»¸öRange¶ÔÏó´ú±íÁËÎĵµÖеÄÒ»¿éÁ¬ÐøµÄÇøÓò¡£Ã¿Ò»¸öRange¶ÔÏó¶¼ÓÉÒ»¸öÆðʼ×Ö·ûλÖúÍÒ»¸öÖÕÖ¹×Ö·ûλÖÃÀ´¶¨Òå¡£ÓëÓû§ÔÚÎĵµÖÐʹÓÃÊéÇ©µÄ·½·¨ÀàËÆ£¬¿ÉÒÔÔÚVisual BasicÖÐʹÓÃRange¶ÔÏóÀ´Ê¶±ðÒ»¸öÎĵµµÄÌØ¶¨²¿·Ö¡£Ò»¸öRange¶ÔÏó¼È¿ÉÒԺͲåÈëµãÒ»ÑùС£¬Ò²¿ÉÒÔºÍÕû¸öÎĵµÒ»Ñù´ó¡£µ«ÊÇ£¬ÓëÊéÇ©²»Í¬£¬Range¶ÔÏó½ö½öÔÚ¶¨ÒåËüµÄ¹ý³ÌÕýÔÚÔËÐÐʱ²Å´æÔÚ¡£

Range¶ÔÏóͬѡ¶¨ÄÚÈÝÏ໥¶ÀÁ¢£»Ò²¾ÍÊÇ˵£¬¿ÉÒÔ¶¨ÒåºÍÐ޸ķ¶

Χ¶ø²»»á¸Ä±äÑ¡¶¨ÄÚÈÝ¡£Óû§Ò²¿ÉÒÔÔÚÎĵµÖж¨Òå¶à¸ö·¶Î§£¬¶ø´Ëʱÿ¸öÎĵµ´°¸ñÖнöÓÐÒ»¸öÑ¡¶¨ÄÚÈÝ¡£

Start¡¢EndºÍStoryTypeÊôÐÔΨһµØÈ·¶¨ÁËÒ»¸öRange¶ÔÏó¡£StartºÍEndÊôÐԷֱ𷵻ػòÕßÉèÖÃRange¶ÔÏóµÄÆðʼºÍ½áÊø×Ö·ûµÄλÖá£Ã¿¸öÎĵµ¹¹³É²¿·ÖÆðʼ´¦µÄ×Ö·ûλÖÃÊÇ0 (zero)£¬¶øµÚÒ»¸ö×Ö·ûÖ®ºóµÄλÖÃÊÇ1£¬ÒÀ´ËÀàÍÆ¡£StoryType ÊôÐÔµÄWdStoryType³£Á¿¿ÉÒÔ±íʾʮһÖÖ²»Í¬µÄÎĵµ¹¹³É²¿·ÖÀàÐÍ¡£ÀýÈ磬Èç¹ûÔÚ×¢½ÅÇøÓòÖÐÓÐÒ»¸öRange¶ÔÏó£¬ÄÇôStoryTypeÊôÐÔ·µ»ØwdFootnotesStory¡£Òª¶ÔÎĵµ¹¹³É²¿·Ö×÷½øÒ»²½Á˽⣬Çë²ÎÔı¾½ÚºóÃæµÄ¡°ÔËÓÃÎĵµ¹¹³É²¿·Ö¡±Ò»½ÚµÄÓйØÄÚÈÝ¡£

ʹÓÃRange¶ÔÏóÀ´´úÌæSelection¶ÔÏó

ºêÂ¼ÖÆÆ÷»á¾­³£´´½¨Ò»¸öʹÓÃSelectionÊôÐÔÀ´¿ØÖƲÙ×ÝSelection¶ÔÏóµÄºê¡£µ«ÊÇ£¬Óû§Í¨³£¿ÉÒÔÓÃÒ»¸ö»ò¼¸¸öRange¶ÔÏóÀ´ÒÔºÜÉÙµÄÃüÁîÍê³ÉÏàͬµÄÈÎÎñ¡£ÒÔϵÄʾÀýÊÇÓúêÂ¼ÖÆÆ÷´´½¨µÄ¡£¸Ãºê¶ÔÎĵµÖеÄǰÁ½¸öµ¥´Ê½øÐмӴ֡£

Selection. HomeKey Unit :=wdStory Selection.

MoveRight

Unit

:=wdWord,

Count:=2,

Extend :=wdExtend

Selection. Font.Bold = wdToggle

ÒÔϵÄʾÀýûÓÐʹÓÃSelection¶ÔÏó¶øÍê³ÉÁËÏàͬµÄÈÎÎñ¡£ ActiveDocument. Range (Start:=0, End :=ActiveDocument. Words(2). End) .Bold = True

ÒÔϵÄʾÀý¶ÔÎĵµÖеÄǰÁ½¸öµ¥´Ê½øÐмӴ֣¬È»ºó²åÈëÒ»¸öеĶÎÂä¡£

Selection. HomeKey Unit :=wdStory

Selection. MoveRight Unit :=wdWord, Count :=2, Extend :=wdExtend

Selection. Font.Bold = wdToggle

Selection. MoveRight Unit :=wdCharacter, Count:=1 Selection. TypeParagraph

ÒÔϵÄʾÀýûÓÐʹÓÃSelection¶ÔÏó¾ÍÍê³ÉÁËÉÏÊöʾÀýÖеÄͬÑùÈÎÎñ¡£

Set

myRange

=

ActiveDocument.

Range(Start:=0,

End :=ActiveDocument. Words(2). End)

myRange. Bold = True

myRange. InsertParagraphAfter

Ç°ÃæµÄÁ½¸öʾÀý¸Ä±äÁ˻ÎĵµÖеĸñʽµ«Ã»ÓиıäÑ¡¶¨ÄÚÈÝ¡£ÔÚ´ó¶àÊýµÄ³¡ºÏÏ£¬Range¶ÔÏó±ÈSelection¶ÔÏó¸ü¿ÉÈ¡£¬Ô­ÒòÈçÏ£º

Óû§¿ÉÒÔ¶¨ÒåºÍʹÓöà¸öRange¶ÔÏ󣬶øÔÚÿ¸öÎĵµ´°¿ÚÖÐÖ»ÄÜÓÐÒ»¸öSelection¶ÔÏó¡£

¿ØÖƹÜÀíRange¶ÔÏó²»»á¸Ä±äËùÑ¡ÔñµÄÎÄ×ÖÄÚÈÝ¡£ ¿ØÖƹÜÀíRange¶ÔÏó±ÈÔËÓÃSelection¶ÔÏóËÙ¶ÈÒª¿ì¡£ ʹÓÃRange·½·¨·µ»ØRange¶ÔÏó

¿ÉÒÔʹÓÃRange·½·¨ÔÚÌØ¶¨ÎĵµÖд´½¨Ò»¸öRange¶ÔÏó¡£Range


vb²Ù×÷wordÏê½â(3).doc ½«±¾ÎĵÄWordÎĵµÏÂÔØµ½µçÄÔ ÏÂÔØÊ§°Ü»òÕßÎĵµ²»ÍêÕû£¬ÇëÁªÏµ¿Í·þÈËÔ±½â¾ö£¡

ÏÂһƪ£º¸ßÒ»ÎïÀí±ØÐÞ1¾­µä²âÊÔÌâ¼°´ð°¸Ïê½â

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

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

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