wordvba编程代码有哪些

一、wordvba编程代码有哪些

很多的程序员都离不开编程的代码，但是对于wordvba肯定有很多的新手不知道常用代码有哪些，所以下面就给你们提供了wordvba编程代码大全，快来一起看看吧。

Dim_I_As_Paragraph,_n_As_Integer_

Application.ScreenUpdating_=_False_

For_Each_I_In_ActiveDocument.Paragraphs_

If_Len(Trim(I.Range))_=_1_Then_

MsgBox_"共删除空白段落"__n__"个"_

Application.ScreenUpdating_=_True_

x_=_ExecuteExcel4Macro("Get.Document(50)")_

ActiveWindow.SelectedSheets.PrintOut_From:=2_*_i_-_1,_To:=2_*_i_-_1_

MsgBox_"请将打印出的纸张反向装入纸槽中",_vbOKOnly,_"打印另一面"_

ActiveWindow.SelectedSheets.PrintOut_From:=2_*_j,_To:=2_*_j_

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(",",".",_",",_";",_":",_"?",_"!",_"_",_"-",_"~",_"(",_")",_"",_"")_'

注意这里的英文,转换为了中文、，如果希望将,转换为中文，请自行修改！_

msgResult_=_MsgBox("您想中英标点互换吗?按Y将中文标点转为英文标点,按N将英文标点

转为中文标点!",_vbYesNoCancel)_

Exit_Sub_'如果用户选择了取消按钮,则退出程序运行_

Case_vbYes_'如果用户选择了YES,则将中文标点转换为英文标点_

myArray1_=_ChineseInterpunction_

myArray2_=_EnglishInterpunction_strFind_=_"“(*)”"_

strRep_=_"""\1"""_Case_vbNo_'如果用户选择了NO,则将英文标点转换为中文标点_myArray1_=_EnglishInterpunction_myArray2_=_ChineseInterpunction_

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_

With_ActiveDocument.Content.Find_

.ClearFormatting_'不限定查找格式_

.MatchWildcards_=_True_'使用通配符_

.Execute_findtext:=strFind,_replacewith:=strRep,_Replace:=wdReplaceAll_

Application.ScreenUpdating_=_True_'恢复屏幕更新_

p_=_InputBox("请输入起始编排页码的页次")_

.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_

Dim_blnIsInlineShape_As_Boolean_

If_Selection.Type_=_wdSelectionInlineShape_Then_

Selection.InlineShapes(1).ConvertToShape_

intTurn_=_InputBox("请输入图形要旋转的角度值"__vbCrLf__"正数表示顺时针，负数表示逆时针。",_"图形旋转",_30)_

Selection.ShapeRange.IncrementRotation_intTurn_

二、用"记事本"可以编程吗

1、你得先搞清楚,我们平常所说的程序是个什么概念.

2、程序就是一个包含若干指令的文件,计算机按照这些指令去完成相应的工作.

3、一般程序有两种类型,一种是解释运行,一种是编译运行.

4、就像你所说的LJ.BAT其实这是个批处理,属于解释运行的程序,其他的解释运行还包括VBS等.

5、其实我们一般更加习惯把解释运行的程序称为"脚本".所谓的解释运行,就是一行一行顺序的扫描,解释,执行.

6、而编译运行的程序,得经过编译,再经过链接,最后才生成可执行的文件.这不同于解释运行,解释是逐行扫描执行,而编译的是整体扫描转换成电脑可识别的2进制代码,然后再经过链接(链接一些资源,比如程序图标,声音等等).

7、所以现在你的问题应该很好回答了.

8、首先严谨的说,你的问题不应该这样提问.你应该提问记事本能编辑程序代码吗?

9、答案当然是肯定能的@!实际上任何文本编辑器都可以编写代码(记事本,WORD,等等)

10、编写好代码,当然是不能直接运行的.

11、对于VBS,有一个脚本宿主负责解释运行.

12、对于编译型的当然有相应的编译程序,及链接程序,来把你的代码转成可执行文件.

三、如何在自己的项目中实现word在线编辑

1、一般来说两种途径。一种是利用插件，比如PageOffice。好处是服务端有一整套的开发接口，劣势是需要安装插件，客户端需要有Word等Office应用程序安装，不同的客户端环境不同可能造成后继使用过程中的维护量。

2、还有一种是无插件的方式，Office 365就是典型的，不过如果是私有化部署，就不能用Office 365了。

3、还有一个是uzer.me，能提供无插件的原生Office编辑，提供JS SDK和REST API，各种编程语言都能对接。好处是无插件，劣势是只支持webRTC的浏览器，比如火狐、谷歌，360极速等，IE需要安装插件后才能支持。

4、如果只是在线编辑，类似Word的模式，那么其实更多是一个富文本的编辑器，这个用HTML就可以实现，有一些开源的工具的。