Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #3  
Old 12-15-2023, 09:43 AM
RobiNew RobiNew is offline Establish a new range after finding a string Windows 10 Establish a new range after finding a string Office 2016
Competent Performer
Establish a new range after finding a string
 
Join Date: Sep 2023
Posts: 208
RobiNew is on a distinguished road
Default

Many thanks, Vivka! A new problem: can you explain why the code here below doesn't work? I've tried two different (but equvalent) codes for Find, but nothing changes.
Code:
Sub InsertDiv()
  With Options
  .AutoFormatAsYouTypeReplaceQuotes = False
  End With
  Dim oRng As Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
  .ClearFormatting
  .Text = "(</body>)" & Chr(13)
  '.Text = "(" & Chr(60) & "/body" & Chr(62) & ")" & Chr(13)
  .Replacement.Text = "\1" & "<div align=""center"">" & Chr(13) & "=========================================================================="
  .Forward = True
  .Wrap = wdFindStop
  .Format = False
  .MatchWildcards = True
  Execute Replace:=wdReplaceAll
  '.Execute 
  End With
  With Options
  .AutoFormatAsYouTypeReplaceQuotes = True
  End With
  End Sub
Reply With Quote
 



Similar Threads
Thread Thread Starter Forum Replies Last Post
Subscript out of Range Error when searched for string and its line number in Text File SamDsouza Word VBA 4 01-12-2021 07:08 PM
Establish a new range after finding a string Wildcard replace any string in context with a specified string wardw Word 7 05-07-2018 09:13 AM
Establish a new range after finding a string How to Import range between two string from other document PRA007 Word VBA 1 12-18-2015 09:23 PM
Establish a new range after finding a string finding a string containing a combination of formats and adding text before Marco Word VBA 1 11-02-2015 05:08 PM
Establish a new range after finding a string Way to search for a string in text file, pull out everything until another string? omahadivision Excel Programming 12 11-23-2013 12:10 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 02:09 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft