WordÖд¦Àí±í¸ñʱ£¬¾³£ÒªÓöµ½½«Ò»¸ö±í¸ñµÄijЩÐи´ÖƵ½ÁíÒ»¸ö±í¸ñµÄÇéÐΡ£¿´ÆðÀ´ºÜ¼òµ¥µÄÒ»¸öÎÊÌ⣬ȴ³£³£»á³öÏÖÒâÍâµÄ½á¹û——¼´Ê¹Á½¸ö±í¸ñµÄÁÐÊýÍêȫһÑù£¬Õ³Ìù½á¹ûÈ´¾³£“´í딣¨Èçͼ1£©£¬Õ³Ìù½øÀ´µÄÐÐ×ÜÊDz»ÄܺÍËüÏàÁÚµÄÐÐ¶ÔÆë¡£
1. δÓê³ñçÑ£¬ÊÂǰ׼±¸
Òª½â¾öÕâ¸öÎÊÌ⣬µÚÒ»ÖÖ°ì·¨ÊǸĽøÒ»Ï½«ÐÐÕ³Ìùµ½Ä¿±ê±í¸ñµÄ²Ù×÷·½Ê½¡£

Ê×ÏÈÏÔʾ³öËùÓеĸñʽ±ê¼Ç¡£Ñ¡Ôñ²Ëµ¥“¹¤¾ß→Ñ¡Ï¬Ñ¡Ôñ“ÊÓͼ”Ñ¡Ï£¬Ñ¡ÖГ¸ñʽ±ê¼Ç”ÏÂÃæµÄ“È«²¿”£¨Èçͼ2£©¡£Íê³Éºóµã»÷“È·¶¨”¡£ÔÚÄ¿±ê±í¸ñµÄĩβÌí¼ÓÒ»¸ö¿ÕÐУ¬×¢Òâ²»ÒªÔÚÕâ¸öÐÐÊäÈëÈκÎÄÚÈÝ¡£ÔÚÔ´±í¸ñÖУ¬Ñ¡ÖÐÒª¸´ÖƵÄÐÐËù°üº¬µÄµ¥Ôª¸ñ£¬µ«²»ÒªÑ¡ÖÐÐÐĩβµÄ½áÊø±ê¼Ç¡£È»ºó½«Ñ¡ÖеÄÄÚÈݸ´ÖƺóÕ³ÌùÔÚÄ¿±ê±í¸ñÖУ¬±ØÒªÊ±£¬Word»á×Ô¶¯²åÈëеÄÐУ¬Ð²åÈëµÄÐÐ×ÜÊÇÓëÏÖÓеÄÐÐÍêÈ«¶ÔÆë¡£

µ«Õâ¸ö°ì·¨²»ÊÇÈκÎʱºò¶¼ÊÊÓõė—Èç¹ûÎÒÃÇÒª°ÑÕ³Ìù½øÀ´µÄÄÚÈÝ·ÅÈëÄ¿±ê±í¸ñµÄÆäËûλÖ㨶ø²»ÊÇ×îºó£©£¬Ä¿±ê±í¸ñÖÐÔÀ´µÄÄÚÈݾÍÓпÉÄܻᱻ¸²¸Ç——³ý·ÇÔÚÕ³Ìù֮ǰ£¬ÎÒÃÇÊ×ÏÈÔÚÄ¿±ê±í¸ñÖвåÈë×ã¹»µÄ¿ÕÐУ¬²»¹ýÕâÑù×öËÆºõÓÖÌ«Âé·³ÁË¡£
2. ÍöÑò²¹ÀΣ¬Êº󲹾È
ÎÒÃÇÔÙÀ´¿´¿´´íλ±í¸ñµÄʺ󲹾Ȱ취¡£Ê×ÏÈ£¬ÎÒÃÇ¿ÉÒÔÀûÓÃWordµÄ±í¸ñ“×Ô¶¯µ÷Õû”¹¦ÄÜ¡£
Ñ¡ÖÐÕû¸ö´íλµÄ±í¸ñ£¬Ñ¡Ôñ²Ëµ¥“±í¸ñ→×Ô¶¯µ÷Õû→¸ù¾ÝÄÚÈÝ×Ô¶¯µ÷Õû±í¸ñ”¡£µ«ÊÇ£¬¶ÔÓÚijЩ¸´Ôӵıí¸ñ£¬ÌرðÊÇ´æÔÚǶÌ×±í¸ñµÄÇé¿öÏ£¬ÕâÖÖ°ì·¨ÈÔ²»Ò»¶¨×àЧ¡£Õâʱ¿É²ÉÓÓ±í¸ñ→Îı¾→±í¸ñ”µÄת»»·¨¡£Ñ¡ÖÐÕû¸ö´íλµÄ±í¸ñ£¬½«Õû¸ö±í¸ñת»»³ÉÎı¾¡£·½·¨ÊÇ£ºÑ¡Ôñ²Ëµ¥“±í¸ñ→ת»»→±í¸ñת»»³ÉÎı¾”£¬³öÏÖÒ»¸ö¶Ô»°¿ò£¨Èçͼ3£©¡£ÈÎѡһÖÖ±í¸ñÖÐûÓгöÏÖµÄ×Ö·û×÷Ϊ·Ö¸ô·û£¬µã»÷“È·¶¨”¡£×îºóÔÙ½«ÎÄ×Öת»»»Ø±í¸ñ£¬·½·¨ÊÇ£ºÑ¡Ôñ²Ëµ¥“±í¸ñ→ת»»→Îı¾×ª»»Îª±í¸ñ”£¬³öÏÖת»»¶Ô»°¿ò£¬Ñ¡Ôñ¸Õ²ÅʹÓõķָô·û£¬È»ºóµã»÷“È·¶¨”¡£

3. Ò»±¾ÍòÀû£¬µ¥»÷Êó±ê
Èç¹û¾³£Òª´¦Àí´íλ±í¸ñ£¬×î·½±ãµÄ°ì·¨»¹ÊÇ´´½¨Ò»¸ö¼òµ¥µÄºê¡£Í¨¹ýºêAutoFitAllTables²éÕÒWordÎĵµÖÐËùÓеıí¸ñ£¬¶ÔÓÚÿһ¸ö±í¸ñ£¬·Ö±ðµ÷ÓÃÆä¸÷¸öÁеÄAutoFit·½·¨——×Ô¶¯µ÷ÕûÆäÁÐ¿í£¬×îÖÕµÄЧ¹û¾ÍÊÇ¶ÔÆëËùÓÐÐкÍÁС£
Sub AutoFitAllTables()
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
oTbl.Columns.AutoFit
Next oTbl
End Sub
´ò¿ªWordºêµÄVisual Basic±à¼Æ÷£¬ÊäÈëÉÏÃæµÄºê£¬±£´æ¡£Ñ¡ÔñWord²Ëµ¥“¹¤¾ß→×Ô¶¨Ò唣¬×ªµ½“ÃüÁî”Ñ¡Ï£¨Èçͼ4£©£¬½«AutoFitAllTablesºêÍϵ½Word¹¤¾ßÀ¸ÉÏÊʵ±µÄλÖã¬Word×Ô¶¯Ìí¼ÓÒÔAutoFitAllTablesÃüÃûµÄ°´Å¥¡£ÓÒ»÷¸Ã°´Å¥£¬½«°´Å¥ÃüÃûΪ“¶ÔÆëËùÓÐÁД£¬×îºó¹Ø±ÕͼËĵÄ×Ô¶¨Òå¶Ô»°¿ò¡£ÒÔºó£¬Ö»Òªµã»÷“¶ÔÆëËùÓÐÁД°´Å¥£¬Word¾Í»á×Ô¶¯¶ÔÆëËùÓдíλµÄ±í¸ñ£¬·Ç³£·½±ã£¡

1. δÓê³ñçÑ£¬ÊÂǰ׼±¸
Òª½â¾öÕâ¸öÎÊÌ⣬µÚÒ»ÖÖ°ì·¨ÊǸĽøÒ»Ï½«ÐÐÕ³Ìùµ½Ä¿±ê±í¸ñµÄ²Ù×÷·½Ê½¡£

Ê×ÏÈÏÔʾ³öËùÓеĸñʽ±ê¼Ç¡£Ñ¡Ôñ²Ëµ¥“¹¤¾ß→Ñ¡Ï¬Ñ¡Ôñ“ÊÓͼ”Ñ¡Ï£¬Ñ¡ÖГ¸ñʽ±ê¼Ç”ÏÂÃæµÄ“È«²¿”£¨Èçͼ2£©¡£Íê³Éºóµã»÷“È·¶¨”¡£ÔÚÄ¿±ê±í¸ñµÄĩβÌí¼ÓÒ»¸ö¿ÕÐУ¬×¢Òâ²»ÒªÔÚÕâ¸öÐÐÊäÈëÈκÎÄÚÈÝ¡£ÔÚÔ´±í¸ñÖУ¬Ñ¡ÖÐÒª¸´ÖƵÄÐÐËù°üº¬µÄµ¥Ôª¸ñ£¬µ«²»ÒªÑ¡ÖÐÐÐĩβµÄ½áÊø±ê¼Ç¡£È»ºó½«Ñ¡ÖеÄÄÚÈݸ´ÖƺóÕ³ÌùÔÚÄ¿±ê±í¸ñÖУ¬±ØÒªÊ±£¬Word»á×Ô¶¯²åÈëеÄÐУ¬Ð²åÈëµÄÐÐ×ÜÊÇÓëÏÖÓеÄÐÐÍêÈ«¶ÔÆë¡£

µ«Õâ¸ö°ì·¨²»ÊÇÈκÎʱºò¶¼ÊÊÓõė—Èç¹ûÎÒÃÇÒª°ÑÕ³Ìù½øÀ´µÄÄÚÈÝ·ÅÈëÄ¿±ê±í¸ñµÄÆäËûλÖ㨶ø²»ÊÇ×îºó£©£¬Ä¿±ê±í¸ñÖÐÔÀ´µÄÄÚÈݾÍÓпÉÄܻᱻ¸²¸Ç——³ý·ÇÔÚÕ³Ìù֮ǰ£¬ÎÒÃÇÊ×ÏÈÔÚÄ¿±ê±í¸ñÖвåÈë×ã¹»µÄ¿ÕÐУ¬²»¹ýÕâÑù×öËÆºõÓÖÌ«Âé·³ÁË¡£
2. ÍöÑò²¹ÀΣ¬Êº󲹾È
ÎÒÃÇÔÙÀ´¿´¿´´íλ±í¸ñµÄʺ󲹾Ȱ취¡£Ê×ÏÈ£¬ÎÒÃÇ¿ÉÒÔÀûÓÃWordµÄ±í¸ñ“×Ô¶¯µ÷Õû”¹¦ÄÜ¡£
Ñ¡ÖÐÕû¸ö´íλµÄ±í¸ñ£¬Ñ¡Ôñ²Ëµ¥“±í¸ñ→×Ô¶¯µ÷Õû→¸ù¾ÝÄÚÈÝ×Ô¶¯µ÷Õû±í¸ñ”¡£µ«ÊÇ£¬¶ÔÓÚijЩ¸´Ôӵıí¸ñ£¬ÌرðÊÇ´æÔÚǶÌ×±í¸ñµÄÇé¿öÏ£¬ÕâÖÖ°ì·¨ÈÔ²»Ò»¶¨×àЧ¡£Õâʱ¿É²ÉÓÓ±í¸ñ→Îı¾→±í¸ñ”µÄת»»·¨¡£Ñ¡ÖÐÕû¸ö´íλµÄ±í¸ñ£¬½«Õû¸ö±í¸ñת»»³ÉÎı¾¡£·½·¨ÊÇ£ºÑ¡Ôñ²Ëµ¥“±í¸ñ→ת»»→±í¸ñת»»³ÉÎı¾”£¬³öÏÖÒ»¸ö¶Ô»°¿ò£¨Èçͼ3£©¡£ÈÎѡһÖÖ±í¸ñÖÐûÓгöÏÖµÄ×Ö·û×÷Ϊ·Ö¸ô·û£¬µã»÷“È·¶¨”¡£×îºóÔÙ½«ÎÄ×Öת»»»Ø±í¸ñ£¬·½·¨ÊÇ£ºÑ¡Ôñ²Ëµ¥“±í¸ñ→ת»»→Îı¾×ª»»Îª±í¸ñ”£¬³öÏÖת»»¶Ô»°¿ò£¬Ñ¡Ôñ¸Õ²ÅʹÓõķָô·û£¬È»ºóµã»÷“È·¶¨”¡£

3. Ò»±¾ÍòÀû£¬µ¥»÷Êó±ê
Èç¹û¾³£Òª´¦Àí´íλ±í¸ñ£¬×î·½±ãµÄ°ì·¨»¹ÊÇ´´½¨Ò»¸ö¼òµ¥µÄºê¡£Í¨¹ýºêAutoFitAllTables²éÕÒWordÎĵµÖÐËùÓеıí¸ñ£¬¶ÔÓÚÿһ¸ö±í¸ñ£¬·Ö±ðµ÷ÓÃÆä¸÷¸öÁеÄAutoFit·½·¨——×Ô¶¯µ÷ÕûÆäÁÐ¿í£¬×îÖÕµÄЧ¹û¾ÍÊÇ¶ÔÆëËùÓÐÐкÍÁС£
Sub AutoFitAllTables()
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
oTbl.Columns.AutoFit
Next oTbl
End Sub
´ò¿ªWordºêµÄVisual Basic±à¼Æ÷£¬ÊäÈëÉÏÃæµÄºê£¬±£´æ¡£Ñ¡ÔñWord²Ëµ¥“¹¤¾ß→×Ô¶¨Ò唣¬×ªµ½“ÃüÁî”Ñ¡Ï£¨Èçͼ4£©£¬½«AutoFitAllTablesºêÍϵ½Word¹¤¾ßÀ¸ÉÏÊʵ±µÄλÖã¬Word×Ô¶¯Ìí¼ÓÒÔAutoFitAllTablesÃüÃûµÄ°´Å¥¡£ÓÒ»÷¸Ã°´Å¥£¬½«°´Å¥ÃüÃûΪ“¶ÔÆëËùÓÐÁД£¬×îºó¹Ø±ÕͼËĵÄ×Ô¶¨Òå¶Ô»°¿ò¡£ÒÔºó£¬Ö»Òªµã»÷“¶ÔÆëËùÓÐÁД°´Å¥£¬Word¾Í»á×Ô¶¯¶ÔÆëËùÓдíλµÄ±í¸ñ£¬·Ç³£·½±ã£¡
