Split some sentences by 'vbKeyEnter'

[justuptou]

In Excel VBA, I have the data (some sentences) from userform / Winword, how can I split the sentences by 'vbKeyEnter' and put it into array (or Cells) if i have not specified the Punctuation.

For example :
I have two pencils, (1st sentence, comma + vbKeyEnter)
I put them to my bag (2nd sentence, only vbKeyEnter)
and I go home. (3rd sentence, fullstop + vbKeyEnter)

Target result :
Range (B1) = I have two pencils,
Range (C1) = I put them to my bag
Range (D1) = and I go home.

[mana]

What do you mean?
1.vbKeyEnter
2.userform
3.Winword

[mancubus]

try this:

Sub vbax_58775_split_cell_content_vbLf()

    Dim arr
    
    arr = Split(Range("A1").Value, vbLf)
    Range("B1").Resize(, UBound(arr) + 1) = arr

End Sub

[justuptou]

=Split(my sentences, "Enter")

what is the code or function to declare the"enter" ?
My original sentences are read from a table at winword file or textbox at excel userform

What do you mean?
1.vbKeyEnter
2.userform
3.Winword

[mana]

??

Option Explicit


Sub test()
    Dim wd As Object
    Dim s As String
    Dim a
    
    Set wd = GetObject(, "word.application")
    s = wd.activedocument.tables(1).cell(1, 1).Range.Text
    a = Split(Left(s, Len(s) - 2), vbCr)
    Range("b1").Resize(, UBound(a) + 1).Value = a
     
End Sub

[justuptou]

The problem is solved, thank you.

[Paul_Hossler]

You can use [Thread Tools] in the menu above your first post to mark this SOLVED