导航:首页 > 文件教程 > vbaword与表格

vbaword与表格

发布时间:2024-04-12 03:26:55

❶ VBA将一个word表格中的内容复制到另外一个word的表格中

'打开后焦点发生了转移,activedocument已经指向刚打开的文件
'改为
Sub Macro1()
Dim myDoc
'On Error Resume Next
With ActiveDocument.Tables(1).Cell(Row:=1, Column:=3).Range
Set myDoc = Word.Application.Documents.Open("E:\1.docx")
.Delete
.InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)
End With
End Sub
'(
InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)这行代码中,你确定表2存在吗?我测试时只建一个表,所以改为Tables(1).



'也可以这样控制焦点
Sub Macro1()
Dim myDoc
'On Error Resume Next
Set myDoc = Word.Application.Documents.Open("E:\1.docx", , , , , , , , , , , vbHide)
With ActiveDocument.Tables(1).Cell(Row:=1, Column:=3).Range
.Delete
.InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)
End With
End Sub
'至于为什么多出一个换行符我还没想明白

❷ 在Excel中,通过VBA往word表格里写数据时,如何根据内容增加或者减少word表格列数

可以通过word的table对象对word表格进行操作。下面的代码在Excel的Vba中运行,运行前先添加Microsoft Word XX.0 Object Library的引用,其中XX.0根据你安装的Office 版本不同而不同,一般来试Office Word 2003 是11.0,Office Word 2013 是15.0 。

SubtoWord()
DimwordAppAsNewWord.Application
wordApp.Visible=True
DimwordDocAsWord.Document
DimwordTableAsWord.Table

SetwordDoc=wordApp.Documents.Add'新建一个文档

SetwordTable=wordDoc.Tables.Add(wordDoc.Range(),1,1,wdWord9TableBehavior,wdAutoFitWindow)'文档中插入一个表格
DimrAsLong,cAsLong
Forr=1ToActiveSheet.UsedRange.Rows.Count
Ifr>wordTable.Rows.CountThen
wordTable.Rows.Add'表格插入行
EndIf
Forc=1ToActiveSheet.UsedRange.Columns.Count
Ifc>wordTable.Columns.CountThen
wordTable.Columns.Add'表格插入列
wordTable.Columns.AutoFit
EndIf
wordTable.Cell(r,c).Range.Text=Cells(r,c)
Nextc
Nextr
wordTable.
EndSub

❸ 怎样在Word中用VBA操作表格

1、在新工作表的Sheet1上点击右键

阅读全文

与vbaword与表格相关的资料

热点内容
最大的数据线是多少厘米 浏览:880
湖州如何学数控编程 浏览:648
编程gu表示什么 浏览:259
表格批量修改照片文件名 浏览:934
20l6年元旦微信表情 浏览:720
网络销售股票怎么做 浏览:85
如何把qq程序解压出来 浏览:578
hearingtest安卓版 浏览:156
抽查原地形数据要抽多少个点 浏览:382
正时链条看电脑哪个数据 浏览:584
怎么让网站关键词排名 浏览:80
编程猫如何建立随机坐标列表 浏览:942
js中获取父元素的位置 浏览:703
androidmk拷贝文件 浏览:107
个人热点中的无线局域网密码 浏览:570
电视上用什么app看电视不要会员 浏览:152
java简单数字验证码 浏览:404
哪个app能看哈雷与戴维森 浏览:758
Linux的文件上传到hdfs 浏览:544
系统升级win10需要再重装么 浏览:205

友情链接