View Single Post
 
Old 01-17-2021, 07:27 PM
SMehta SMehta is offline Windows 10 Office 2013
Novice
 
Join Date: Jan 2021
Posts: 29
SMehta is on a distinguished road
Default

Sir if i may ask what does the following mean

in Demo 1
Code:
  .Text = "[^13]{2,}"
  .Replacement.Text = "^p"
in Demo 2
Code:
  .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
Reply With Quote