Word VBA教程:Delete方法
VBA教程 - Word VBA参考教程 - Delete方法Word VBA教程:Delete方法应用于 Cell 和 Cells对象的 Delete方法。
删除一个或多个表格单元格并可选择控制如何移动剩余的单元格。
expression.Delete(ShiftCells)expression 必需。
该表达式返回以上一个对象。
ShiftCells Variant 类型,可选。
剩余单元格移动的方向。
可以是任意WdDeleteCells 常量。
如果忽略,最后删除的单元格的右侧单元格向左移动。
应用于 Range 和 Selection对象的 Delete方法。
删除指定数目的字符或单词。
此方法返回一个 Long 值,该数值表明删除项的数目。
如果删除失败,则返回的值为 0(零)。
expression.Delete(Unit, Count)expression 必需。
该表达式返回以上一个对象。
Unit Variant 类型,可选。
所需删除的折叠区域或选定内容的单位。
可以是下列 WdUnits 常量之一:wdCharacter(默认值)或 wdWord。
Count Variant 类型,可选。
所需删除的单元的数目。
若要删除某区域或选定内容之后的单元,请折叠该区域或选定内容并将此参数设置为正数;若要删除某区域或选定内容之前的单元,请折叠该区域或选定内容并将此参数设置为负数。
应用于 ShapeNodes对象的 Delete方法。
删除指定的对象。
expression.Delete(Index)expression 必需。
该表达式返回一个ShapeNodes对象。
Index Long 类型,必需。
要删除的图形节点的数目。
应用于“应用于”列表中所有其他对象的 Delete方法。
删除指定的对象。
expression.Deleteexpression 必需。
该表达式返回“应用于”列表中的一个对象。
http://www.33dir.com/z/2016/08/04/2957.html
VBA编程语言的定义
VBA,Visual Basic For Application的缩写,也叫做宏程序。
是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
VBA必须要有一个宿主应用程序才能运行,而且不能用于创建独立应用程序。
VBA可使常用的过程或者进程自动化,可以创建自定义的解决方案,适用于来定制已有的桌面应用程序。
如何Word中用VBA打开Excel表格,读取其中的内容写入到Word
可用CreateObject函数创建对EXCEL的引用,然后就可打开EXCEL工作簿,将表格中的数据复制到WORD中,参考代码如下:Set xlapp = CreateObject("excel.application")With xlapp.Open("带路径的EXCEL文件名").Sheets(1).Range("A1:H8").Copy'粘贴到WORD指定位置End Withxlapp.Quit
如何用VBA读取word表格单元格中的字符
经测试编写VBA代码如下:Sub 嵌入式图片加边框()Application.ScreenUpdating = FalseDim a As IntegerDim pic As InlineShapeDim aBorder As Bordera = ActiveDocument.InlineShapes.CountIf a = 0 ThenMsgBox ("没有发现嵌入式图片")End IfFor Each pic In ActiveDocument.InlineShapespic.Borders.Enable = TrueWith picFor Each aBorder In pic.BordersWith aBorder.LineWidth = wdLineWidth025pt.Color = wdColorBlueEnd WithNext aBorder.ScaleHeight = 100.ScaleWidth = 100End WithNextApplication.ScreenUpdating = TrueEnd SubSub 取消边框()Dim a As Integera = ActiveDocument.InlineShapes.CountIf a = 0 ThenMsgBox ("没有发现嵌入式图片")End IfActiveDocument.InlineShapes(1).Borders.Enable = FalseEnd SubPrivate Sub CommandButton1_Click()嵌入式图片加边框End SubPrivate Sub CommandButton2_Click()取消边框End Sub效果如下:
(急)VBA程序的建立,编辑和运行方法?
VBA概述:VBA是Visual Basic For Application的缩写,是VB在office中的运用。
是基于Visual Basic For Windows发展而来的,VB For Windows是Microsoft于1992年推出的开发Windows应用程序的程序设计语言,由于基语法简单,易学易用,所以深受用户的欢迎。
而VBA和VB For Windows大体相似。
在Office2000之前,VBA在Word,Excel,Access等Office系统软件中的运用有些有同,但是到Office2000就统一起来了。
Excel是第一个包含有VBA的应用程序,自Office2000以后,Eexel,Word,PowerPoint,Access中已经有了统一标准的宏语言VBA,其中Excel和Access的VBA最为成熟。
在Excel中VBA程序即可以存放有.xls中,也可以单独以文本形式存放。
对VBA的学习,用户首先必须VB有一定的了解(不过不必很专业,毕竟经常用Excel的用户一般是办公人员,不可能是专业编程人员),然后结合宏记录器学习。
因为,宏记录器可以记录宏,用户可以非常清楚了然VBA的很多知识。
另外,如果不是功能很强大的VBA程序,那么用宏记录器就足够了。
打开密码记录器的方法,通过“工具->宏->录制新宏”。
另外,用户可能用“工具->宏->宏...”来管理宏。
用“工具->宏->VB 编辑器”或Alt+F11可以打开VB编辑器,在VB编程器,可以很方便地整个VB工程进行管理,可以方便地编写VBA代码,另外,用户可以再点击Alt+F11切换到Excel窗口。
VBA的使用过程: 1、创建一个Excel文件。
2、创建一个控件,然后双击控件或是右击该控件,点击“查看代码”,就可以对该控件的某个事件,如click,keydown等。
进行编写执行代码了。
创建控件的方法是,点击“视图->工具栏->控件工具箱”,打开“控件工具箱”栏,然后就可以直接拖动某个控件到Excel单元格中去。
在Excel中窗口,添加的控件一般是处于执行状态的,如果要对这个控件进行编辑,除了第一次建立的时候可以对它进行属性编辑外,打开“控件工具箱”,也可以使控件处于编辑状态,如果还不行,可以再添加一个控件,然后已有的控件绝对会处于编辑状态。
当然,对控件修改完毕后,别忘了删除刚才新添加的没有用的控件。
在编辑状态中,你可以右击该控件,点击“属性”,那么就可以打开属性窗口,在这个窗口里,你可以很方便的对这个控件的名字,标题,大小等属性进行编辑。
3、手动或用宏记录器对该控件的某个事件进行编码。
宏记录器简单易用,不过强大的功能还是必须手动编写VBA。
VBA对象介绍: 编写VBA代码的最关键在于灵活运用VBA对象,对这些VBA对象的属性或方法进行操作。
另外,你也可以创建自定义函数,来对某些操作进行封装。
既然是VBA,编码风格当然和VB相同,如果会VB,那么只要对VBA的对象比较了解,就可以编写功能强大的VBA程序;同样,如果不会VB,那么,只需要了解VBA的对象就够了,因为它比较简单易学。
以下分别讨论VBA各对象对其属性与方法: 在一些可以包含其他对象的窗口对象中,有几个特殊的属性,其属性值是当前活动对象,对它们,可以直接引用。
表1 一些特殊的属性 对象名 含义 ActiveWorkbook 当前工作簿,即如果你打开了几个Excel文件,那么你当然正在编辑的Excel文件即ActiveWorkbook ActiveSheet 当前工作簿中的当前工作表,即当前编辑的Excel文件中正在编辑的工作表 ActiveCell 当前工作表中活动单元格 ActiveChart 当前工作簿中的活动图表 Selection 当前被选定的对象 下面详谈各对象及它们的属性和方法 一、Application对象 此对象指Excel应用程序的工作环境。
属性 1.Caption属性 含义:Excel应用程序标题栏显示的文本。
举例:Application.caption=“船员管理系统”,如赋值Empty,则恢复Excel默认的标题栏。
2.Cursor属性 含义:Excel中鼠标的形状。
表2 Cursor属性 属性值 鼠标形状 xlDefault 缺少型值,鼠标呈缺少形状 xlWait 等待型值,鼠标呈不断翻转的沙漏形状 xlNorthwestArrow 箭头型值,鼠标呈标准箭头形状 xlIBeam 文本型值,鼠标呈“I”字形以等待用户输入文本 操作:Application.Cursor=xlWait等。
3、DisplayAlerts属性 含义:用以确定是否显示系统的应用提示和警告信息,如果不想显示,则把些属性设为false,反之亦然。
4、DisplayFormulaBar属性 含义:用以确定是否显示公式编辑栏 5、DisplayScrollBars属性 含义:用以确定是否显示Excel的滚动条 6、DisplayStatusBar属性 含义:用以确定是否显示Excel的状态栏 7、EnableCancelkey属性 含义:用以确定是否允许用户中断正在执行着的VBA程序。
缺省情况下,在VBA程序执行过程中,用户按下Ctrl+Break能够中断VBA程序的执行。
此时此属性即值为xlInterrupt。
若要禁止中断VBA程序,由赋值为xlDisabled;若需要VBA执行过程中遇到错误进中止,由赋值为xlErrorHandler 8、ScreenUpdating属性 含义:用以确定是否显示VBA程序的中间运算结果。
9、StatusBar属性 含义:设置状态栏的文本 10、ActiveWorkbook属性 含义:如表1介绍。
11、ActiveSheet 含义:如表1介绍。
12、ActiveCell属性 含义:如表1介绍。
13、ThisWorkBook属性 含义:用以返回正在执行着VBA程序所...
如何在Excel VBA 中读写word文档 步骤
参考这个:Sub ExcelToWord() ' 利用Word程序创建文本文件Dim WordApp As ObjectDim Records As Integer, i As IntegerDim Region As String, SalesAmt As String, SalesNum As String, strTitle As StringSet WordApp = CreateObject("Word.Application") '创建word对象Records = Application.CountA(Sheets("sheet1").Range("A:A")) 'A列数据个数WordApp.Documents.Add '新建文档'写TitlestrTitle = Cells(1, 5)With WordApp.Selection.Font.Size = 28.ParagraphFormat.Alignment = 1 '左对齐0 居中1 右对齐2.Font.Bold = True.TypeText Text:=strTitle.TypeParagraphEnd With'写内容For i = 1 To Records'Region = Data.Cells(i, 1).Value '将第一列某行的值赋值给变量Region = Cells(i, 1)'SalesNum = Data.Cells(i, 2).Value '获取该行B列数据SalesNum = Cells(i, 2)'SalesAmt = Data.Cells(i, 3).Value '获取该行C列数据SalesAmt = Cells(i, 3)With WordApp.Selection.Font.Size = 14 '设置字体字号.Font.Bold = True '字体粗.ParagraphFormat.Alignment = 0 '设置对齐.TypeText Text:=Region & SalesNum.TypeParagraph.Font.Size = 12 '设置字体.ParagraphFormat.Alignment = 0 '设置对齐.Font.Bold = False '字体不加粗.TypeText Text:=vbTab & SalesAmt.TypeParagraph '回车.TypeParagraph '回车End WithNext iWordApp.ActiveDocument.SaveAs Filename:="AAA" '保存文件WordApp.Quit '退出程序Set WordApp = Nothing '清空MsgBox "文件保存在我的文档底下的AAA文件"End Sub
vba是什么
VBA是什么 直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得不学习一种不同的自动化语言.例如:可以用EXCEL的宏语言来使EXCEL自动化,使用WORD BASIC使WORD自动化,等等.微软决定让它开发出来的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA),可以认为VBA是非常流行的应用程序开发语言VISUAL BASIC 的子集.实际上VBA是寄生于VB应用程序的版本.VBA和VB的区别包括如下几个方面: 1. VB是设计用于创建标准的应用程序,而VBA是使已有的应用程序(EXCEL等)自动化 2. VB具有自己的开发环境,而VBA必须寄生于已有的应用程序. 3. 要运行VB开发的应用程序,用户不必安装VB,因为VB开发出的应用程序是可执行文件(*.EXE),而VBA开发的程序必须依赖于它的父应用程序,例如EXCEL. 尽管存在这些不同,VBA和VB在结构上仍然十分相似.事实上,如果你已经了解了VB,会发现学习VBA非常快.相应的,学完VBA会给学习VB打下坚实的基础.而且,当学会在EXCEL中用VBA创建解决方案后,即已具备在WORD ACCESS OUTLOOK FOXPRO PROWERPOINT 中用VBA创建解决方案的大部分知识. * VBA一个关键特征是你所学的知识在微软的一些产品中可以相互转化. * VBA可以称作EXCEL的“遥控器”. VBA究竟是什么?更确切地讲,它是一种自动化语言,它可以使常用的程序自动化,可以创建自定义的解决方案. 此外,如果你愿意,还可以将EXCEL用做开发平台实现应用程序. Office取得巨大成功的一个重要原因就是VBA,使用VBA可以完成很多事情,基于Excel、Word的VBA小程序不计其数。
VBA程序员很多是业余程序员,正因为业余,解决的却是工作中需要解决的问题;所以,VBA程序大多都是只是在部门内部或个人使用的小工具。
集成了VBA的其他应用程序也很多,但真正能为程序增色的不多。
大多数人看到了VBA可以自动化一个程序,可以扩展已有程序,但没有看到在Office中,VBA代码可以是录制的,而不是写出来的,带来的好处是,学习曲线变得非常缓。
如果没有宏录制功能,要熟悉某个Office组件的对象模型,绝非一日之功。
以ArcGIS为例,ArcGIS扩展必须使用ArcObject,不管是使用VBA也罢,VB也罢,还是C++也罢。
但同时,ArcObject的学习不是一天两天可以搞定,对于业余程序员,要使用VBA来扩展ArcGIS,几乎没有可能;专业程序员又不屑使用VBA;而对于公司,如果要基于ArcObject来扩展ArcGIS,选择VBA意味着源码的保护很困难。
所以,ArcGIS的VBA就如同鸡肋。
不过,学习AO的时候,使用VBA比使用其他语言要容易一些,写几行代码,然后直接运行测试结果,这种交互式的学习应该是最好的学习方法。
ArcGIS以及AO与Office相比,还有一个很大的差别,就是ArcGIS缺乏中等粒度的对象,例如Word和Excel的Range对象。
对于Office开发,可以在对底层小粒度对象一无所知的状况下做很多事情,这就是抽象的力量。
常人可以处理的复杂度是有限的,面对数十个对象和几百个对象,后者需要付出的努力不是10倍,而是数十倍或更多,因为在学习过程中,必须可以把这些对象在大脑中很好的组织,以控制其复杂度。
Visual Basic for Applications(简称VBA)是新一代标准宏语言,是基于Visual Basic for Windows 发展而来的。
它与传统的宏语言不同,传统的宏语言不具有高级语言的特征,没有面向对象的程序设计概念和方法。
而VBA 提供了面向对象的程序设计方法,提供了相当完整的程序设计语言。
VBA 易于学习掌握,可以使用宏记录器记录用户的各种操作并将其转换为VBA 程序代码。
这样用户可以容易地将日常工作转换为VBA 程序代码,使工作自动化。
因此,对于在工作中需要经常使用Office 套装软件的用户,学用VBA 有助于使工作自动化,提高工作效率。
另外,由于VBA 可以直接应用Office 套装软件的各项强大功能,所以对于程序设计人员的程序设计和开发更加方便快捷。
编辑本段VBA 基础 Visual Basic 的应用程序版(VBA)是Microsoft 公司长期追求的目标,使可编程应用软件得到完美的实现,它作为一种通用的宏语言可被所有的Microsoft 可编程应用软件所共享。
在没有VBA 以前,一些应用软件如Excel、Word、Access、Project 等都采用自己的宏语言供用户开发使用,但每种宏语言都是独立的,需要用户专门去学习,它们之间互不兼容,使得应用软件之间不能在程序上互联。
拥有一种可跨越多个应用软件,使各应用软件产品具有高效、灵活且一致性的开发工具是至关重要的。
VBA 作为一种新一代的标准宏语言,具有上述跨越多种应用软件并且具有控制应用软件对象的能力,使得程序设计人员仅需学习一种统一的标准宏语言,就可以转换到特定的应用软件上去,程序设计人员在编程和调试代码时所看到的是相同的用户界面,而且VBA 与原应用软件的宏语言相兼容,以保障用户在代码和工作上的投资。
有了VBA 以后,多种应用程序共用一种宏语言,节省了程序人员的学习时间,提高了不同应用软件间的相...
求助:如何通过VBA批量选中word文档里的嵌入型图片或表格?
提供示例代码供参考:Sub BatEditPic()Dim ShapesCount As IntegerDim i As IntegerShapesCount = ActiveDocument.InlineShapes.CountFor i = 1 To ShapesCountWith ActiveDocument.InlineShapes(i)'修改图片边框With .Borders(wdBorderTop).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth050ptEnd WithWith .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth050ptEnd WithWith .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth050ptEnd WithWith .Borders(wdBorderRight).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth050ptEnd WithEnd WithNext iEnd Sub
word里如何禁止复制与另存为?vba编写或宏,或将word文档变成exe...
你在word文档里面插入以下宏:Private Sub Document_Open()If ActiveDocument.ProtectionType = wdNoProtection ThenActiveDocument.Protect _Type:=wdAllowOnlyFormFields, NoReset:=TrueEnd IfEnd Sub如果要高级一点的方法,可以参考官网:http://office.microsoft.com/zh-cn/word-help/RZ001117927.aspx
转载请注明出处51数据库 » word vba 参考