vbaword教程
- 作者: 穷是一辈子的事
- 来源: 51数据库
- 2020-04-21
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就可以得到帮助。
