瀹堟煍
WORD VBA
鍏ラ棬
鏁欑▼
绗?/p>
1
椤?/p>
鍏?/p>
9
椤?/p>
绗簩璇撅細褰曞埗瀹忋�佺紪杈戝畯涓庝紭鍖栧畯
涓婁竴璇句腑锛屾垜浠垵姝ヨ璇嗕簡
VBA
鏄粈涔堬紝鎬庝箞杩涘叆
VBE
缂栬緫鍣紝浠ュ強
VBE
鐨勭幆澧冭缃瓑銆傛湰璇句腑锛?/p>
鎴戜滑鏉ュ綍鍒跺畯銆佺紪杈戝畯涓庝紭鍖栧畯銆?/p>
褰曞埗瀹忔湁涓ょ鏂瑰紡锛?/p>
涓�鏄弻鍑荤姸鎬佹爮涓殑
"
褰曞埗
"
鍛戒护
,
鎴栬�呴紶鏍囧崟鍑诲伐鍏?/p>
\
瀹?/p>
\
褰曞埗鏂板畯鍛戒护
,WORD
灏嗚
褰曚笅鎮ㄧ殑鎿嶄綔骞惰浆鎹负
VB
璇█
.
鍦?/p>
XP
浠ヤ笅鐗堟湰涓紝褰曞埗瀹忔搷浣滀笉鏀寔榧犳爣鎿嶄綔锛屾偍鍙互浣跨敤閿洏鎿嶄綔锛岃缁撳悎閿洏鍔犻�熼敭銆侀敭鐩樺揩
鎹烽敭绛夎繘琛屾搷浣滐紝姝ゅ涓嶅啀瑙ｉ噴鍔犻�熼敭鍜屽揩鎹烽敭鐨勫惈涔夈�傚彟澶栵紝鍦?/p>
XP
鐗堟湰涓紝瀵归儴鍒嗗彸閿彍鍗曚笉鏀寔鐨?/p>
鎯呭喌涓嬶紝鍙互浣跨敤
SHIFT+F10
杩涜璋冪敤鍙抽敭蹇嵎鑿滃崟绛夈�?/p>
OK
锛屾垜浠�夋嫨涓婅堪鏂规硶涔嬩竴锛屾潵褰曚釜涓�涓畯锛屾垜浠殑鎿嶄綔鏄繖鏍风殑锛屽鍏ㄦ枃妗ｄ腑鐨勫瓧浣撹缃负锛氬崕
鏂囩粏榛戯紝绮椾綋锛?/p>
12
鍙凤紝琛岃窛
1.5,
娈靛墠
12
纾?/p>
,
娈靛悗
12
纾咃紝褰曞埗缁撴潫锛屽崈涓囧埆蹇樹簡鍋滄褰曞埗瀹忓摕锛岀偣
鈥?/p>
鍋滄
鈥?/p>
鑰岄潪鍏抽棴
鈥?/p>
鍋滄褰曞埗瀹?/p>
鈥?/p>
宸ュ叿鏍忥紝鍚﹀垯锛岃缁曚簺灏忓湀瀛愪簡銆?/p>
濡傚浘锛?/p>
鍦ㄤ笂鍥剧殑褰曞埗瀹忓璇濇涓紝
鎴戜滑鍙互鑷畾涔夊畯鍚嶏紝
灏嗗畯鎻愬畾鍒板伐鍏锋爮鎴栬�呴敭鐩樹笂锛?/p>
淇濆瓨瀹忕殑浣嶇疆
锛堜綔鐢ㄨ寖鍥达級
锛?/p>
濡傛灉鏄?/p>
鈥?/p>
鎵�鏈夋枃妗ｏ紙
Normal.dot
锛?/p>
鈥?/p>
锛?/p>
鍒欏畠鏄叏灞�鐨勫畯锛?/p>
鍙互涓烘墍鏈夋枃妗ｆ墍璋冪敤锛?/p>
鏄叕鍏?/p>
鐨勫畯锛?/p>
濡傛灉鏄湰鏂囨。锛?/p>
鍒欐槸绉佹湁鐨勶紝
浠呬綔鐢ㄤ簬褰撳墠鏂囨。銆?/p>
鍚岀悊锛?/p>
濡傛灉鎴戜滑鎸囧畾鍦ㄥ伐鍏锋爮鎴栬�呴敭鐩樹腑锛?/p>
濡傛灉鏄?/p>
鈥?/p>
鎵�鏈夋枃妗?/p>
锛?/p>
Normal.dot
锛?/p>
鈥?/p>
锛?/p>
鍒欒宸ュ叿鏍忎綔鐢ㄤ簬鎵�鏈?/p>
WORD
鏂囨。锛?/p>
鍙嶄箣鍒欎粎浣滅敤浜庡綋鍓嶆枃妗ｏ紝
鍏?/p>
瀹冩枃妗ｄ腑灏嗕笉浼氬嚭鐜版瀹忋�?/p>
宸ュ叿鏍忔垨鑰呴敭鐩樺揩鎹烽敭銆?/p>
濂斤紝
鎴戜滑杩涘叆
VBE
锛?/p>
浣犲彲浠ヤ娇鐢?/p>
ALT+F8
锛?/p>
鍦ㄥ畯浣嶇疆涓负褰撳墠鏂囨。锛?/p>
鎵惧埌璇ュ畯鍚嶏紝
鐐瑰彸渚х殑
鈥?/p>
缂?/p>
杈?/p>
鈥?nbsp;
鍛戒护锛?/p>
鎴栬�呯洿鎺?/p>
ALT+F11
锛?/p>
鎵惧埌璇ユ枃妗ｇ殑宸ョ▼璧勬簮绠＄悊鍣紝
鍙屽嚮
鈥淣ewMacros"
妯″潡锛?/p>
鍒欏湪鍙充晶
鐨勪唬鐮佺獥鍙ｄ腑锛?/p>
浼氱湅鍒颁互涓嬩唬鐮侊紝
瀹堟煍鎶婂畠娉ㄩ噴涓�涓嬶紙濡傛灉鍦?/p>
VBE
浠ｇ爜绐楀彛涓紝
鎴戜滑灏嗗厜鏍囦綅浜庝唬
鐮佷腑鎴栬�呴�夊畾鏌愪釜鍏抽敭瀛楋紝
鎸変笅
F1
锛?/p>
浼氬嚭鐜拌缁嗙殑
VBA
甯姪锛?/p>
锛屼互浣垮ぇ瀹舵洿蹇湴鏄庣櫧瀹冪殑鎰忔�濓細
Sub OurExample()
'
杩欓儴鍒嗚鏄庢潵鑷綍鍒跺畯瀵硅瘽妗?/p>
' OurExample Macro
'
瀹忓湪
2005-7-20
鐢?/p>
I Love You_Word!
褰曞埗
' "&chr(10)&"WORD-VBA
涓撻璁插骇涔嬩簩
' Selection.WholeStory'
鍏ㄩ�夋枃妗?/p>
,CTRL+A
With Selection.Font '
瀵归�夊畾鏂囧瓧
.NameFarEast = "
鍗庢枃缁嗛粦
"
'
涓滀簹瀛椾綋
.NameAscii = "Tahoma"
'
璁剧疆鎷変竵鏂囷紙瀛楃浠ｇ爜浠?/p>
0
锛堥浂锛?/p>
鍒?/p>
127
鐨勫瓧绗︼級鎵�鐢ㄧ殑瀛椾綋
.NameOther = "Tahoma"
'
璁剧疆瀛楃浠ｇ爜浠?/p>
128
鍒?/p>
255
鐨勫瓧绗︾殑瀛椾綋