关于Word中 的VBA 编程

解决你的“顺便问下＂.....Sub Macro1()Dim strText As StringstrText = ＂建立反对撒客里空的龙卷风＂Selection.TypeText strTextSelection.MoveStart Unit:=wdLine, Count:=-1Selection.MoveEnd Unit:=wdCharacter, Count:=-1 * (Len(Selection.Text) - 4)Selection.MoveStart Unit:=wdCharacter, Count:=3Selection.Font.Bold = TrueMsgBox Selection.TextEnd Sub

重金,重金悬赏一个关于wordVBA编程问题！！！！！请问选定w

问题： 我想打印在wod文档中所有包含了某个人姓名的页 我粗略编了一个宏： Su Maco1() " " Maco1 Maco " 宏在 2004-10-14 由 ill 录制 Dim i As Intege Selection.Find.CleaFomatting With Selection.Find .Text = ＂婷 "要查找的姓名 .Replacement.Text = ＂＂ .Fowad = Tue .Wap = wdFindContinue .Fomat = False .MatchCase = False .MatchWholeWod = False .MatchByte = Tue .MatchWildcads = False .MatchSoundsLike = False .MatchAllWodFoms = False End With Do While Selection.Find.Execute ActiveDocument.PintOut Range:=wdPintCuentPage "若找到姓名，则打印当前页 Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1, Name：=＂＂ "下翻一页 Loop End Su

如何在Word中打开VBA编程窗口

一、编制程序1.启动Word，连续点击“工具”，“宏”，“录制新宏...”，在弹出的对话框中填写宏名（此例为“作文稿纸”），选择宏要保存的位置（可以保存在模板中，也可以保存在当前文档中），如图1所示。

2.为了方便操作，可以将此宏以按钮的形式指定在工具栏中。

单击“录制宏”对话框中的“工具栏”按钮，在弹出的“自定义”对话框的右侧，选中宏命令“Normal.NewMacros.作文稿纸”，用鼠标将其拖动复制到“常用”工具栏，在其上单击右键，选择相应的命令修改名称，为其编辑一个小图标，结果如图2所示。

3.单击“录制宏”对话框中的“关闭”按钮，屏幕上将出现一个“录制宏”工具栏，单击停止按钮停止录制。

4.依次选择“工具”、“宏”、“宏…”，在对话框中选择宏名“作文稿纸”，单击“编辑”按钮，打开vba编程窗口。

录入如下代码：Sub 作文稿纸（）UserForm1.CommandButton1.Enabled = TrueUserForm1.ShowEnd Sub5.插入一个窗体UserForm1，在其中插入4个标签，4个文本框，一个按钮。

分别设置它们的相关属性，其中，“所需行数”文本框的“text”属性值设为25，“所需列数”文本框的“text”属性值设为20，“行间距”文本框的“text”属性值设为0.5，“首尾空行高度”文本框的“text”属性值设为0.4，如图3所示。

6.双击命令按钮CommandButton1，录入以下代码：Private Sub CommandButton1_Click()Dim n As Integer "定义一个变量为整数型n = 1ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=Val(TextBox1.Text) * 2 + 1, NumColumns _:=Val(TextBox2.Text), DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixedSelection.EndKey Unit:=wdRow, Extend:=TrueSelection.Cells.Borders(wdBorderVertical).LineStyle = wdLineStyleNoneSelection.Tables(1).Rows.HeightRule = wdRowHeightExactly"设定表格行高为固定值Selection.Tables(1).Rows.Height = CentimetersToPoints(Val(TextBox3.Text)）"设置表格行高为设置值，作为行间距Selection.Tables(1).Rows(1).Height = CentimetersToPoints(Val(TextBox4.Text)）"设置第一行行高为设置值Do While n Selection.EndKey Unit:=wdLineSelection.MoveRight Unit:=wdCharacter, Count:=2"将插入点移至下一行Selection.Tables(1).Rows(2 * n).Height = Selection.Tables(1).Columns(1).PreferredWidth"设行高等于列宽Selection.EndKey Unit:=wdRow, Extend:=TrueSelection.EndKey Unit:=wdLineSelection.MoveRight Unit:=wdCharacter, Count:=2"将插入点移至下一行Selection.EndKey Unit:=wdRow, Extend:=TrueSelection.Cells.Borders(wdBorderVertical).LineStyle = wdLineStyleNone"去除此行的内部框线，只余边框n = n + 1LoopSelection.Tables(1).Rows(Val(TextBox1.Text) * 2 + 1).Height = CentimetersToPoints(Val(TextBox4.Text)）"设置末行高为设置值Selection.EndKey Unit:=wdRow, Extend:=TrueSelection.Cells.Borders(wdBorderVertical).LineStyle = wdLineStyleNoneSelection.Tables(1).Rows.Alignment = wdAlignRowCenter"表格居中With Selection.Tables(1).Borders(wdBorderLeft).LineWidth = wdLineWidth150pt.Borders(wdBorderRight).LineWidth = wdLineWidth150pt.Borders(wdBorderTop).LineWidth = wdLineWidth150pt.Borders(wdBorderBottom).LineWidth = wdLineWidth150pt"设定表格边框为粗线End WithSelection.EndKey Unit:=wdLineUnload Me End Sub

怎样用Word VBA编程实现一个自己定义的宏,在Word打开时自动运行...

VBA,Visual Basic For Application的缩写，也叫做宏程序。

是微软开发出来在其桌面应用程序中执行通用的自动化（OLE）任务的编程语言。

VBA必须要有一个宿主应用程序才能运行，而且不能用于创建独立应用程序。

VBA可使常用的过程或者进程自动化，可以创建自定义的解决方案，适用于来定制已有的桌面应用程序。

利用word对象和VBA编写程序,统计任一word文档中的参数,如字符...

首先alt+f11，工具引用，勾选microsoft excel 11.0 object library，然后插入模块 Sub op()Dim app As New Excel.ApplicationDim wb As Excel.WorkbookSet wb = app.Workbooks.Open(＂d:/tt.xls＂)MsgBox wb.Sheets(＂sheet1＂).Range(＂c5＂)app.QuitEnd Sub子易空间站 - Excel培训专家

VBA编程从入门到精通的作品目录

输入框和对话框第13章 使用消息框和输入框以获得用户输入第14章 生成简单的自定义对话框第15章 生成复杂对话框第五部分 生成有效的代码第16章 构建模块及使用类第17章 调试代码和处趣错误第18章 构建出色的代码第19章 用vra的安全特性保护代码第六部分 办公软件编程第20章 了解word对象模型和重要对象第21章 使用word中广泛使用的对象进行工作第22章 了解excel对象模型和重要对象第23章 使用excel中广泛使用的对象进行工作第24章 了解powerpoint对象模型和重要对象第25章 使用shapes进行工作和运行幻灯片放映第26章 了解outlook对象模型和重要对象第27章 使用outlook中的事件进行工作第28章 了解access对象模型和重要对象第29章 使用vba处理access数据库中的数据第30章 实现不同软件间的访问不同软件相互交流的工具...

word 如何进入VBA

//b。

Word 在 VBA 编程语言中把宏录制为一系列的 Word 命令，Font 是返回一个 Font 对象的 Selection 对象的一个属性.Bold要在 Visual Basic 中执行一个任务。

这意味着可以将 Bold 属性设置为 True 或 False（真或假），也可返回当前值。

下面 WordBasic 指令的返回值表明是否将加粗格式应用于所选内容。

x = Bold（)下面的示例是 Visual Basic 语句。

Selection：宏录制器和 Visual Basic 编辑器。

宏录制器可帮助用户开始创建宏。

也可用 Visual Basic 编辑器创建包括 Visual Basic 指令的非常灵活和强有力的宏，Selection，以找到包含需要修改的 Font 对象的对象，可以通过不同的对象（如 Style、Selection 和 Find 对象）来访问 Font 对象，它是一个自定义命令，Word 2000 将自动转换 Word 6.x 或 Word 95 模板中的宏。

群群我爱你7哮 | 发布于2016-05-09 评论