请问大神:关于VB6与word的有关问题
请教大神:关于VB6与word的问题
最近做一个批量处理WORD文档时碰到一个问题:
要处理的WORD文档中包含有EXCEL的对象表格,因此在合并文档时,这些表格无法读到数据并进行格式调整.
请教:
1.在VB6里如何操作这些表格,包括读取及表格格式调整
谢谢!
------解决方案--------------------
都可以,还是那句话,知道WORD的各个对象即可.
实例
下面的代码对一个六列的表格设置宽度，宽度采用百分比宽度，从左至右的宽度百分比依次为：30，10，10，30，10，10：
Dim WidthP(0 To 2) As Integer
Dim j As Integer
dim i as Integer
WidthP(0) = 30
WidthP(1) = 10
WidthP(2) = 10
j = 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
最近做一个批量处理WORD文档时碰到一个问题:
要处理的WORD文档中包含有EXCEL的对象表格,因此在合并文档时,这些表格无法读到数据并进行格式调整.
请教:
1.在VB6里如何操作这些表格,包括读取及表格格式调整
谢谢!
Visual Basic 6.0
Word
------解决方案--------------------
都可以,还是那句话,知道WORD的各个对象即可.
实例
下面的代码对一个六列的表格设置宽度，宽度采用百分比宽度，从左至右的宽度百分比依次为：30，10，10，30，10，10：
Dim WidthP(0 To 2) As Integer
Dim j As Integer
dim i as Integer
WidthP(0) = 30
WidthP(1) = 10
WidthP(2) = 10
j = 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