Selecting a text block

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

John Doue - 04 Mar 2006 08:27 GMT

Hi,

I would like to write a simple macro what would activate "block select"
(Ctrl+Shift+F8) and leave the block select" active until an appropriate
action concerning the selected bloc is taking.

I find that it is not possible to simply record the Ctrl+shift+F8
sequence. Can someone give me pointers?

Thanks

Signature

John Doue

Reply to this Message

Helmut Weber - 04 Mar 2006 08:38 GMT

Hi John,

hm...

Sub Macro20()
Selection.ColumnSelectMode = True
Selection.MoveRight Unit:=wdCharacter, Count:=12
Selection.MoveDown Unit:=wdLine, Count:=4
End Sub

If you click in the doc, the block vanishes. :-(
But you could click on buttons or menu-items.

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Reply to this Message

John Doue - 04 Mar 2006 08:54 GMT

> Hi John,
>
[quoted text clipped - 8 lines]
> If you click in the doc, the block vanishes. :-(
> But you could click on buttons or menu-items.

Thanks Helmut, I had tried this before I posted ...

Signature

John Doue

Reply to this Message

Tony Jollans - 04 Mar 2006 15:37 GMT

If I understand exactly what you're asking, I'm not sure if you can do it.
Setting ColumnSelectMode in a macro only seems to have effect until the
macro ends.

--
Enjoy,
Tony

> Hi,
>
[quoted text clipped - 8 lines]
> --
> John Doue

Reply to this Message

John Doue - 04 Mar 2006 19:38 GMT

> If I understand exactly what you're asking, I'm not sure if you can do it.
> Setting ColumnSelectMode in a macro only seems to have effect until the
[quoted text clipped - 16 lines]
>> --
>> John Doue

Yes, you did understand and aparrently, you stumble onto the same
problem I found when I tried to write a macro.
Thanks

Signature

John Doue

Reply to this Message

Helmut Weber - 06 Mar 2006 16:33 GMT

Hi John,

you may select some text in ColumnSelectMode
activate a userform,
and offer some actions to be taken.

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Reply to this Message