Velocity Reviews - Computer Hardware Reviews

Velocity Reviews > Newsgroups > Programming > Python > Search & Replace in MS Word Puzzle

Reply
Thread Tools

Search & Replace in MS Word Puzzle

 
 
Ola K
Guest
Posts: n/a
 
      12-09-2006
Hi guys,
I wrote a script that works *almost* perfectly, and this lack of
perfection simply puzzles me.
I simply cannot point the whys, so any help on it will be appreciated.
I paste it all here, the string at the beginning explains what it does:

'''A script for MS Word which does the following:
1) Assigns all Hebrew italic characters "Italic" character style.
2) Assigns all Hebrew bold characters "Bold" character style.
2) Assign all English US characters "English Text" (can be regular,
Italic, or Bold)

'''
import win32com.client

#setting up shortcuts
word = win32com.client.Dispatch("Word.Application")
doc = word.ActiveDocument
find = doc.Content.Find
w=win32com.client.constants

#creating the needed styles if not there already
if "Italic" not in doc.Styles:
doc.Styles.Add("Italic",w.wdStyleTypeCharacter)
#"ItalicBi" is the same as "Italic", but for languages that go Right to
Left.
doc.Styles("Italic").Font.ItalicBi = True
print "Italic style was created"
if "Bold" not in doc.Styles:
doc.Styles.Add("Bold",w.wdStyleTypeCharacter)
doc.Styles("Bold").Font.BoldBi = True
print "Bold style was created"
if "English Text" not in doc.Styles:
doc.Styles.Add("English Text", w.wdStyleTypeCharacter)
doc.Styles("English Text").Font.Scaling = 80
print "English Text style was created"
if "English Text Italic" not in doc.Styles:
doc.Styles.Add("English Text Italic", w.wdStyleTypeCharacter)
doc.Styles("English Text Italic").BaseStyle = "English Text"
doc.Styles("English Text").Font.Italic = True
print "English Text Italic style was created"
if "English Text Bold" not in doc.Styles:
doc.Styles.Add("English Text Bold", w.wdStyleTypeCharacter)
doc.Styles("English Text Bold").BaseStyle = "English Text"
doc.Styles("English Text").Font.Bold = True
print "English Text Bold style was created"

#Search & Replacing Hebrew Italics
find.ClearFormatting()
find.Font.Italic = True
find.Format = True
find.LanguageID = w.wdHebrew
find.Replacement.ClearFormatting()
find.Replacement.Style = doc.Styles("Italic")
find.Execute(Forward=True, Replace=w.wdReplaceAll, FindText='',
ReplaceWith='')
print "Italic style was checked"

#Search & Replacing Hebrew Bolds
find.ClearFormatting()
find.Font.Bold = True
find.Format = True
find.LanguageID = w.wdHebrew
find.Replacement.ClearFormatting()
find.Replacement.Style = doc.Styles("Bold")
find.Execute(Forward=True, Replace=w.wdReplaceAll, FindText='',
ReplaceWith='')
print "Bold style was checked"

#Search & Replacing English Regulars
find.ClearFormatting()
find.LanguageID = w.wdEnglishUS
find.Font.Italic = False
find.Font.Bold = False
find.Replacement.ClearFormatting()
find.Replacement.Style = doc.Styles("English Text")
find.Execute(Forward=True, Replace=w.wdReplaceAll, FindText='',
ReplaceWith='')
print "English Text style was checked"

#Search & Replacing English Italics
find.ClearFormatting()
find.LanguageID = w.wdEnglishUS
find.Font.Italic = True
find.Replacement.ClearFormatting()
find.Replacement.Style = doc.Styles("English Text Italic")
find.Execute(Forward=True, Replace=w.wdReplaceAll, FindText='',
ReplaceWith='')
print "English Text Italic style was checked"

#Search & Replacing English Bolds
find.ClearFormatting()
find.LanguageID = w.wdEnglishUS
find.Font.Bold = True
find.Replacement.ClearFormatting()
find.Replacement.Style = doc.Styles("English Text Bold")
find.Execute(Forward=True, Replace=w.wdReplaceAll, FindText='',
ReplaceWith='')
print "English Text Bold style was checked"

print "We are done."
word.Visible=1

----------Code end here

So generally speaking this script works quite nicely, BUT:

1. Despite this sort of conditions:
" if "Italic" not in doc.Styles: "
if this style already exists I get an error, and the program stops.
Any idea how can that be?...

2. The replacement of the English characters doesn't seem to work very
well. It either assigns all English characters "English Text Bold", or
"English Text Italic" and with no apparent reason.
?....

3. The command
" word.Visible=1 "
doesn't work anymore. I say "anymore" because it used to work, but
later I ran "COM Makepy Utility" on "Microsoft Word 10 Object Library
(8.2)" and since then it stopped working. On Excel, for example, I
never ran Makepy and this commands works fine for it.
Any idea on this one?...

4. In the end of this long weekend I was pretty satisfied with my
script (even if not fully functioning) and used PY2EXE to make it an
..exe file so that I can use it in my work place. But alas, that .exe
file does not work because it doesn't recognize any of win32com client
constants. Such as "wdStyleTypeCharacter", or "wdEnglishUS"
How can I solve this one?

Advice will be very appreciated.

--Ola

 
Reply With Quote
 
 
 
 
Waldemar Osuch
Guest
Posts: n/a
 
      12-10-2006
I do not have answers for all your questions but a few remarks that may
help.

Ola K wrote:
> Hi guys,
> I wrote a script that works *almost* perfectly, and this lack of
> perfection simply puzzles me.
> I simply cannot point the whys, so any help on it will be appreciated.
> I paste it all here, the string at the beginning explains what it does:
>
> '''A script for MS Word which does the following:
> 1) Assigns all Hebrew italic characters "Italic" character style.
> 2) Assigns all Hebrew bold characters "Bold" character style.
> 2) Assign all English US characters "English Text" (can be regular,
> Italic, or Bold)
>


-- Code snipped

> So generally speaking this script works quite nicely, BUT:
>
> 1. Despite this sort of conditions:
> " if "Italic" not in doc.Styles: "
> if this style already exists I get an error, and the program stops.
> Any idea how can that be?...


doc.Styles is a container (a build in Word object) holding instances of
Styles
(another build in Word object). One way to make the intended check
would be.
style_names = set(s.NameLocal for s in doc.Styles)
if "Italic" not in style_names:
# create style

>
> 2. The replacement of the English characters doesn't seem to work very
> well. It either assigns all English characters "English Text Bold", or
> "English Text Italic" and with no apparent reason.
> ?....


Read about Range object in Word VBA documentation. Range.Collapse may
explain what happens here.

>
> 3. The command
> " word.Visible=1 "
> doesn't work anymore. I say "anymore" because it used to work, but
> later I ran "COM Makepy Utility" on "Microsoft Word 10 Object Library
> (8.2)" and since then it stopped working. On Excel, for example, I
> never ran Makepy and this commands works fine for it.
> Any idea on this one?...


This should work. If word.visible = True used to work but stopped
after running Makepy it could be explained. Looks to me there are some
other factors in play.

>
> 4. In the end of this long weekend I was pretty satisfied with my
> script (even if not fully functioning) and used PY2EXE to make it an
> .exe file so that I can use it in my work place. But alas, that .exe
> file does not work because it doesn't recognize any of win32com client
> constants. Such as "wdStyleTypeCharacter", or "wdEnglishUS"
> How can I solve this one?


This is described in py2exe wiki.
http://www.py2exe.org/index.cgi/IncludingTypelibs

Waldemar

 
Reply With Quote
 
 
 
 
Ola K
Guest
Posts: n/a
 
      12-10-2006
Waldemar Osuch wrote:
> 1. doc.Styles is a container (a build in Word object) holding instances of
> Styles (another build in Word object). One way to make the intended check
> would be.
> style_names = set(s.NameLocal for s in doc.Styles)
> if "Italic" not in style_names:
> # create style

I changed the code to that and it works perfectly! How come this is
better? I mean, I didn't find any logical or syntax problem with the
way it was before.

> 2. Read about Range object in Word VBA documentation. Range.Collapse may
> explain what happens here.


Well, so I did, and I can see now that the problem is probably that
Word takes into consideration the previous characters as well, unless I
collapse the range. However, I don't seem to find the way to properly
do it, syntax-wise. I only managed to collapse the Selection, which
didn't do the trick.

>4. This is described in py2exe wiki.
> http://www.py2exe.org/index.cgi/IncludingTypelibs


Thanks. I am now implementing this.

--Ola

 
Reply With Quote
 
 
 
Reply

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Search Replace MS Word 2000 from external program James D Andrews Computer Information 3 07-21-2011 08:58 PM
replace words to be bold for each search word Mark Toth Ruby 3 12-30-2007 04:38 PM
A puzzle to puzzle you sk A+ Certification 1 07-17-2004 05:19 PM
Search and replace a specific word in a file object. sebb Python 2 01-12-2004 08:30 AM



Advertisments