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: 11:37
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: 11:37
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







SDL MultiTerm 2017
Guarantee a unified, consistent and high-quality translation with terminology software by the industry leaders.

SDL MultiTerm 2017 allows translators to create one central location to store and manage multilingual terminology, and with SDL MultiTerm Extract 2017 you can automatically create term lists from your existing documentation to save time.

More info »
PerfectIt consistency checker
Faster Checking, Greater Accuracy

PerfectIt helps deliver error-free documents. It improves consistency, ensures quality and helps to enforce style guides. It’s a powerful tool for pro users, and comes with the assurance of a 30-day money back guarantee.

More info »



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