VFP
璋冪敤
Word
鍒涘缓鏂囨。
鍑哄
:
缃戠粶
鍦ㄥ簲鐢ㄧ郴缁熺殑璁捐涓紝
鏈夋椂瑕佹眰鍦ㄧ▼搴忎腑鑷姩璋冪敤锛綁锝冿綊锝忥綋锝忥絾锝?/p>
搴?/p>
鐢ㄧ▼搴忥紝濡傦挤锝忥綊锝勬垨锛ワ綐锝冿絽锝?/p>
绛夋潵鍒涘缓鏂囨。鎴栧埗浣滆〃鏍笺�傚湪寮�鍙戜竴涓姙鍏?/p>
绯荤粺鏃讹紝灏遍噰鐢ㄤ簡杩欑鏂规硶銆?/p>
顎?/p>
璁捐鐜锛?/p>
顎?/p>
鈶狅辑锝夛絻锝掞綇锛筹綇锝嗭綌
锛讹綁锝擄綍锝侊綄
锛︼綇锝橈及锝掞綇
锛曪紟锛愪腑鏂囩増锛?/p>
顎?/p>
鈶★挤锝夛綆锝勶綇锝楋綋
锛欙紭涓枃鎿嶄綔绯荤粺锛?/p>
顎?/p>
鈶辑锝夛絻锝掞綇锝擄綇锝嗭綌
锛堬疾锛夛挤锝忥綊锝?/p>
锛欙紬銆?/p>
顎?/p>
棣栧厛鍒涘缓涓�涓〃鍗曪鸡锝忥綊锝嶏紤锛?/p>
鍦鸡锝忥綊锝嶏紤涓婃柊寤轰竴涓懡浠ゆ寜鎵迹锝忥綅锝嶏絹锝?/p>
锝勶紤锛?/p>
骞惰缃迹锝忥綅锝嶏絹锝庯絼锛戠殑锛ｏ絹锝愶綌锝夛綇锝?/p>
涓?/p>
鈥?/p>
鑷姩鍒涘缓锛凤綇锝掞絼鏂囨。
鈥?/p>
銆?/p>
顎?/p>
锛ｏ綇锝嶏綅锝侊綆锝勶紤鐨勶迹锝岋綁锝冿綃
杩囩▼鍖呮嫭涓嬪垪鍛戒护锛?/p>
璇彞锛?/p>
顎?/p>
cMessageTitle=
鈥?/p>
鍚姩绐椻�?/p>
顎?/p>
cMessageText=
鈥?/p>
鍚姩
Microsoft庐Word97
鈥?/p>
nDialogType=0+64+0
nAnswer=Messagebox(cMessageText, nDialogType, cMessageTitle)
FileName=
鈥濓紮锛欏勾宸ヤ綔璁″垝鈥?/p>
Public ObjWord
nlLocaleid=Sys(3004)
=Sys(3006,1033)
ObjWDdoc=Creat(
鈥?/p>
Word.Basic
鈥?/p>
)
ObjWDdoc.AppShow
ObjWDdoc.AppMaxi Mize
ObjWDdoc.FileNeweFault
ObjWDdoc.FileSaveAs(
鈥?/p>
&FleName
鈥?/p>
)
=Sys(3006,Val(nlLocaleid))
cMessageTitle=
鈥?/p>
缁撴潫绐椻�?/p>
cMessageText=
鈥?/p>
鏂囨。鍒涘缓瀹屾瘯鈥?/p>
+Chr(13)+
鈥濋��鍑?/p>
Microsoft庐Word97
鈥?/p>
nDialogType=0+64+0
nAnswer=Messagebox(cMessageText, nDialogType, cMessageTitle)
杩欐牱锛?/p>
鍦ㄥ懡浠ょ獥鍙ｄ腑杩愯涓婅堪锛︼綇锝掞綅
鏃讹紝
鍗曞嚮
鈥?/p>
鑷姩鍒涘缓锛凤綇锝掞絼
鏂囨。
鈥?/p>
鎸夋壄锛?/p>
鍒欒嚜鍔ㄨ皟鐢挤锝忥綊锝?/p>
锛欙紬鍒涘缓鏂囨。锛?/p>
涓旀枃妗ｇ殑鍚嶅瓧涓?/p>
鈥?/p>
锛欙紮骞村伐浣滆鍒?/p>
鈥?/p>
銆?/p>