Insert Bullet

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Richard - 27 Aug 2007 10:25 GMT

Hi

I am trying to insert a bulleted point with this:

With wrdCell.Range
.AutoFormat
.Text = "Text First Line"
.InsertParagraphAfter
.Collapse (wdCollapseEnd)
.End = .End - 1
.ListFormat.ApplyBulletDefault
.Words(1).Font.Name = "Arial"
.Words(1).Font.Size = 10
.Words(1).Font.Italic = False
.InsertAfter "Text second line"
End With

The result is:

Text First Line
- Text second line
-

with and extra bullet. How do I code it to remove the second bullet or
please edit my code.

Many thanks in advance.
Richard

Reply to this Message

Russ - 27 Aug 2007 18:55 GMT

Selection.Range.ListFormat.ApplyBulletDefault
Toggles bullets on and of for the selected paragraph(s), depending on
current status.
So you might try fiddling with:
Selection.Collapse(wdCollapseEnd)
Selection.Range.ListFormat.ApplyBulletDefault

But I don't see where the second paragraph mark for the second bullet was
entered?

> Hi
>
[quoted text clipped - 24 lines]
> Many thanks in advance.
> Richard

Signature

Russ

drsmN0SPAMikleAThotmailD0Tcom.INVALID

Reply to this Message

Richard - 28 Aug 2007 02:29 GMT

Thanks Russ for your comment.

Doesn't work. I am over my head to where the other bullet is coming from.

Richard

> Selection.Range.ListFormat.ApplyBulletDefault
> Toggles bullets on and of for the selected paragraph(s), depending on
[quoted text clipped - 34 lines]
> > Many thanks in advance.
> > Richard

Reply to this Message

Richard - 28 Aug 2007 02:46 GMT

I checked and the problem lies with the underlying record. It was copied and
pasted over so there was a line / row after the text resulting in the
additional bullet.

Thanks anyway
Richard

> Selection.Range.ListFormat.ApplyBulletDefault
> Toggles bullets on and of for the selected paragraph(s), depending on
[quoted text clipped - 34 lines]
> > Many thanks in advance.
> > Richard

Reply to this Message

Russ - 28 Aug 2007 07:01 GMT

Richard,
Glad you found the answer.
By the way, I wasn't clear in my previous post about what to fiddle with. I
didn't mean to fiddle with your original lines of

Selection.Collapse(wdCollapseEnd)
Selection.Range.ListFormat.ApplyBulletDefault

But I meant to try to use those same two lines later to try to turn off the
bulleting before that last paragraph mark. For cleanup purposes after
turning off the bulleting, you may have wanted to add code to also delete
that extra paragraph mark at the end.

> I checked and the problem lies with the underlying record. It was copied and
> pasted over so there was a line / row after the text resulting in the
[quoted text clipped - 41 lines]
>>> Many thanks in advance.
>>> Richard

Signature

Russ

drsmN0SPAMikleAThotmailD0Tcom.INVALID

Reply to this Message