导航:首页 > 文件教程 > 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与表格相关的资料

热点内容
javaweb从入门到精通目录 浏览:339
高校职称文件保留多少年 浏览:467
网络的结构包括哪些 浏览:543
四轴编程收入怎么样 浏览:801
少儿编程老师求职简历怎么写 浏览:727
拿货app什么意思 浏览:28
华为vo手机销售数据哪个好 浏览:286
如何打印手机里的文件怎么打开 浏览:461
苹果平板文件夹不见了 浏览:59
jssplit竖线 浏览:259
织梦后台登陆密码忘记 浏览:983
数控xm坐标怎么编程 浏览:812
新建文件夹2韩国中文 浏览:177
js怎么调用settime 浏览:190
改善python程序的91个建议pdf 浏览:379
126邮箱下载文件名 浏览:889
英特尔超频教程 浏览:733
十本科技升级时间 浏览:232
不是一个pdf文件 浏览:387
dede数据库说明 浏览:344

友情链接