请教大神:关于VB6与word的问题

Question

最近做一个批量处理WORD文档时碰到一个问题:
要处理的WORD文档中包含有EXCEL的对象表格,因此在合并文档时,这些表格无法读到数据并进行格式调整.
请教:
1.在VB6里如何操作这些表格,包括读取及表格格式调整
谢谢!Visual Basic 6.0Word

Answer 1

本帖最后由 bcrun 于 2013-04-22 15:41:32 编辑

  

Answer 2

 
把这一句 删掉   If [a3] <> "" Then r = [a65536].End(xlUp).Row + 1 Else r = 3

Answer 3

谢谢您的回复！
可能是我没有讲清楚
对于单独的Wrod及Excel操作我可以操作
现在是：用Excel设计成表格，并作为对象插入在Wrod文档中，我现在是要调整已插入文档的这些对象（Excel）的格式（比如列宽、层高、加框等）
谢谢！

Answer 4

对象可以用ActiveDocumnet.Files(index)读出来，并定位到，但只能对象，不能激活并对里面的格式内容进行调整。

Answer 5

Table只能对Word自己的表格有用，对插入的对象不能设置
再次顶顶，求教达人们，帮帮忙

Answer 6

都可以,还是那句话,知道WORD的各个对象即可.
实例下面的代码对一个六列的表格设置宽度，宽度采用百分比宽度，从左至右的宽度百分比依次为：30，10，10，30，10，10：Dim WidthP(0 To 2) As IntegerDim j As Integerdim i as IntegerWidthP(0) = 30 
WidthP(1) = 10 
WidthP(2) = 10j = 0 
For i = 0 To SelfGenTable.Columns.Count - 1 
    If j > 2 Then 
        j = 0 
    End If 
    SelfGenTable.Columns(i + 1).PreferredWidthType = wdPreferredWidthPercent 
    SelfGenTable.Columns(i + 1).PreferredWidth = WidthP(j) 
    j = j + 1 
Next
我主要是VB,excel VBA,ACCESS VBA + SQL2000, c#, 对word vba曾经操作过, 借花献佛,自己去模仿吧
网址
 
http://i7now.blog.163.com/blog/static/12761986201182111455827/
http://www.doc88.com/p-240830635231.html

Answer 7

呵呵，谢谢
我是指从VB6中操作Word的
我会继续三研究一下你的帖子

Answer 8

昨晚研究了一下
可能得从Word的VBA入手
VB6看来是无法直接操作Word里插入的对象了
只好先结贴了

Answer 9

 可以做到的,有空我用VB给你做一个(一个文件夹下对多个相同WORD 表格 ,设置表格大小格式,字体大小,段落,换行符等的 操作)