1.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.Delete
expression 必需。该表达式返回“应用于”列表中的一个对象。
2.VBA操作word 的文本框
sub example()
dim myobject as object
'对于浮动式文本框控件
set myobject = activedocument.shapes(1).oleformat.object
msgbox myobject.text
'对于嵌入式文本框控件
set myobject = activedocument.inlineshapes(1).oleformat.object
msgbox myobject.text
'对于word的文本框图形(非控件)
set myobject = activedocument.shapes(1).textframe.textrange
msgbox myobject.text
end sub
3.excel用vba自动生成word
Sub GenDocfromExcel()'excel控制word,生成新文件,插入图片和文件名,保存'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library'。
Range("A1:B13").Copy '复制当前内容Dim WordApp As Word.Application '定义变量Set WordApp = CreateObject("Word.Application") '生成WORD对象WordApp.Documents.Add '新建文件WordApp.Selection.Paste '粘贴fn$ = "D:\" & Range("b1") '生成文件名WordApp.ActiveDocument.SaveAs fn$ '保存文件WordApp.Quit '退出Set WordApp = Nothing '取消变量End Sub。
4.word和excel vba综合编程
在Excel下编程,使用下列语句打开Word文档
Dim Wrd
Set Wrd = CreateObject("Word.Application")
Wrd.documents.Open Filename:=DOCFile, ReadOnly:=True '以只读方式打开Word文档
Wrd.Visible = True '让其可见(只读状态打开时,默认不可见)
通过类似于下面的语句,可以访问Word文档中的表格数据(注意:返回的数据去掉最后两个字符(回车和表格符))
Wrd.documents(DOCFile).Tables(4).Cell(9, 3).Range.Text 'Word文档中第4个表格的第9行第3列的文本。
至于文本,要通过设定选择集(Selection,可通过查找题目,然后改变选择区域的大小(Collapse方法))来复制和粘贴数据(查看Word的VB帮助)
得到Word文档中的数据后,往Excel文档对应的单元格赋值即可。
实际编写起来工作量较大,不超过几千份问卷,还是手工做吧!(初学者做完这个程序,估计要3、5天)
详细可联系:591zheteng@sina.com
5.vb操作word
引用Word对象、
然后在VB端生成Word的Application对象。
Application对象可以显示或隐藏都可以。
Application下的Documents对象可操作Word文档。
application.Documents.Open 可以打开文档。
生成Application后就与VBA中的Word.application对象一样使用就OK了。
如果想了解Word的Application对象或Document对象或Range等对象你可以打开Word、然后在Word界面按下ALT+F11然后就可以进入VBA编辑器、可以看作是VB的一个子集。然后在左边工程栏里加模块、加窗体。。。写代码的时候按F1就可以得到帮助。