https://www.proz.com/forum/cat_tools_technical_help/127246-help_with_restore_source_macro_needed.html
This site uses cookies. Some of these cookies are essential to the operation of the site, while others help to improve your experience by providing insights into how the site is being used. For more information, please see the ProZ.com privacy policy.
Cookie settings

Technical forums » CAT Tools Technical Help »
Help with restore source macro needed
Thread poster: mmiikkaa
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\>)(*)(\)(*)(\
 
Radek Ptak
Radek Ptak
Local time: 23:00
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"

... See more
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 ▲ Collapse

 
  
   

 
 
 
 
 
mmiikkaa
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\>)(*)(\)(*)(\
 
mmiikkaa
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.
 
Radek Ptak
Radek Ptak
Local time: 23:00
English to Polish
... Feb 11, 2009

Not a problem! Just send it to me somehow.

Radek
 
mmiikkaa
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
 


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

Moderator(s) of this forum
Natalie[Call to this topic]
Peter Zauner[Call to this topic]
Prachya Mruetusatorn[Call to this topic]

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

Help with restore source macro needed







Anycount & Translation Office 3000
Translation Office 3000

Translation Office 3000 is an advanced accounting tool for freelance translators and small agencies. TO3000 easily and seamlessly integrates with the business life of professional freelance translators.

More info »
Wordfast Pro
Translation Memory Software for Any Platform

Exclusive discount for ProZ.com users! Save over 13% when purchasing Wordfast Pro through ProZ.com. Wordfast is the world's #1 provider of platform-independent Translation Memory software. Consistently ranked the most user-friendly and highest value

Buy now! »