如何在插入段落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時刪除行尾段

回答

相關問題