vb控制Word时怎样换行？？？？？？？？

lzhcsdn4 2004-06-25 07:33:27

我需要在Word中插入文本、图片、表格。比如我现在需要这样：
加入一行文本
再在文本后面加入一个图片
再在图片后面加入一行文本
再在文本后面加入一个图片
再在图片后面加入一行文本
再在图片后面加入一个表格
现在的问题是我不知道用怎样的语句换行，才可以接着显示
望得到大家的帮助，谢谢

...全文

811 7 打赏收藏转发到动态举报

写回复

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

huanxiong0101 2004-08-05

打赏
举报

回复

up

vansoft 2004-06-28

打赏
举报

回复

只要在加入的内容后面加一个常量vbCrLf就可以了。
比如：
"你" & vbCrLf & "我"
以上内容加入的WORD的话就是二段。

Tenner 2004-06-26

打赏
举报

回复

假如你的Word对象变量名为Word
那就运行:

Word.Selection.TypeText (vbCrLf)
就是换行了

lzhcsdn4 2004-06-26

打赏
举报

回复

varWordApp.Selection.Paragraphs.Add
varWordApp.ActiveDocument.Paragraphs.Add
...
能否写完整？？？？
比如要加入一个RichTextBox控件中的文本，后加入一个PictureBox控件中的图片，后加入一行文字“你好”,后再加入一个PictureBox控件中的图片，后再加入一个文本“我好”
望能得到大家的帮助，谢谢！

techgopher 2004-06-26

打赏
举报

回复

varWordApp.Selection.Paragraphs.Add
varWordApp.ActiveDocument.Paragraphs.Add
...

linton 2004-06-25

打赏
举报

回复

我也希望这个问题能得到解决，因为也曾遇到类似问题。帮你顶！

broown 2004-06-25

打赏
举报

回复

帮你up吧

在VB.NET中导出数据到WORD中在VB.NET中导出数据到WORD中v在VB.NET中导出数据到WORD中

VB仿Office Word艺术字效果

VB访问word书签。 '实现代码如下 Dim cn As New ADODB.Connection Dim AdoRs As New ADODB.Recordset Dim WordTemps As New Word.Application Private Sub Form_Load() If cn.State = 1 Then cn.Close End If cn.CursorLocation = adUseClient cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" End Sub '开始导出数据 Private Sub Command1_Click() Dim strSQl As String Dim REC As Integer Dim i As Integer WordTemps.Documents.Add App.Path + "\货物合同.doc", False WordTemps.Selection.GoTo wdGoToBookmark, , , "合同标题" WordTemps.Selection.TypeText "关于冬季货物的成交合同" WordTemps.Selection.GoTo wdGoToBookmark, , , "合同编号" WordTemps.Selection.TypeText "2004000001" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约单位" WordTemps.Selection.TypeText "宏大科技公司，天天科技公司" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约地址" WordTemps.Selection.TypeText "北京中关村大厦" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约时间" WordTemps.Selection.TypeText fromat(Now, "yyyy-mm-dd") strSQl = "select * from Matrixs" AdoRs.Open strSQl, cn, adOpenKeyset, adLockOptimistic REC = AdoRs.RecordCount If REC < 1 Then MsgBox "无商品记录！", vbOKOnly, "提示" AdoRs.Close Exit Sub Else AdoRs.MoveFirst WordTemps.Selection.GoTo wdGoToBookmark, , , "货物清单" For i = 1 To REC WordTemps.Selection.TypeText AdoRs!名称 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!数量 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!规格 AdoRs.MoveNext If AdoRs.EOF = False Then WordTemps.Selection.InsertRowsBelow 1 '表格换行 End If Next i AdoRs.Close WordTemps.Visible = True '显示WORD窗口 End If End Sub '实现代码如下 Dim cn As New ADODB.Connection Dim AdoRs As New ADODB.Recordset Dim WordTemps As New Word.Application Private Sub Form_Load() If cn.State = 1 Then cn.Close End If cn.CursorLocation = adUseClient cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" End Sub '开始导出数据 Private Sub Command1_Click() Dim strSQl As String Dim REC As Integer Dim i As Integer WordTemps.Documents.Add App.Path + "\货物合同.doc", False WordTemps.Selection.GoTo wdGoToBookmark, , , "合同标题" WordTemps.Selection.TypeText "关于冬季货物的成交合同" WordTemps.Selection.GoTo wdGoToBookmark, , , "合同编号" WordTemps.Selection.TypeText "2004000001" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约单位" WordTemps.Selection.TypeText "宏大科技公司，天天科技公司" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约地址" WordTemps.Selection.TypeText "北京中关村大厦" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约时间" WordTemps.Selection.TypeText fromat(Now, "yyyy-mm-dd") strSQl = "select * from Matrixs" AdoRs.Open strSQl, cn, adOpenKeyset, adLockOptimistic REC = AdoRs.RecordCount If REC < 1 Then MsgBox "无商品记录！", vbOKOnly, "提示" AdoRs.Close Exit Sub Else AdoRs.MoveFirst WordTemps.Selection.GoTo wdGoToBookmark, , , "货物清单" For i = 1 To REC WordTemps.Selection.TypeText AdoRs!名称 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!数量 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!规格 AdoRs.MoveNext If AdoRs.EOF = False Then WordTemps.Selection.InsertRowsBelow 1 '表格换行 End If Next i AdoRs.Close WordTemps.Visible = True '显示WORD窗口 End If End Sub end

VB在Word中实现聊天功能，接收到的聊天内容过多，请关闭当前QQ聊天窗口，等待重新开启！错误：数据量过大，本程序在使用时必须同时打开聊天窗口，同时在QQ聊天窗口中设置发送时按，而不是！　　文件和帮助两菜单可用；上窗口区为信息显示区，下窗口区为信息发送区；双击上窗口区可翻转文字内容！　　在输入区内输入内容后，可按回车键换行，确认发送时按Ctrl 回车键！　　目前本程序仅限于对一人单独聊天，为了提升安全性，可将系统任务栏设置为自动隐藏！　　Microsoft Word 是微软公司的注册产品！特此声明。

文件处理源代码 VB之文件处理精彩编程-在 TextBox 中自动换行(2KB)

2,503

社区成员

10,829

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章