Replace string with formatted bullet in word

[reggie55555]

I'm using an excel macro to find/replace a string with a formatted bullet in word. The code I'm using inserts a symbol and the formatting does not apply (i.e., the bulleted text does not allign with an indent). I need an actual bullet. Any ideas?

wdAPP.Selection.Find.ClearFormatting
wdAPP.Selection.Find.Replacement.ClearFormatting
With wdAPP.Selection.Find
    .Text = "sbullet2"
    With .Replacement
    .ClearFormatting
    .Text = ChrW(61558) & vbTab
    .Font.Name = "Wingdings"
    .Font.Color = wdBlack
    End With
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = True
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
wdAPP.Selection.Find.Execute Replace:=wdReplaceAll

 

[SkipVought]

hi,

Please explain EXACTLY what you mean by

the bulleted text does not allign with an indent

Could you post an ACTUAL example of the TEXT in your document that exists BEFORE and AFTER one of the FIND STRINGS, prior to running your macro.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[reggie55555]

What I mean is, my code adds a bullet as a symbol, not actual bulleting format, the second line does not indent because it's not actually a bullet.

Before:

sbullet2This is the string of text that is replacing the string ”sbullet2”. “sbullet2” is actually a place holder that I entered from a previous find/replace entry.

After:

 This is the string of text that is replacing the string ”sbullet2”. “sbullet2” is actually a place holder that I entered from a previous find/replace entry.

In the after, I want all of the text to be bulleted. The "a previous ..." should be alligned with the "This is the string...

 

[reggie55555]

Correction:

The 'after' example above didn't wrap as it did in my preview. I meant to illustrate that the subsequent lines do not indent correctly as shown here:

This is the string of text that is replacing the string ”sbullet2”. “sbullet2” is actually a place holder that I entered from a previous find/replace entry. This is the string of text that is replacing the string ”sbullet2”. “sbullet2” is actually a place holder that I entered from a previous find/replace entry.

 

[reggie55555]

3rd try:

 This is the string of text that is replacing the string ”sbullet2”. “sbullet2” is actually a place holder that I entered from a previous find/replace entry. This is the string of text that is replacing the string ”sbullet2”. “sbullet2” is actually a place holder that I entered from a previous find/replace entry.

 

[SkipVought]

Here is and example of the BEORE and AFTER texts I was looking for as it exists prior to running the macro

Now is the time
sbullet2 other stuff
sbullet2 more stuff
for all good men
sbullet2 no tab
sbullet2 nada
sbullet2 some other
to come to the aid of their country

Now I run your macro and here is the subsequent result

Now is the time
      other stuff
      more stuff
for all good men
      no tab
      nada
      some other
to come to the aid of their country

Of course the  character IS a WINGDING in my document.

Do you not get a similar result?

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[reggie55555]

Exactly. However, if the text is longer than one row, it will wrap but does not allign with the row above.

Now is the time
      other stuff blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah 
      more stuff
for all good men
      no tab
      nada
      some other
to come to the aid of their country

 

[SkipVought]

Well, you never even mentioned that!

That is simply an adjustement of the hanging indent!

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[reggie55555]

I tried replaceing vbtab with "^t" but it did not work. How do I adjust it.

 

[SkipVought]

I tried replaceing vbtab with "^t"

is like saying, "I replaced 'X' with 'X'!"

I am referring to the Hanging Indent associated with a paragraph, using the Hanging Indent ICON in the Ruler. Actually there are several ways to address this like First Line Indent or Hanging Indent. But it is all associated with properties of a Paragraph.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[SkipVought]

try something like this AFTER you replace...

    Dim ph As Word.Paragraph
    
    For Each ph In wdAPP.ActiveDocument.Paragraphs
        With ph
            If .Range.Characters(1) = ChrW(61558) Then
                .Range.Select
                With wdAPP.Selection.ParagraphFormat
                    .LeftIndent = InchesToPoints(0.5)
                    .RightIndent = InchesToPoints(0)
                    .SpaceBefore = 0
                    .SpaceBeforeAuto = False
                    .SpaceAfter = 10
                    .SpaceAfterAuto = False
                    .LineSpacingRule = wdLineSpaceMultiple
                    .LineSpacing = LinesToPoints(1.15)
                    .Alignment = wdAlignParagraphLeft
                    .WidowControl = True
                    .KeepWithNext = False
                    .KeepTogether = False
                    .PageBreakBefore = False
                    .NoLineNumber = False
                    .Hyphenation = True
                    .FirstLineIndent = InchesToPoints(-0.5)
                    .OutlineLevel = wdOutlineLevelBodyText
                    .CharacterUnitLeftIndent = 0
                    .CharacterUnitRightIndent = 0
                    .CharacterUnitFirstLineIndent = 0
                    .LineUnitBefore = 0
                    .LineUnitAfter = 0
                    .MirrorIndents = False
                    .TextboxTightWrap = wdTightNone
                End With
            End If
        End With
    Next

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[reggie55555]

Great suggestion.

I just needed to add "text" to:

If .Range.Characters(1).text = ChrW(61558) Then

and the following two gave errors so I removed them:

.MirrorIndents = False
.TextboxTightWrap = wdTightNone

but otherwise it is working perfectly.
Thanks!

 

[SkipVought]

You will need to LOOK UP in HELP, all WORD CONSTANTS and replace with actual values, like wdTightNone is 0 (ZERO).

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[macropod]

IMHO, it would be far better to define a suitable bulleted Paragraph Style, then use a wildcard Find/Replace to delete the 'ChrW(61558) & vbTab' strings and apply the Paragraph Style. Hard-formatting paragraphs is rarely a good idea. Having a Style also makes the document far easier to mainatin.

Cheers
Paul Edstein
[MS MVP - Word]

 

[SkipVought]

I yield to a Master!

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]