1. 濡備綍鎵歸噺澶勭悊Word涓鐨勫浘鐗
鍦╓ord涓錛屽備綍杞繪澗鍦版壒閲忛変腑騫跺勭悊鍥劇墖錛
闈㈠歸嗗肩獊濡傚叾鏉ョ殑闇奼傦紝鎵歸噺閫夋嫨Word涓鐨勬墍鏈夊浘鐗囧苟榪涜屽嶅埗錛屾垜涓嶅緱涓嶆繁鍏ユ帰緔涓鐣銆傝繖閲岋紝鎴戞暣鐞嗕簡涓夌嶅疄鐢ㄦ妧宸э紝甯鍔╀綘鍦ㄤ笉鍊熷姪VBA浠ｇ爜鐨勬儏鍐典笅錛岄珮鏁堝湴瀹屾垚鎿嶄綔銆
涓銆佸垹闄Word涓鐨勬墍鏈夊浘鐗
綆鍗曞揩鎹鳳細鍙闇鎸変笅Ctrl + H錛屽湪鏌ユ壘鏇挎崲妗嗕腑杈撳叆^g錛屾垨鑰呴夋嫨鍥懼艦錛岀偣鍑燴滃叏閮ㄦ浛鎹⑩濓紝鍥劇墖鐬闂存秷澶便
浜屻佹壒閲忛変腑Word涓鐨勫浘鐗
鉶界劧甯歌勭殑鍏ㄩ夊浘鐗囩劧鍚庨愪釜澶嶅埗騫朵笉楂樻晥錛屼絾鎴戞壘鍒頒簡涓涓宸у欑殑鏇誇唬鏂規堛傞栧厛鍏ㄩ夋枃妗ｅ唴瀹癸紙Ctrl + A錛夛紝鐒跺悗綺樿創鍒版柊鏂囨。銆傛帴涓嬫潵錛屽湪鏂版枃妗ｄ腑浣跨敤鏌ユ壘鏇挎崲鍔熻兘錛圕trl + H錛夛紝鏌ユ壘鍐呭硅緭鍏^?鎴栭夋嫨浠繪剰瀛楃︼紝淇濇寔鏇挎崲妗嗕負絀猴紝鍏ㄩ儴鏇挎崲鍚庯紝闈炴枃鏈閮ㄥ垎鈥斺斾富瑕佹槸鍥劇墖鈥斺斿氨淇濈暀涓嬫潵浜嗐傚傛灉鍑虹幇琛ㄦ牸錛屽彲鎵嬪姩鍒犻櫎錛屽墿涓嬬殑鏄綰鍑鐨勫浘褰銆
鍐嶆″叏閫夛紝鍥劇墖灝卞凡閫変腑錛屾ゆ椂浣犲彲浠ュ嶅埗鎴栧壀鍒囧埌鐩鏍囨枃妗ｃ
涓夈佹壒閲忚皟鏁碬ord涓鍥劇墖澶у皬
瀵逛簬涓嶅啓浠ｇ爜鐨勬儏鍐碉紝娌℃湁鐜版垚鐨勭畝鍗曟柟娉曘傜劧鑰岋紝濡傛灉浣犳効鎰忓皾璇曪紝VBA鎻愪緵浜嗕竴縐嶈В鍐蟲柟妗堛備互涓嬫槸涓涓猇BA浠ｇ爜紺轟緥錛岀敤浜庢壒閲忚皟鏁村浘鐗囧昂瀵革細
Sub FormatPics()
Dim Shap As InlineShape
For Each Shap In ActiveDocument.InlineShapes
If Shap.Type = wdInlineShapePicture Then
Shap.LockAspectRatio = msoFalse '瑙ｉ櫎綰墊í姣旈攣瀹
Shap.Width = CentimetersToPoints(10) '瀹藉害10鍘樼背
Shap.Height = CentimetersToPoints(7) '楂樺害7鍘樼背
End If
Next
End Sub
閫氳繃VBA緙栬緫鍣錛堟寜Alt + F11蹇閫熸墦寮錛夛紝鍦ㄦ柊寤烘ā鍧椾腑澶嶅埗綺樿創榪欐典唬鐮侊紝淇濆瓨瀹忓悗鍏抽棴錛岃繍琛屽畯鍗沖彲鎵歸噺璋冩暣鍥劇墖澶у皬銆
璁頒綇錛岃繖浜涙妧宸у彲浠ュぇ澶ф彁楂樹綘鍦╓ord涓鐨勫浘鐗囧勭悊鏁堢巼錛岃╀綘鍦ㄥ勭悊鏂囨。鏃舵洿鍔犲緱蹇冨簲鎵嬨