wordvba编程代码有哪些
很多的程序员都离不开编程的代码，但是对于wordvba肯定有很多的新手不知道常用代码有哪些，所以下面就给你们提供了wordvba编程代码大全，快来一起看看吧。
wordvba编程代码有哪些：
1、删除空行_
Sub_删除空行()_
Dim_I_As_Paragraph,_n_As_Integer_
Application.ScreenUpdating_=_False_
For_Each_I_In_ActiveDocument.Paragraphs_
If_Len(Trim(I.Range))_=_1_Then_
I.Range.Delete_
n_=_n_+_1_
End_If_
Next_
MsgBox_"共删除空白段落"__n__"个"_
Application.ScreenUpdating_=_True_
End_Sub_
2、奇偶页打印_
Sub_奇偶页打印()_
Dim_x,_j,_i_As_Integer_
On_Error_Resume_Next_
x_=_ExecuteExcel4Macro("Get.Document(50)")_
For_i_=_1_To_Int(x_/_2)_+_1_
ActiveWindow.SelectedSheets.PrintOut_From:=2_*_i_-_1,_To:=2_*_i_-_1_
Next_i_
If_x_=_1_Then_
MsgBox_"无偶数页"_
Else_
MsgBox_"请将打印出的纸张反向装入纸槽中",_vbOKOnly,_"打印另一面"_
For_j_=_1_To_Int(x_/_2)_+_1_
ActiveWindow.SelectedSheets.PrintOut_From:=2_*_j,_To:=2_*_j_
Next_j_
End_If_
End_Sub__
3、中英文标点互换
Sub_中英文标点互换()_
Dim_ChineseInterpunction()_As_Variant,_EnglishInterpunction()_As_Variant_
Dim_myArray1()_As_Variant,_myArray2()_As_Variant,_strFind_As_String,_strRepAs_String_
Dim_msgResult_As_VbMsgBoxResult,_N_As_Byte_
'定义一个中文标点的数组对象_
ChineseInterpunction_=_Array("、","。",_"，",_";",_"：",_"?",_"！",_"__",_"
—",_"～",_"（",_"）",_"《",_"》")_
'定义一个英文标点的数组对象_
EnglishInterpunction_=_Array(",",".",_",",_";",_":",_"?",_"!",_"_",_"-",_"~",_"(",_")",_"",_"")_'
注意这里的英文,转换为了中文、，如果希望将,转换为中文，请自行修改！_
'提示用户交互的MSGBOX对话框_
msgResult_=_MsgBox("您想中英标点互换吗?按Y将中文标点转为英文标点,按N将英文标点
转为中文标点!",_vbYesNoCancel)_
Select_Case_msgResult_
Case_vbCancel_
Exit_Sub_'如果用户选择了取消按钮,则退出程序运行_
Case_vbYes_'如果用户选择了YES,则将中文标点转换为英文标点_
myArray1_=_ChineseInterpunction_
myArray2_=_EnglishInterpunction_strFind_=_"“(*)”"_
strRep_=_"""\1"""_Case_vbNo_'如果用户选择了NO,则将英文标点转换为中文标点_myArray1_=_EnglishInterpunction_myArray2_=_ChineseInterpunction_
strFind_=_"""(*)"""_
strRep_=_"“\1”"_
End_Select_
Application.ScreenUpdating_=_False_'关闭屏幕更新_
For_N_=_0_To_UBound(ChineseInterpunction)_'从数组的下标到上标间作一个循环_
With_ActiveDocument.Content.Find_
.ClearFormatting_'不限定查找格式_
.MatchWildcards_=_False_'不使用通配符_
'查找相应的英文标点,替换为对应的中文标点_
.Execute_findtext:=myArray1(N),_replacewith:=myArray2(N),_Replace:=wdReplaceAll_
End_With_
Next
With_ActiveDocument.Content.Find_
.ClearFormatting_'不限定查找格式_
.MatchWildcards_=_True_'使用通配符_
.Execute_findtext:=strFind,_replacewith:=strRep,_Replace:=wdReplaceAll_
End_With_
Application.ScreenUpdating_=_True_'恢复屏幕更新_
End_Sub__
4、任意页插入页码_
Sub任意页插入页码()_
Dim_p_As_Integer_
On_Error_Resume_Next_
p_=_InputBox("请输入起始编排页码的页次")_
With_Selection_
.GoTo_What:=wdGoToPage,_Count:=p_
.InsertBreak_Type:=wdSectionBreakContinuous_
.Sections(1).Footers(1).LinkToPrevious_=_False_
With_.Sections(1).Footers(1).PageNumbers_
.RestartNumberingAtSection_=_True_.StartingNumber_=_1_
.Add_PageNumberAlignment:=wdAlignPageNumberCenter,_FirstPage:=True_
End_With_
End_With_
End_Sub__
5、实现图形的精确旋转_
Sub_图形旋转()_
Dim_blnIsInlineShape_As_Boolean_
If_Selection.Type_=_wdSelectionInlineShape_Then_
blnIsInlineShape_=_True_
Selection.InlineShapes(1).ConvertToShape_
End_If_
Dim_intTurn_As_Integer_
intTurn_=_InputBox("请输入图形要旋转的角度值"__vbCrLf__"正数表示顺时针，负数表示逆时针。",_"图形旋转",_30)_
Selection.ShapeRange.IncrementRotation_intTurn_
End_Sub_
绛旓細VBA浠ｇ爜濡備笅锛歋ub AddStr()Dim myDialog As FileDialog, oFile As Variant, oDoc As Document Set myDialog = Application.FileDialog(msoFileDialogFilePicker)With myDialog .Filters.Clear .Filters.Add "鎵鏈 WORD 鏂囦欢", "*.doc", 1 .AllowMultiSelect = True If .Show <> -1 Then Exit Sub...
绛旓細杩欎釜绀轰緥浠ｇ爜鍋囪浣犲凡缁忔湁涓涓悕涓衡淓xcelFile.xlsx鈥濈殑Excel鏂囦欢锛屽叾涓寘鍚悕涓衡淪heet1鈥濈殑宸ヤ綔琛ㄣ傚畠灏咵xcel鏁版嵁浠庡崟鍏冩牸鈥淎1鈥濆鍒跺埌Word鏂囨。鐨勫乏涓婅锛屽苟灏嗘枃鏈眳涓榻愩備綘鍙互鏍规嵁闇瑕佷慨鏀硅繖浜涜缃紝骞舵坊鍔犳洿澶氱殑鏍煎紡鍖栭夐」銆傛柟娉曚竴锛氬湪excel閲缂栧啓涓涓▼搴忔锛屾墦寮鏈暟鎹〃锛屽惊鐜紑濮嬶細姝ラ1锛屾墦寮...
绛旓細瑙ｅ喅浣犵殑鈥滈『渚块棶涓"...Sub Macro1()Dim strText As String strText = "寤虹珛鍙嶅鎾掑閲岀┖鐨勯緳鍗烽"Selection.TypeText strText Selection.MoveStart Unit:=wdLine, Count:=-1 Selection.MoveEnd Unit:=wdCharacter, Count:=-1 * (Len(Selection.Text) - 4)Selection.MoveStart Unit:=wdCharacter, ...
绛旓細Sub 瀹3()Dim i As ByteFor i = 2 To 150 '寰幆浠2鍒150 ActiveCell.Range("A1:C1").Select '閫夋嫨褰撳墠娲诲姩鍗曞厓鏍间负椤剁偣鐨勪笁涓崟鍏冩牸 Selection.AutoFill Destination:=ActiveCell.Range("A1:C27"), Type:= _ xlFillCopy ' 鑷姩濉厖鍒扮洰鐨勫湴鐨勫崟鍏冩牸锛屾牸寮忓鍒 ActiveCell.Ra...
绛旓細鍙傝浠ｇ爜锛屽鏋滈渶瑕佸叾浠栧姛鑳斤紝鑷繁淇敼涓涓嬪惂銆侱im mydocument As New Document ActiveDocument.Range.Copy mydocument.Range.Paste With mydocument.Range .Find.ClearFormatting .Find.Replacement.ClearFormatting With .Find .Text = "*涓夐儴闂(*)2涓囧厓*".Replacement.Text = "\1^13".Forward = True ...
绛旓細杩欐槸VBA銆傚伐鍏 鈫 瀹 鈫 VB缂栬緫鍣紝鐒跺悗绮樿创鍦浠ｇ爜绐楀彛涓紝鎸塅5鍗宠繍琛屻係ub Example()Dim oShape As Shape For Each oShape In ActiveDocument.Shapes '閬嶅巻褰撳墠鏂囨。鐨勬墍鏈夊浘褰㈠璞 Select Case oShape.Type '閫夊畾褰撳墠鍥剧墖鐨勭被鍨嬪苟鍒ゆ柇鍏剁被鍨 Case msoTextEffect, msoPicture '鑻ヤ负鑹烘湳瀛楁垨鍥剧墖绫诲瀷 ...
绛旓細= Mid(FullPath, y + 1)Exit For End If Next Basename = Left(tmpstring, Len(tmpstring) - 4)End Function 鎵ц姝浠ｇ爜鍚庯紝寮瑰嚭鐨勯夋嫨瀵硅瘽妗嗭紝 鍏ㄩ夌洰鏍囨枃浠跺す涓嬬殑鎵鏈夊浘鐗囨枃浠朵箣鍚庯紝鐐瑰嚮纭畾銆傜劧鍚庨潤闈欑殑绛夊緟鐢佃剳瀹屾垚澶勭悊宸ヤ綔锛屾鏁word浼氳繘鍏ユ棤鍝嶅簲鐘舵併傚浘鐗囪秺澶氾紝鏃犲搷搴旂殑鏃堕棿瓒婇暱銆
绛旓細璇枃鑰冭瘯涓紝缁忓父鐢ㄥ埌浣滄枃绋跨焊锛Word涓甯︽湁绋跨焊妯℃澘锛屼絾鏈夎澶氶檺鍒(濡傜焊鍨嬨佽鍒楁暟绛夌浉瀵瑰浐瀹)锛屽湪璇曞嵎鎺掔増鏃堕涓轰笉渚裤傜粡杩囧皾璇曪紝绗旇呮壘鍒颁竴绉嶅埄鐢╓ord鐨VBA缂栫▼锛岄氳繃缁樺埗琛ㄦ牸瀹炵幇鑰冭瘯鐢ㄤ綔鏂囩绾哥殑鏂规硶銆備竴銆佺紪鍒剁▼搴 1.鍚姩Word锛岃繛缁偣鍑烩滃伐鍏封濓紝鈥滃畯鈥濓紝鈥滃綍鍒舵柊瀹...鈥濓紝鍦ㄥ脊鍑虹殑瀵硅瘽妗嗕腑濉啓...
绛旓細4. 淇濆瓨鎮ㄧ殑浠ｇ爜骞跺叧闂璙BA缂栬緫鍣ㄣ5. 鍦Word鏂囨。涓紝鎸変笅Alt+F8閿紝鎵撳紑瀹忓璇濇銆6. 閫夋嫨鎮ㄧ紪鍐欑殑瀹忓苟鍗曞嚮鈥滆繍琛屸濇寜閽傝繖鏍峰氨鍙互鍦╓ord鏂囨。涓繍琛屾偍鐨勪唬鐮佷簡銆傝娉ㄦ剰锛屽湪浣跨敤VBA缂栫▼璇█鏃惰灏忓績锛岀‘淇濇偍鐨勪唬鐮佷笉浼氬奖鍝嶅埌鍏朵粬閮ㄥ垎鐨勫姛鑳姐1.鐢佃剳涓婃柊寤word鏂囦欢,渚嬪鍛藉悕涓衡渨ord鎶宸р潂!!!2....
绛旓細鑷充簬鏂囨湰锛岃閫氳繃璁惧畾閫夋嫨闆(Selection锛屽彲閫氳繃鏌ユ壘棰樼洰锛岀劧鍚庢敼鍙橀夋嫨鍖哄煙鐨勫ぇ灏(Collapse鏂规硶))鏉ュ鍒跺拰绮樿创鏁版嵁(鏌ョ湅Word鐨刅B甯姪)寰楀埌Word鏂囨。涓殑鏁版嵁鍚庯紝寰Excel鏂囨。瀵瑰簲鐨勫崟鍏冩牸璧嬪煎嵆鍙傚疄闄缂栧啓璧锋潵宸ヤ綔閲忚緝澶э紝涓嶈秴杩囧嚑鍗冧唤闂嵎锛岃繕鏄墜宸ュ仛鍚э紒(鍒濆鑰呭仛瀹岃繖涓▼搴忥紝浼拌瑕3銆5澶)璇︾粏鍙仈绯伙細...
