word文档中有文字、图片和表格，如何选中所有表格统一进行格式修改？ WORD中如何批量修改表格的格式：
word\u6587\u6863\u4e2d\u6709\u6587\u5b57\uff0c\u6709\u8868\u683c\uff0c\u5982\u4f55\u6574\u4f53\u4fee\u8ba2\uff1f\u6587\u5b57\u683c\u5f0f\u5982\u7f29\u8fdb\uff0c\u5bf9\u9f50\u65b9\u5f0f\uff0c\u884c\u8ddd\u3002\u8868\u683c\u5982\u4f55\u4e5f\u7edf\u4e00\u4fee\u6539\u683c\u5f0f\u3002\u7528vba\u4ee3\u7801\u53ef\u4ee5\u5b9e\u73b0\u3002
\u4e0b\u9762\u8fd9\u6bb5\u4ee3\u7801\u662f\u8bbe\u7f6e\u6587\u5b57\u683c\u5f0f\u7684\uff0c\u6839\u636e\u6807\u9898\u5e8f\u53f7\u7684\u4e0d\u540c\uff0c\u8bbe\u7f6e\u4e0d\u540c\u7684\u683c\u5f0f\u3002\u4f9b\u53c2\u8003\uff01
Private Sub CommandButton4_Click() '\u6392\u7248\u683c\u5f0f
Dim T_WORD As String
Dim RNG As Range
Dim mypra As Paragraph
Set mydic = CreateObject("Scripting.Dictionary") '\u4e8c\u7ea7\u6807\u9898\u5b57\u7b26
mydic.Add "\u4e00", 1
mydic.Add "\u4e8c", 1
mydic.Add "\u4e09", 1
mydic.Add "\u56db", 1
mydic.Add "\u4e94", 1
mydic.Add "\u516d", 1
mydic.Add "\u4e03", 1
mydic.Add "\u516b", 1
mydic.Add "\u4e5d", 1
mydic.Add "\u5341", 1
T_WORD = TextBox1.Text
\u5bfc\u51fa\u8def\u5f84\u6587\u4ef6\u540d = ThisDocument.Path & "\" & T_WORD
Set mydoc = Documents.Open(\u5bfc\u51fa\u8def\u5f84\u6587\u4ef6\u540d)
mydoc.Activate
Selection.WholeStory '\u9009\u4e2d\u5168\u90e8
Selection.ClearFormatting '\u6e05\u9664\u5168\u90e8\u683c\u5f0f
zz = 0
'For Each mypra In ActiveDocument.Paragraphs
For Each mypra In mydoc.Paragraphs
If Not mypra.Range.Information(wdWithInTable) = True Then '\u975e\u8868\u683c\u6bb5\u843d
zz = zz + 1
MYSTR = mypra.Range.Text
mychar = Mid(MYSTR, 1, 1)
'mypra.Select
If zz = 1 Or zz = 2 Then '\u4e00\u7ea7\u6807\u9898 \u9ed1\u4f53 \u5c0f\u4e8c \u662f \u5c45\u4e2d 1\u884c 1\u884c \u56fa\u5b9a\u503c18\u78c5 \u65e0
With mypra
.Range.Font.Name = "\u9ed1\u4f53"
.Range.Font.Size = 18 '\uff08\u5c0f\u4e8c\u9ad8\u5ea618\u78c5\uff09
.Range.Font.Bold = True
.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Range.ParagraphFormat.LineUnitBefore = 1
.Range.ParagraphFormat.LineUnitAfter = 1
'.Range.ParagraphFormat.SpaceBefore = 10.5 '\u6bb5\u524d 1123\u4fee\u6539\u4e3a5\u53f710.5\u78c5
'.Range.ParagraphFormat.SpaceAfter = 10.5 '\u6bb5\u540e
.FirstLineIndent = 0 '\u9996\u884c\u7f29\u8fdb\u65e0
.LineSpacingRule = wdLineSpaceExactly
'.LineSpacingRule = wdLineSpace1pt5
.Range.ParagraphFormat.LineSpacing = 18 '\u884c\u95f4\u8ddd18\u78c5
End With
Else
If mydic.Exists(mychar) Then '\u4e8c\u7ea7\u6807\u9898 \u9ed1\u4f53 \u5c0f\u56db \u662f \u4e24\u7aef\u5bf9\u9f50 1\u884c 1\u884c \u56fa\u5b9a\u503c18\u78c5 \u9996\u884c\u7f29\u8fdb2\u5b57\u7b26
With mypra
.Range.Font.Name = "\u9ed1\u4f53"
.Range.Font.Size = 12
.Range.Font.Bold = True
.Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
.Range.ParagraphFormat.LineUnitBefore = 1
.Range.ParagraphFormat.LineUnitAfter = 1
'.Range.ParagraphFormat.SpaceBefore = 10.5 '\u6bb5\u524d \u5c0f\u56db\u9ad8\u5ea6=12\u78c5 1123\u4fee\u6539\u4e3a5\u53f710.5\u78c5
'.Range.ParagraphFormat.SpaceAfter = 10.5 '\u6bb5\u540e
'.FirstLineIndent = CentimetersToPoints(1.27) '\u9996\u884c\u7f29\u8fdb2\u5b57\u7b26 0.635*2=1.27
.FirstLineIndent = CentimetersToPoints(0.74) '\u9996\u884c\u7f29\u8fdb2\u5b57\u7b26 0.74 \u548c\u6b63\u6587\u76f8\u540c
' .LineSpacingRule = wdLineSpace1pt5
.LineSpacingRule = wdLineSpaceExactly
.Range.ParagraphFormat.LineSpacing = 18 '\u884c\u95f4\u8ddd18\u78c5
End With
Else '\u6b63\u6587 \u5b8b\u4f53 \u4e94\u53f7 \u5426 \u4e24\u7aef\u5bf9\u9f50 0\u884c 0.5\u884c \u56fa\u5b9a\u503c18\u78c5 \u9996\u884c\u7f29\u8fdb2\u5b57\u7b26
With mypra
.Range.Font.Name = "\u5b8b\u4f53"
.Range.Font.Size = 10.5
.Range.Font.Bold = False
.Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
'.Range.ParagraphFormat.SpaceBefore = 0 '\u6bb5\u524d0
'.Range.ParagraphFormat.SpaceAfter = 5.25 '\u6bb5\u540e0.5*10.5=5.25
.Range.ParagraphFormat.LineUnitBefore = 0
.Range.ParagraphFormat.LineUnitAfter = 0.5
.FirstLineIndent = CentimetersToPoints(0.74) '0.37*2=0.74
.LineSpacingRule = wdLineSpaceExactly
.Range.ParagraphFormat.LineSpacing = 18 '\u884c\u95f4\u8ddd18\u78c5
.Alignment = wdAlignParagraphJustify
End With
If zz = 3 Then '\u7b2c3\u6bb5\u843d\u5c45\u4e2d
With mypra
.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
End With
End If
End If
End If
End If
Next mypra
mydoc.Save
mydoc.Close False '\u5173\u95edword\u6587\u6863
Set mydoc = Nothing '\u6e05\u7a7a\u5de5\u4f5c\u7c3f\u9879\u76ee
End Sub
\u53ef\u4ee5\u53c2\u8003\u4e0b\u9762\u65b9\u6cd5\u5904\u7406\uff1a
1\u3001\u9996\u5148\u5355\u51fb\u201c\u6587\u4ef6\u201d\u2014\u201c\u9009\u9879\u201d\uff1b
2\u3001\u5728\u5f39\u51fa\u7684\u201c\u9009\u9879\u201d\u9762\u677f\u4e0a\u201c\u81ea\u5b9a\u4e49\u529f\u80fd\u533a\u201d\u9762\u677f\u7684\u53f3\u8fb9\u4e00\u680f\u52fe\u7ebf\u201c\u5f00\u53d1\u5de5\u5177\u201d\uff1b
3\u3001\u5355\u51fb\u201c\u5f00\u53d1\u5de5\u5177\u201d\uff0c\u5728\u5f39\u51fa\u7684\u9762\u677f\u4e0a\u5355\u51fb\u201cvisualbasic\u201d\uff1b
4\u3001\u8c03\u51fa\u4ee3\u7801\u7a97\u53e3\uff0c\u8f93\u5165\u6279\u91cf\u4fee\u6539\u8868\u683c\u4ee3\u7801\uff1b
5\u3001\u5355\u51fb\u201c\u5f00\u53d1\u5de5\u5177\u201d\u2014\u201c\u5b8f\u201d\uff1b
6\u3001\u5728\u5f39\u51fa\u7684\u5b8f\u547d\u4ee4\u9009\u62e9\u6846\u4e2d\u9009\u62e9\u201c\u6279\u91cf\u4fee\u6539\u8868\u683c\u201d\u6267\u884c\u201c\u5b8f\u547d\u4ee4\uff1b
7\u3001\u7136\u540e\u9009\u4e2d\u6240\u6709\u8868\u683c\uff1b
8\u3001\u5355\u51fb\u201c\u8bbe\u8ba1\u201d\uff0c\u9009\u62e9\u5408\u9002\u7684\u6548\u679c\uff1b
9\u3001\u6700\u540e\u5373\u53ef\u5b8c\u6210\u3002
2.在弹出的宏创建对话框,输入宏名字(可以是中文),然后点击右侧“创建”按钮
3.用所给的代码替换掉默认的内容: Sub SelectAllTables() ...
4.粘贴完代码后,直接点击工具栏的运行按钮▶,此时文档中所有表格已经选中,关闭V...
5.回到文档,在“表格工具”-设计-设置框线粗细-边框下拉菜单里点击“所有边框
绛旓細鐢鏂囧瓧妗嗘潵鎺у埗
绛旓細2. 璋冩暣娈佃惤鐨勮璺 闄や簡璋冩暣琛ㄦ牸鐨勬牸寮忚缃紝杩樺彲浠ラ氳繃璋冩暣娈佃惤鐨勮璺濇潵璁琛ㄦ牸鍜屾枃瀛鏇磋创杩戙備竴鑸潵璇达紝灏嗚璺濊缃负鍥哄畾鍊兼垨鏈灏忓煎彲浠ユ湁鏁堝湴鍑忓皬娈佃惤涓庤〃鏍涔嬮棿鐨勯棿璺濄備笉杩囷紝闇瑕佹敞鎰忕殑鏄紝杩囧皬鐨勮璺濆彲鑳戒細褰卞搷娈佃惤鐨勫彲璇绘э紝鍥犳闇瑕佹牴鎹疄闄呮儏鍐佃繘琛岃皟鏁淬3. 浣跨敤琛ㄦ牸宓屽叆鍔熻兘 鍦ㄤ竴浜涙枃瀛楀鐞嗚蒋浠朵腑...
绛旓細鎴戜滑鍦ㄤ娇鐢word鏂囨。涓杩涜缂栬緫鏃讹紝鏈夋椂浼氭兂鎻掑叆涓按鍗颁互渚鏂囧瓧缇庤锛岄偅濡備綍鍘绘坊鍔犲憿锛熶笅闈紝鎴戝氨缁欏ぇ瀹朵粙缁嶄笅鍦╳ord鏂囨。涓坊鍔犳按鍗扮殑鏂规硶銆1銆佹墦寮鎵闇瑕佹坊鍔犳按鍗扮殑word鏂囨。锛屾寜涓嬪浘鐐瑰嚮鈥 椤甸潰甯冨眬鈥濓紝鎺ョ潃鍦ㄨ宸ュ叿鏍忎腑鐐瑰嚮鍥炬爣鈥 姘村嵃鈥濄2銆佸湪姘村嵃绐楀彛涓紝鏈変袱涓彲渚涢夋嫨鐨勯夐」锛岀涓涓夐」鈥 鑷...
绛旓細鍙屽嚮鍥剧墖锛濡傛灉璇ュ浘鐗囨槸锛堟枃鏈杞寲涓猴級鈥淢icrosoftOfficeWord鏂囨。瀵硅薄鈥濆浘鐗囷紝鍒欐鏃跺浘鐗囧浜庯紙鍙紪杈戯級鏂囨湰鐘舵侊紝鍏朵腑鎵鏈夋枃鏈瓧绗︼紝鍙紙蹇嵎閿淐trl鈥濓紜鈥渃鈥濆鍒垛啋鈥淐trl鈥濓紜鈥渧鈥濓級绮樿创鍒板浘鐗囦箣澶栵紙娈佃惤锛夈
绛旓細Word鏄竴绉嶅崄鍒嗗父鐢ㄧ殑鏂囦欢绫诲瀷锛屼笉浠呭彲浠ヨ緭鍏鏂囧瓧锛杩樺彲浠ユ彃鍏ヨ〃鏍笺鍥剧墖绛夌瓑锛屾湁浜涚敤鎴峰湪鎻掑叆琛ㄦ牸鍚庝负浜嗙編瑙傦紝鎯崇煡閬撴庝箞璁剧疆Word鏂囨。涓鏂囧瓧閫傚簲鍗曞厓鏍硷紝鎺ヤ笅鏉ュ皬缂栧氨缁欏ぇ瀹朵粙缁嶄竴涓嬪叿浣撶殑鎿嶄綔姝ラ銆傚叿浣撳涓嬶細1. 棣栧厛绗竴姝ユ墦寮闇瑕佺紪杈戠殑Word鏂囨。銆傛牴鎹笅鍥炬墍绀猴紝灏忕紪浠ョ畝鍗曠殑琛ㄦ牸涓轰緥銆2. 绗簩姝ラ変腑...
绛旓細Word鏂囨。涓鍥剧墖涓庢枃瀛楃幆缁曟柟寮忔湁锛1锛岀┛瓒婂瀷鐜粫锛氭枃瀛楁部鐫鍥剧墖鐨勭幆缁曢《鐐圭幆缁曞浘鐗囷紝涓旂┛瓒婂嚬杩涚殑鍥惧舰鍖哄煙銆2锛屼笂涓嬪瀷鐜粫锛氭枃瀛椾綅浜庡浘鐗囩殑涓娿佷笅锛屽浘鐗囧拰鏂囧瓧娉炬腑鍒嗘槑锛屾樉寰楃増闈㈠緢鏁存磥銆3锛岃‖浜庢枃瀛椾笂鏂癸細鏂囧瓧浣嶄簬鍥剧墖鐨勪笅鏂癸紝鍥剧墖鎸′綇浜嗗悗闈㈢殑鏂囧瓧銆4锛岃‖浜庢枃瀛椾笅鏂癸細姝ゆ椂鐨勫浘鐗囧氨鍍忔枃瀛楃殑鑳屾櫙鍥炬锛屾枃瀛...
绛旓細姝ラ锛氫竴銆佹枃浠舵彃鍏ョ殑鍔熻兘锛岀洿鎺ュ皢excel琛ㄦ牸宓屽叆銆傛墦寮Word绐楀彛锛岄夋嫨鑿滃崟鏍忕殑鈥滄彃鍏モ-->瀵硅薄-->鐢辨枃浠跺垱寤-->鐐瑰嚮鈥滄祻瑙堚濊繘琛岄夋嫨鈥淓xcel鏂囦欢鈥濈殑璺緞锛屾渶鍚庣‘瀹氬嵆鍙備簩銆佺敤CTRL+C灏嗚〃鏍肩洿鎺ュ鍒剁矘璐村埌Word鏂囨。涓銆傜洿鎺ュ湪Excel涓夋嫨闇瑕佸祵鍏ョ殑瀵硅薄锛岀劧鍚庡皢鍏跺鍒讹紝鍦ㄦ墦寮Word鏂囨。绮樿创杩涘幓鍗冲彲銆傝繖绉...
绛旓細3锛夊湪浠诲姟绐楁牸鐨勩愭悳绱鏂囧瓧銆戞枃鏈涓緭鍏ュ浘鐗囩殑鍏抽敭璇嶏紙濡傚缓绛戙侀煶涔愬拰浜虹墿绛夛級锛屽湪銆愮粨鏋滅被鍨嬨戜笅鎷夊垪琛ㄦ涓夋嫨鍖呮嫭鐨勬枃浠剁被鍨嬶紝鐒跺悗鍗曞嚮鎸夐挳銆4锛夋鏃讹紝鍦ㄤ笅闈㈢殑鍒楄〃妗嗕腑灏嗘樉绀哄嚭涓庡叧閿瘝鏈夊叧鐨勫壀璐寸敾鎴栧浘鐗囷紝鍗曞嚮闇瑕佹彃鍏ョ殑鍓创鐢伙紝鍗冲彲灏嗗壀璐寸敾鎻掑叆鍒鏂囨。涓鍏夋爣鎵鍦ㄥ銆2. 鎻掑叆鍥剧墖鏂囦欢 鍦Word涓...
绛旓細word鏂囨。鍥剧墖涓繖涔堟彃鍏ヨ〃鏍 1銆佺涓姝ワ紝鎴戜滑鍦ㄧ數鑴戜腑鎵惧埌涓涓渶瑕佺紪杈戠殑鏂囧瓧鏂囨。锛鍙抽敭鍗曞嚮璇ユ枃妗ｏ紝鐒跺悗鍦ㄨ彍鍗曞垪琛ㄤ腑鐐瑰嚮閫夋嫨鈥滄墦寮鏂瑰紡鈥濋夐」锛屽啀鍦ㄥ瓙鑿滃崟鍒楄〃涓夋嫨鈥淲ord鈥濄2銆佺浜屾锛岃繘鍏ord椤甸潰涔嬪悗锛屾垜浠湪璇ラ〉闈腑鍏堟墦寮鈥滄彃鍏モ濆伐鍏凤紝鐒跺悗鍦ㄥ瓙宸ュ叿鏍忎腑鎵惧埌鈥滆〃鏍尖濋夐」銆3銆佺涓夋锛屾垜浠墦寮...
绛旓細鍦 Microsoft Word 涓紝鎻掑叆鍥剧墖鏃讹紝纭疄鍙互閫夋嫨鈥滄诞浜鏂囧瓧涓婃柟鈥濈殑閫夐」锛屼互渚胯鍥剧墖缃簬鏂囧瓧涓婃柟銆傜劧鑰岋紝鍗充娇閫夋嫨浜嗚繖涓夐」锛屾湁鏃跺欏浘鐗囦粛鐒朵細璺充綅缃傝繖涓昏鏄敱浠ヤ笅鍑犱釜鍘熷洜閫犳垚鐨勶細1. 鏂囧瓧鐜粫鏂瑰紡锛氬浘鐗囩殑鐜粫鏂瑰紡浼氬奖鍝嶅叾鍦鏂囨。涓鐨勪綅缃傚鏋滀綘閫夋嫨浜嗏滄诞浜庢枃瀛椾笂鏂光濈殑閫夐」锛屼絾浠嶇劧閫夋嫨浜嗙揣瀵嗗瀷...
