标题:VB生成Word中段落换行问题
取消只看楼主
sunduke
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2010-5-8
结帖率:100%
已结贴  问题点数:18 回复次数:6 
VB生成Word中段落换行问题
问题是这样的编了个计算程程序要导出到word中,paragraphs这个段落内写入内容,但是不能人为控制的换行(什么chr(13) chr(10)根本没用),
因为后面可以涉及到分节,虽然还不研究会。所以选用paragraphs这个方法,

我要在一个段落中输入多行文字,手动控制换行点,不知道有没有能控制换行的命令。十分感谢!

Dim wddoc As Word.Document
Dim wd As New Word.Application
Dim px As Word.Paragraph
wd.Documents.Add
Set wddoc = wd.ActiveDocument

Set px = wddoc.Paragraphs.Add
wddoc.Paragraphs.Item(1).Range.Bold = True
wddoc.Paragraphs.Item(1).Range.Text = "xxxxxxxx"  ''''加入 chr(13) 无用
wddoc.Paragraphs.Item(4).Range.InsertAfter "eeeeee" & "11111"   '''这个也没换行功能,加入换行chr(13)也无用。

wddoc.Paragraphs.Item(1).Alignment = wdAlignParagraphCenter
搜索更多相关主题的帖子: 研究会 Word 
2016-06-17 17:03
sunduke
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2010-5-8
得分:0 
回复 3楼 wmf2014
真不好意思,周末有事没来得及回复,加入VBcrlf,有的段落可以分段了,但是在段落之间加入表格或者图片什么的,vbcrlf后面的东西就会丢失掉了,不知道哪有问题,我整理下发个源码。
Desktop.rar (1.18 KB)
2016-06-20 08:07
sunduke
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2010-5-8
得分:0 
回复 楼主 sunduke
纯文本,用vbcrlf可以,加入了图片,表格就貌似不行了
2016-06-20 08:08
sunduke
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2010-5-8
得分:0 
这个段落的实现真心没搞清楚逻辑关系,也没找到相应的书籍。见下图,这样弄,乱得不行!
2016-06-20 08:22
sunduke
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2010-5-8
得分:0 
回复 6楼 sunduke
2016-06-20 08:23
sunduke
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2010-5-8
得分:0 
回复 8楼 ZHRXJR
麻烦您用我后面截图的内容输入一下,我试了下还是不行。这个应该跟paragraphs设置的关系,跟vbcrlf,chr10 13没关系吧!都是换行的符号,名字不一样吧。
2016-06-20 13:27
sunduke
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2010-5-8
得分:0 
回复 11楼 wmf2014
明白了,果然如此,指定了行,就出现乱了,不指定的话就正常了。谢谢!
2016-06-21 08:00



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-466051-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031986 second(s), 9 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved