1. 如何用vba代码将word文档中插入的表格对象内容复制到Excel中
试试下面的代码,在网上找的
Sub 宏1()
Dim wordapp As Object
Dim mydoc
Dim mypath$, myname$
Dim wdRng As Object
Dim pos1%, pos2% '定义找到的字段的首位位置
Application.DisplayAlerts = False
Set wordapp = CreateObject("word.application")
mypath = ThisWorkbook.Path & ""
myname = Dir(mypath & "*.doc*")
Set mydoc = wordapp.Documents.Open(mypath & myname)
Set wdRng = mydoc.Range
wdRng.Find.Execute ("(一)")
pos1 = wdRng.Start
Set wdRng = mydoc.Range
wdRng.Find.Execute ("五、")
pos2 = wdRng.Start
mydoc.Range(pos1, pos2).Copy '选中找到的两个字段中间的内容
mydoc.Close False
wordapp.Quit
Worksheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
2. 如何在word中用vba在一个range对象的前部插入段落标记(
(1) ActiveDocument。
Range(Start:=0, End:=10) '表示当前文档前10个字符所组成的一个Range对象 (2) Set myRange = ActiveDocument。Range( _ Start:=ActiveDocument。
Paragraphs(2)。Range。
Start, _ End:=ActiveDocument。Paragraphs(4)。
Range。End) '将当前文档第2段至第4段设置为一个Range对象 (3) ActiveDocument。
Paragraphs(1)。Range。
Copy '复制当前文档中的第一段 (4) Selection。Copy Documents。
Add。Content。
Paste '复制所选内容到新文档中 (5) ActiveDocument。Bookmarks("Book1")。
Copy Name:="Book2" '将Book2书签复制Book1书签标记的位置 (6) Selection。GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=4 '将所选内容移至文档中的第4行 (7) Selection。
GoTo What:=wdGoToTable, Which:=wdGoToNext '将所选内容移至下一个表格的第1个单元格 (8) Selection。Range。
AutoFormat '为所选内容套用格式 (9) ActiveDocument。 Content。
Font。Name = "Arial" '将当前文档的字体设置为斜体 (10) ActiveDocument。
Content。Select Selection。
Delete '将当前文档中的内容删除。
3. 求教,如何使用vba将excel的插入对象进行另
参考下面的代码: 1:打开所有隐藏工作表 2:循环宏 3:录制宏时调用“停止录制”工具栏 4:高级筛选5列不重复数据至指定表 5:双击单元执行宏(工作表代码) 6:双击指定区域单元执行宏(工作表代码) 7:进入单元执行宏(工作表代码) 8:进入指定区域单元执行宏(工作表代码) 9:在多个宏中依次循环执行一个(控件按钮代码) 10:在两个宏中依次循环执行一个并相应修改按钮名称(控件按钮代码) 11:在三个宏中依次循环执行一个并相应修改按钮名称(控件按钮代码) 12:根据A1单元文本隐藏/显示按钮(控件按钮代码) 13:当前单元返回按钮名称(控件按钮代码) 14:当前单元内容返回到按钮名称(控件按钮代码) 15:奇偶页分别打印 16:自动打印多工作表第一页 17:查找A列文本循环插入分页符 18:将A列最后数据行以上的所有B列图片大小调整为所在单元大小 19:返回光标所在行数 20:在A1返回当前选中单元格数量 21:返回当前工作簿中工作表数量 22:返回光标选择区域的行数和列数 23:工作表中包含数据的最大行数 24:返回A列数据的最大行数 25:将所选区域文本插入新建文本框 26:批量插入地址批注 27:批量插入统一批注 28:以A1单元内容批量插入批注 29:不连续区域插入当前文件名和表名及地址 30:不连续区域录入当前单元地址 31:连续区域录入当前单元地址 32:返回当前单元地址 33:不连续区域录入当前日期 34:不连续区域录入当前数字日期 35:不连续区域录入当前日期和时间 36:不连续区域录入对勾 37:不连续区域录入当前文件名 38:不连续区域添加文本 39:不连续区域插入文本 40:从指定位置向下同时录入多单元指定内容 41:按aa工作表A列的内容排列工作表标签顺序 42:以A1单元文本作表名插入工作表 43:删除所有未选定工作表 44:工作表标签排序 45:定义指定工作表标签颜色 46:在目录表建立本工作簿中各表链接目录 47:建立工作表文本目录 48:查另一文件的所有表名 49:当前单元录入计算机名 50:当前单元录入计算机用户名 51:解除所有工作表保护 52:为指定工作表加指定密码保护表 53:在有密码的工作表执行代码 54:执行前需要验证密码的宏(控件按钮代码) 55:执行前需要验证密码的宏() 56:拷贝A1公式和格式到A2 57:复制单元数值 58:插入数值条件格式 59:插入透明批注 60:添加文本 61:光标定位到指定工作表A列最后数据行下一单元 62:定位选定单元格式相同的所有单元格 63:按当前单元文本定位 64:按固定文本定位 65:删除包含固定文本单元的行或列 66:定位数据及区域以上的空值 67:右侧单元自动加5(工作表代码) 68:当前单元加2 69:A列等于A列减B列 70:用于光标选定多区域跳转指定单元(工作表代码) 71:将A1单元录入的数据累加到B1单元(工作表代码) 72:在指定颜色区域选择单元时添加/取消"√"(工作表代码) 73:在指定区域选择单元时添加/取消"√"(工作表代码) 74:双击指定单元,循环录入文本(工作表代码) 75:双击指定单元,循环录入文本(工作表代码) 76:单元区域引用(工作表代码) 77:在指定区域选择单元时数值加1(工作表代码) 78:混合文本的编号 79:指定区域单元双击数据累加(工作表代码) 80:选择单元区域触发事件(工作表代码) 81:当修改指定单元内容时自动执行宏(工作表代码) 82:被指定单元内容限制执行宏 83:双击单元隐藏该行(工作表代码) 84:高亮显示行(工作表代码) 85:高亮显示行和列(工作表代码) 86:为指定工作表设置滚动范围(工作簿代码) 87:在指定单元记录打印和预览次数(工作簿代码) 88:自动数字金额转大写(工作表代码) 89:将所有工作表的A1单元作为单击按钮(工作簿代码) 90:闹钟——到指定时间执行宏(工作簿代码) 91:改变Excel界面标题的宏(工作簿代码) 92:在指定工作表的指定单元返回光标当前多选区地址(工作簿代码) 93:B列录入数据时在A列返回记录时间(工作表代码) 94:当指定区域修改时在其右侧的2个单元返回当前日期和时间(工作表代码) 95:指定单元显示光标位置内容(工作表代码) 96:每编辑一个单元保存文件 97:指定允许编辑区域 98:解除允许编辑区域限制 99:删除指定行 100:删除A列为指定内容的行 1:打开所有隐藏工作表 Sub 打开所有隐藏工作表() Dim i As Integer For i = 1 To Sheets.Count Sheets(i).Visible = True Next i End Sub 2:循环宏 Sub 循环() AAA = Range("C2") Dim i As Long Dim times As Long times = AAA 'times代表循环次数,执行前把times赋值即可(不可小于1,不可大于2147483647) For i = 1 To times Call 过滤一行 If Range("完成标志") = "完成" Then Exit For '假如名为'完成标志'的命名单元的值等于'完成',则退出循环,假如一开始就等于'完成',则只执行一次循环就退出 'If Sheets("传送参数").Range("A" & i).Text = "完成" Then Exit For '假如某列出现"完成"内容则退出循环 Next i End Sub 3:录制宏时调用“停止录制”工具栏 Sub 录制宏时调用停止录制工具栏(。
转载请注明出处51数据库 » wordvba插入对象