Help with restore source macro needed
Thread poster: mmiikkaa
mmiikkaa
English
Feb 10, 2009

HI,

anyone able to adjust the following restore source macro so that it only applies to a text selection wirhin a doc?

thanks,
Miro

Sub RestoreSource()
Selection.HomeKey Unit:=wdStory
With ActiveWindow
With .View
.ShowHiddenText = True
End With
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "(\{\0\>)(*)(\)(*)(\


Direct link Reply with quote
 

Radek Ptak
Local time: 03:11
English to Polish
something like that Feb 10, 2009

I can't see actual replacement in your macro. Did you paste everything?

Anyway, you have to use Range object instead of Selection, for example:

Code:

Set Range001 = ActiveWindow.Selection.Range
With Range001.Find
.Text = "bel bel ble"
.Replacement.Text = "tra la la"
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchWildcards = True
.MatchFuzzy = False
End With
Range001.Find.Execute Replace:=wdReplaceAll




Radek


Direct link Reply with quote
 
mmiikkaa
English
TOPIC STARTER
Hi Radek Feb 11, 2009

Thanks for your reply. When sending the code, part of it got deleted, i dont know why. I will try again here:

Sub RestoreSource() + Selection.HomeKey Unit:=wdStory + With ActiveWindow + With .View + .ShowHiddenText = True + End With + End With + Selection.Find.ClearFormatting + Selection.Find.Replacement.ClearFormatting + With Selection.Find +
.Text = "(\{\0\>)(*)(\)(*)(\


Direct link Reply with quote
 
mmiikkaa
English
TOPIC STARTER
Ooops Feb 11, 2009

seems like I can only use so many characters in my reply. Anyway, should you be willing to help me, I can send you the macro (about 15 lines) to look at.

Direct link Reply with quote
 

Radek Ptak
Local time: 03:11
English to Polish
... Feb 11, 2009

Not a problem! Just send it to me somehow.

Radek


Direct link Reply with quote
 
mmiikkaa
English
TOPIC STARTER
ok, here is my address Feb 11, 2009

p r e kl a d @ p o st.s k

remove all spaces and send me an empty mail, Ill send you the code. As it is now, it restores the source succesfully (minor issues with footnotes) in the whole document.

oh and btw, thumbs up for your helpfulness!

thanks,
Miro


Direct link Reply with quote
 


To report site rules violations or get help, contact a site moderator:


You can also contact site staff by submitting a support request »

Help with restore source macro needed

Advanced search







WordFinder
The words you want Anywhere, Anytime

WordFinder is the market's fastest and easiest way of finding the right word, term, translation or synonym in one or more dictionaries. In our assortment you can choose among more than 120 dictionaries in 15 languages from leading publishers.

More info »
memoQ translator pro
Kilgray's memoQ is the world's fastest developing integrated localization & translation environment rendering you more productive and efficient.

With our advanced file filters, unlimited language and advanced file support, memoQ translator pro has been designed for translators and reviewers who work on their own, with other translators or in team-based translation projects.

More info »



Forums
  • All of ProZ.com
  • Term search
  • Jobs
  • Forums
  • Multiple search