请问怎样在Word或Excel做的表格里面读取文字进去表格？

操作步骤：1、选中表格，单击鼠标右键，弹出快捷菜单，选择表格属性命令，如图所示；2、弹出表格对话框，选择行选项卡，选中指定高度复选框，在输入框中输入所需要的高度值，如图所示；3、选择列选项卡，选中指定宽度复选框，在输入框中输入所需要的高度值，如图所示；

怎样用word做表格？

Sub Macro1()Dim p$, f$, rngCopy As Range, rng As Range, a, s$Set rngCopy = Sheets（＂表格模板＂）.Rows(＂1:6＂)p = ThisWorkbook.Path & ＂\＂Application.ScreenUpdating = FalseCells.ClearWith CreateObject(＂WORD.APPLICATION＂)f = Dir(p & ＂*.doc＂)Do While f <> ＂＂rngCopy.Copy[a2].Insert Shift:=xlDownSet rng = Range(＂A2:G6＂).Documents.Open p & fWith .ActiveDocument.Tables(1)rng.Cells(1, 2) = Replace(.Cell(1, 2).Range.Text, Chr(7), ＂＂)rng.Cells(1, 4) = Replace(.Cell(1, 4).Range.Text, Chr(7), ＂＂)rng.Cells(1, 6) = Replace(.Cell(3, 2).Range.Text, Chr(7), ＂＂)rng.Cells(2, 2) = Replace(.Cell(3, 4).Range.Text, Chr(7), ＂＂)rng.Cells(2, 4) = Replace(.Cell(1, 6).Range.Text, Chr(7), ＂＂)rng.Cells(2, 6) = Replace(.Cell(4, 4).Range.Text, Chr(7), ＂＂)s = Replace(.Cell(2, 2).Range.Text, Chr(7), ＂＂)If InStr(s， ＂省＂) Thena = Split(s， ＂省＂)rng.Cells(3, 2) = a(0)s = a(1)End IfIf InStr(s， ＂市＂) Thena = Split(s， ＂市＂)rng.Cells(3, 4) = a(0)s = a(1)End IfIf InStr(s， ＂道＂) Thena = Split(s， ＂道＂)rng.Cells(4, 2) = a(0)s = a(1)End IfIf InStr(s， ＂楼＂) Thena = Split(s， ＂楼＂)rng.Cells(4, 4) = a(0)End Ifrng.Cells(3, 7) = Replace(.Cell(6, 2).Range.Text, Chr(7), ＂＂)rng.Cells(4, 7) = Replace(.Cell(6, 4).Range.Text, Chr(7), ＂＂)rng.Cells(5, 2) = Replace(.Cell(5, 2).Range.Text, Chr(7), ＂＂)rng.Cells(5, 7) = Replace(.Cell(6, 6).Range.Text, Chr(7), ＂＂)End With.ActiveDocument.Closef = DirLoop.QuitEnd WithApplication.ScreenUpdating = TrueEnd Sub

您好,我想问一下用EXCEL vba读取word表格中的表格数据怎么读取...

Excel 格式的文档可以使用Word 来打开，但是反之却不可以。

这并不意味着没有办法解决你的问题了，相反，可以使用一种很巧妙的方法实现Word 和Excel之间表格转换，这要使用一个中间的文件格式作为中介来实现你的要求。

Word 和Excel共同支持的文档格式只有html网页格式，所以你只要在Word 97中把你的文档另存为一个html格式的文件，然后在Excel中打开这个html文件就可以把Word 中的表格转换到Excel 中去了 或

在Excel中快速插入Word表格的方法是什么？

请采纳我的答案。

8、快速插入Word表格Excel可以处理Word表格中列出的数据，可用以下方法快速插入Word表格：（1）打开Word表格所在的文件；（2）打开要处理Word表格的Excel文件，并调整好两窗口的位置，以便能看见表格和要插入表格的区域；（3）选中Word中的表格；（4）按住鼠标左键，将表格拖到Excel窗口中，松开鼠标左键将表格放在需要的位置即可

转载请注明出处51数据库 » word 读取 表格