如何在插入段落VBA时删除行尾段

我将段落范围从一个文档插入另一个文档。例如如何在插入段落VBA时删除行尾段

arrList1 = oRow.Range.Cells(2).Range.Paragraphs(2).Range.Text 
some code 
oNewRow.Cells(2).Range.Text = arrList(lngIndex - 1) & vbCr & arrList1

代码处于试错状态。

上面代码的问题是它在末尾插入一段oNewRow.Cells(2).Range.Text。如何防止这种情况发生。

我的oRow.Range.Cells(2).Range.Paragraphs(2).Range.Text总是没有段落意味着单元格2中只有2个段落。我不知道从哪里开始添加段落。

来源

2015-12-10 Rahul

我认为vbCr正在创造一个新的段落。尝试vbLF或vbCrLf，看看其中的一个是否能为您提供所需的格式。

更新：您对arrList1尾回车，所以你要修剪的回车符char(13)。尝试添加此设置了arrList1变量之后：

arrList1 = oRow.Range.Cells(2).Range.Paragraphs(2).Range.Text 
If Right(arrList1, 1) = Chr(13) Then 
    arrList1 = Left(arrList1, Len(arrList1) - 1) 
End If

来源

2015-12-10 10:18:19 femmestem

都尝试。没有删除第该段实际上是在最后，我在之间使用vbcr。由于arrList1，Para正在启动。 – Rahul

@Rahul我已经更新了我的答案，修剪了'arrList1'的尾部段落。我不确定额外的段落是从哪里来的，而不是看你的项目，但希望修剪掉它会让你的项目继续前进。 – femmestem

如何在插入段落VBA时删除行尾段

回答

相关问题