如何合并指定格内段落的代码？

ke3088

ax = ActiveDocument.Range( _
        Start:=ActiveDocument.Tables(1).Cell(3, 2).Range.Start, _
          End:=ActiveDocument.Tables(1).Cell(3, 2).Range.End - 1)
MsgBox ax
运行后，出现如下效果：



但是，我想要这个效果：



如何修改才可达到我要的效果呢？谢谢

413191246se

'删除回车符
    ActiveDocument.Content.Find.Execute FindText:="^l", replacewith:="", Replace:=wdReplaceAll
    ActiveDocument.Content.Find.Execute FindText:="^13", replacewith:="", Replace:=wdReplaceAll

ke3088

413191246se 发表于 2014-12-25 20:02
'删除回车符
    ActiveDocument.Content.Find.Execute FindText:="^l", replacewith:="", Replace:=wdRep ...

413191246se 兄，这二句是可以删除回车符，但我不是真要删除文档的回车符，只是想引用三行二列的数据来做保存标题，如中间回车符将产生错误。谢谢

413191246se

先读取单元格内容放到变量 S 里，然后把新内容替换存到变量 I 里，I 可以存为文件名，再把选定单元格赋值为原值 S。
Sub 显示三行二列内容()
    Dim s As String, i As String
    s = ActiveDocument.Tables(1).Cell(3, 2).Range.Text
   
    ActiveDocument.Tables(1).Cell(3, 2).Select
    ActiveDocument.Content.Find.Execute FindText:="^l", replacewith:="", Replace:=wdReplaceAll  '删除直回车
    ActiveDocument.Content.Find.Execute FindText:="^13", replacewith:="", Replace:=wdReplaceAll '删除弯回车
   
    i = ActiveDocument.Tables(1).Cell(3, 2).Range.Text
    i = Left(i, Len(i) - 2)
    MsgBox "[" & i & "]"
   
    ActiveDocument.Tables(1).Cell(3, 2).Range.Text = s
    ActiveDocument.Tables(1).Cell(3, 2).Range.Characters.Last.Previous.Delete
End Sub

ke3088

413191246se 兄，谢谢你！根据你的思路，我改动了一点，就是把新内容替换存到变量 I 里后，撤销最后一次的操作。
Sub 显示三行二列内容()
    If ActiveDocument.Tables(1).Cell(3, 2).Range.Paragraphs.Count >= 2 Then
       ActiveDocument.Tables(1).Cell(3, 2).Range.Find.Execute _
           FindText:="^l", replacewith:="", Replace:=wdReplaceAll
       ActiveDocument.Tables(1).Cell(3, 2).Range.Find.Execute _
           FindText:="^13", replacewith:="", Replace:=wdReplaceAll
       i = ActiveDocument.Range( _
          Start:=ActiveDocument.Tables(1).Cell(3, 2).Range.Start, _
               End:=ActiveDocument.Tables(1).Cell(3, 2).Range.End - 1)
       ActiveDocument.Undo 1 '撤销最后一次操作
       MsgBox i
       '移动或扩展到开始，wdLine 行，wdStory 文档，wdMove 折叠，wdExtend 扩展
       Selection.HomeKey Unit:=wdStory, Extend:=wdMove
    Else
       i = ActiveDocument.Range( _
           Start:=ActiveDocument.Tables(1).Cell(3, 2).Range.Start, _
               End:=ActiveDocument.Tables(1).Cell(3, 2).Range.End - 1)
       '移动或扩展到开始，wdLine 行，wdStory 文档，wdMove 折叠，wdExtend 扩展
       Selection.HomeKey Unit:=wdStory, Extend:=wdMove
       MsgBox i
    End If
End Sub
你看这样没有问题吧？谢谢

413191246se

楼主兄弟，如果达到你所希望的（切记使用VBA代码前一定要打包备份原文件）目的，就可以了。其实，我懂的VBA知识也不多，只是段落处理这一块会一点点。

周星骋

ke3088 兄，你又要设计什么大作出来？

ke3088

周星骋 发表于 2014-12-29 09:05
ke3088 兄，你又要设计什么大作出来？

正在弄一个自家用的文件排版VBA