1.6w+
社区成员
- 全部
- VBS
- .NET技术
- VBA
- VB网络编程
- VB多媒体
- VB数据库
- VB控件
- VB COM/DCOM
- VB基础类
- VB API
- 问答
(寻求帮助)VB.net操作word?
我要在vb.net中调用word实现公文文档的格式化（经理的注意），请问各位大侠能够提供一点开发的资料或者思路，最好能够有实例或者源码？
谢谢
谢谢
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
tutuaction 2005-03-21
谢谢jjkcom的建议，我目前就是这么做的，但是还有些问题没有解决
结贴给分，另开贴讨论
结贴给分，另开贴讨论
jjkcom 2005-03-21
webbrowser显示office得文档，然后引用word对象进行操作，目前的office2003版本以下的结构化处理比较麻烦，你最好使用xml，office2003以上版本的word都支持结构化的数据分析
tutuaction 2005-03-10
难道没有人帮助我？
tutuaction 2005-03-10
是这样的：
我想把word作为一个类似于文本框之类的控件，直接嵌入到程序的界面上来，并且显示出指定的doc文档，
关于操作word文件，我已经清楚了
我想把word作为一个类似于文本框之类的控件，直接嵌入到程序的界面上来，并且显示出指定的doc文档，
关于操作word文件，我已经清楚了
捏造的信仰 2005-03-10
楼主你不是要写个Word出来吧。
tutuaction 2005-03-09
VB.net如何调用OLE操作word?
hamadou 2005-03-09
wordApp.Visible = True
不是已经显示出来了吗？？？
修改和上面的操作有什么区别吗？？
不是已经显示出来了吗？？？
修改和上面的操作有什么区别吗？？
tutuaction 2005-03-09
上面的方法可以生成一个word，但是如何显示出来，如何进行局部的修改？
尚和空四 2005-03-07
运用超连接调用
华芸智森 2005-03-07
不懂就用WORD里的宏录制。
然后将录制的内容COPY下来修改一下。。
然后将录制的内容COPY下来修改一下。。
hamadou 2005-03-07
是啊！自己写一个就好了。只不过是个例子！
Seeko0 2005-03-07
CreaTable是个获取数据源的函数,自己写一个
tutuaction 2005-03-07
Table = CreaTable()
这句该如何解释，为什么程序说未声明
这句该如何解释，为什么程序说未声明
usersmj 2005-03-07
同意楼上所说
hamadou 2005-03-07
Dim wordApp As New Word.Application()
Dim myDoc As Word.Document
Dim oTable As Word.Table
Dim rowIndex, colIndex As Integer
rowIndex = 1
colIndex = 0
wordApp.Documents.Add()
myDoc = wordApp.ActiveDocument
Dim Table As New DataTable()
Table = CreaTable()
oTable = myDoc.Tables.Add(Range:=myDoc.Range(Start:=0, End:=0), NumRows:=Table.Rows.Count + 1, NumColumns:=Table.Columns.Count)
'将所得到的表的列名,赋值给单元格
Dim Col As DataColumn
Dim Row As DataRow
For Each Col In Table.Columns
colIndex = colIndex + 1
oTable.Cell(1, colIndex).Range.InsertAfter(Col.ColumnName)
Next
'得到的表所有行,赋值给单元格
For Each Row In Table.Rows
rowIndex = rowIndex + 1
colIndex = 0
For Each Col In Table.Columns
colIndex = colIndex + 1
oTable.Cell(rowIndex, colIndex).Range.InsertAfter(Row(Col.ColumnName))
Next
Next
oTable.Borders.InsideLineStyle = 1
oTable.Borders.OutsideLineStyle = 1
wordApp.Visible = True
Dim myDoc As Word.Document
Dim oTable As Word.Table
Dim rowIndex, colIndex As Integer
rowIndex = 1
colIndex = 0
wordApp.Documents.Add()
myDoc = wordApp.ActiveDocument
Dim Table As New DataTable()
Table = CreaTable()
oTable = myDoc.Tables.Add(Range:=myDoc.Range(Start:=0, End:=0), NumRows:=Table.Rows.Count + 1, NumColumns:=Table.Columns.Count)
'将所得到的表的列名,赋值给单元格
Dim Col As DataColumn
Dim Row As DataRow
For Each Col In Table.Columns
colIndex = colIndex + 1
oTable.Cell(1, colIndex).Range.InsertAfter(Col.ColumnName)
Next
'得到的表所有行,赋值给单元格
For Each Row In Table.Rows
rowIndex = rowIndex + 1
colIndex = 0
For Each Col In Table.Columns
colIndex = colIndex + 1
oTable.Cell(rowIndex, colIndex).Range.InsertAfter(Row(Col.ColumnName))
Next
Next
oTable.Borders.InsideLineStyle = 1
oTable.Borders.OutsideLineStyle = 1
wordApp.Visible = True
