How do I add section breaks in VBA?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

spovolny@gmail.com - 01 May 2007 19:47 GMT

I'm interested in having my entire document protected except for a
single word which I need the user to be able to edit a hyperlink. The
word is on its own line, so I put in a continuous section break before
and after the line, and then protected all of the document except
section 2 (which is the line with the word I need unprotected). This
seemed to work fine, but I don't know how to replicate it in code,
which I need to do. Can anyone help? Thanks alot,
Steve

Reply to this Message

Doug Robbins - Word MVP - 01 May 2007 21:06 GMT

Dim myrange As Range, myrange2 As Range
Set myrange = Selection.Range
Set myrange2 = myrange.Duplicate
myrange.InsertBreak wdSectionBreakContinuous
myrange2.Collapse wdCollapseEnd
myrange2.InsertBreak wdSectionBreakContinuous

Signature

Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

> I'm interested in having my entire document protected except for a
> single word which I need the user to be able to edit a hyperlink. The
[quoted text clipped - 4 lines]
> which I need to do. Can anyone help? Thanks alot,
> Steve

Reply to this Message

Bear - 02 May 2007 20:42 GMT

Doug:

I almost "get" the Duplicate property for ranges, but it keeps slipping
away. Do you have any way to explain it so I'll understand better?

Bear

Signature

Windows XP, Word 2000

> Dim myrange As Range, myrange2 As Range
> Set myrange = Selection.Range
[quoted text clipped - 11 lines]
> > which I need to do. Can anyone help? Thanks alot,
> > Steve

Reply to this Message

Doug Robbins - Word MVP - 03 May 2007 09:19 GMT

You set a duplicate range when you will be doing something to the original
range that will alter that range and then later want to perform another
operation on what was the original range.

Signature

Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

> Doug:
>
[quoted text clipped - 18 lines]
>> > which I need to do. Can anyone help? Thanks alot,
>> > Steve

Reply to this Message