RE: Finding character styles in Word with VBA

["Mike Feimster" <mike -dot- feimster -at- acstechnologies -dot- com>]

Robert,

I'm on digest so I don't know if you've gotten an answer yet.

If you are trying to replace one character style with another, you should be
able to use the same code. Just remove the ^p from .Text and
.Replacement.Text.

With Selection.Find
	.Text = ""
	.Replacement.Text = ""
End With
Selection.Find.Execute Replace:=wdReplaceAll

If you want to remove a character style altogether and have the text take
the formatting of the underlying paragraph style use this line for the
Replacement.Style

Selection.Find.Replacement.Style = ActiveDocument.Styles("Default Paragraph
Font") You won't need the ^p either.

Hope that helps.

Mike

 
------------------------------

Message: 22
Date: Wed, 22 Mar 2006 11:17:56 +1100
From: "Partridge, Robert" <Robert -dot- Partridge -at- au -dot- unisys -dot- com>
Subject: Finding character styles in Word with VBA
To: "TECHWR-L" <techwr-l -at- lists -dot- techwr-l -dot- com>
Message-ID:
	
<0F1F0E9EF9C4B04AAB8071F38C94711603ED6024 -at- ausyd-exch1 -dot- ap -dot- uis -dot- unisys -dot- com>
	
Content-Type: text/plain;	charset="us-ascii"

Hi Guys,

Calling all Word VBA gurus... I'm trying to find both para and char
formats and replace them with other formats in Word XP. I've got an
array of the find styles and another of the replace styles. Finding and
replacing para formats is easy with this code:
 
    For i = 0 To 8
        Selection.Find.Style = ActiveDocument.styles(mystyles(i))
        Selection.Find.Replacement.Style =
ActiveDocument.styles(replacementstyles(i))
        With Selection.Find
            .Text = "^p"
            .Replacement.Text = "^p"
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next i
 
What I can't seem to do is find character styles using the same method.
So I've got a sentence like:
 
[style a]Something here [style b] and some more text in here[end style
b] and back to the original style.[end style a]
 
Is there any way to find style b and replace with style a with vba? I
tried using empty find and replace strings or using find any character
(^?) and replace with the find text (^&) but they don't work. I can find
the characteristics of Style B (font color = aqua and text = hidden) and
replace them with the normal characteristics, but I'd still have the
different character style peppered throughout the document.

Can anyone help?
 
Cheers,
 
Rob


^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

WebWorks ePublisher Pro for Word features support for every major Help
format plus PDF, HTML and more. Flexible, precise, and efficient content 
delivery. Try it today!. http://www.webworks.com/techwr-l 

Doc-To-Help includes a one-click RoboHelp project converter. It's that easy.  Watch the demo at http://www.componentone.com/TECHWRL/DocToHelp2005

---
You are currently subscribed to TECHWR-L as archive -at- infoinfocus -dot- com -dot- 

To unsubscribe send a blank email to 
techwr-l-unsubscribe -at- lists -dot- techwr-l -dot- com
or visit http://lists.techwr-l.com/mailman/options/techwr-l/archive%40infoinfocus.com

To subscribe, send a blank email to techwr-l-join -at- lists -dot- techwr-l -dot- com

Send administrative questions to lisa -at- techwr-l -dot- com -dot-  Visit
http://www.techwr-l.com/techwhirl/ for more resources and info.