如何将界限从Excel到Word保持？

Question

我有这个代码，

Dim i As Integer
Dim word_fichier As Document
Dim MaFeuille As Worksheet
Dim nb_lines As Integer

    For i = 14 To nb_lines
        With word_fichier.Range.Find
            .Text = MaFeuille.Cells(i, 1)
            .Replacement.Text = MaFeuille.Cells(i, 2)
            .Execute Replace:=2
        End With
    Next i

此代码很好，但是如果我有一个类似

hello
i am the
annoying string

的单元格。replacement.text 不要保留线路断裂。

你有什么想法吗？

Answer 1

Excel仅在其单元格中使用线feed vblf 。

如果要在Word中进行真正的线路断开，则需要将其转换为 vbcrlf 段落中断 Enter 或 vbverticalTab 手动销售lane line Break kbd> shift + enter ：

.Replacement.Text = Replace$(MaFeuille.Cells(i, 2), vbLf, vbCrLf)