Notepad to Word : Pasting Specific text ie between any two blank line from notepad to word

[SMehta]

Sir if i may ask what does the following mean

in Demo 1

  .Text = "[^13]{2,}"
  .Replacement.Text = "^p"

in Demo 2

  .Text = "[^13]{2}[!^13]*[^13]{2}"
  .Replacement.Text = "^p"

To check i inserted the both Demos in Module and ran the macro for Demo 1
i got following the error "438" Object doesnt suport this property at

DocTgt.Range.Characters.Last.Text = .Text

Something happened surprisingly when
I ran Demo 2
Everything disappeared from VBA programming enviornment Coding Editor
it just displayed Microsoft Visual Basic for Application - Sample
and main document White Page from word was also not seen

Can you Please check and revert back on Demo 1 and Demo 2 ?

SMehta
Thread 1: Post 3