how do a toggle in Word 6?

This macro in Word 97 toggles the blue screen off and on:

Sub BlueScreenToggle()
Options.BlueScreen = Not (Options.BlueScreen)
End Sub

What would be the equivalent code for Word 6?

Thanks,
Larry

Klaus
Mon Oct 13 12:24:17 CDT 2003

"Larry" <larry328@att.net> wrote:
> This macro in Word 97 toggles the blue screen off and on:
>
> Sub BlueScreenToggle()
> Options.BlueScreen = Not (Options.BlueScreen)
> End Sub
>
> What would be the equivalent code for Word 6?


Hi Larry,

It's been a couple of years that I wrote my last WordBasic macro, but it
should be

Dim Dlg As ToolsOptionsGeneral
GetCurValues Dlg
Dlg.BlueScreen = Abs(Dlg.BlueScreen - 1)
ToolsOptionsGeneral Dlg

... I hope. Had to translate from the German WordBasic.

ToolsOptionsGeneral.BlueScreen was 1 for "True" and 0 for "False".
Usually, True corresponds to -1.
Thus the clumsy calculation: Abs(0-1)=1, Abs(1-1)=0.
You could devise several expressions to get around that... say
Dlg.BlueScreen = - Not(- Abs(Dlg.BlueScreen)) would work, too.

Klaus

Larry
Mon Oct 13 14:03:42 CDT 2003

I'll try it when I get to the other computer later, but from what you
said it looks kind of doubtful, Klaus. :-)

Is a toggle in Word 6 realy so much more complicated than in Word 97?

Larry




"Klaus Linke" <fotosatz_kaufmann@t-online.de> wrote in message
news:uStz6#akDHA.3688@TK2MSFTNGP11.phx.gbl...
> "Larry" <larry328@att.net> wrote:
> > This macro in Word 97 toggles the blue screen off and on:
> >
> > Sub BlueScreenToggle()
> > Options.BlueScreen = Not (Options.BlueScreen)
> > End Sub
> >
> > What would be the equivalent code for Word 6?
>
>
> Hi Larry,
>
> It's been a couple of years that I wrote my last WordBasic macro, but
it
> should be
>
> Dim Dlg As ToolsOptionsGeneral
> GetCurValues Dlg
> Dlg.BlueScreen = Abs(Dlg.BlueScreen - 1)
> ToolsOptionsGeneral Dlg
>
> ... I hope. Had to translate from the German WordBasic.
>
> ToolsOptionsGeneral.BlueScreen was 1 for "True" and 0 for "False".
> Usually, True corresponds to -1.
> Thus the clumsy calculation: Abs(0-1)=1, Abs(1-1)=0.
> You could devise several expressions to get around that... say
> Dlg.BlueScreen = - Not(- Abs(Dlg.BlueScreen)) would work, too.
>
> Klaus
>

Klaus
Tue Oct 14 14:47:25 CDT 2003

> Is a toggle in Word 6 realy so much more complicated than in Word 97?

WordBasic didn't have a Boolean data type, and used a lot of "magic numbers"
instead od wdConstants.

But I wouldn't call 3 lines of code "much more complicated".
If you think it's hard to read, you could write a bit more of code, and
comment it:

Dim Dlg As ToolsOptionsGeneral
GetCurValues Dlg
' Toggle BlueScreen between 0 and 1:
Select case Dlg.BlueScreen
Case 0
Dlg.BlueScreen = 1
Case 1
Dlg.BlueScreen = 0
End Select
ToolsOptionsGeneral Dlg


--
Klaus

Larry
Wed Oct 15 01:00:21 CDT 2003


Klaus,

I'm trying it in Word 97 since I heard that Word 6 macros work in word
97. (I don't have the Word 6 computer here in my home) . But I'm
running into a lot of error messages.

I rewrote the Dim lines for the Dlg and that got me through that. But
now I'm stuck at GetCurValues Dlg. Also, what does that line mean?

Dim Dlg As Dialog
'Set Dlg = wdDialogToolsOptionsGeneral
Set Dlg = ToolsOptionsGeneral
'Dim Dlg As ToolsOptionsGeneral


GetCurValues Dlg
' Toggle BlueScreen between 0 and 1:
Select Case Dlg.BlueScreen
Case 0
Dlg.BlueScreen = 1
Case 1
Dlg.BlueScreen = 0
End Select
ToolsOptionsGeneral Dlg

Thanks,
Larry



Klaus Linke wrote:
> > Is a toggle in Word 6 realy so much more complicated than in Word
> > 97?
>
> WordBasic didn't have a Boolean data type, and used a lot of "magic
> numbers" instead od wdConstants.
>
> But I wouldn't call 3 lines of code "much more complicated".
> If you think it's hard to read, you could write a bit more of code,
> and comment it:
>
> Dim Dlg As ToolsOptionsGeneral
> GetCurValues Dlg
> ' Toggle BlueScreen between 0 and 1:
> Select case Dlg.BlueScreen
> Case 0
> Dlg.BlueScreen = 1
> Case 1
> Dlg.BlueScreen = 0
> End Select
> ToolsOptionsGeneral Dlg
>
>
> --
> Klaus

Klaus
Wed Oct 15 17:23:37 CDT 2003

Hi Larry,

> I'm trying it in Word 97 since I heard that Word 6 macros work in
> word 97. (I don't have the Word 6 computer here in my home) .

Word used WordBasic up to Word95.
Word97 uses VBA.

You can still run WordBasic code in Word97/2000/2002/2003, but you'll have
to make some changes (not that running WordBasic code makes much sense in
most cases...):

Dim dlg As Object
Set dlg = WordBasic.DialogRecord.ToolsOptionsGeneral(False)

WordBasic.CurValues.ToolsOptionsGeneral dlg

' Toggle BlueScreen between 0 and 1:
Select Case dlg.BlueScreen
Case 0
dlg.BlueScreen = 1
Case 1
dlg.BlueScreen = 0
End Select
WordBasic.ToolsOptionsGeneral dlg

Greetings,
Klaus

Larry
Wed Oct 15 18:17:38 CDT 2003

Ahh, I thought any Word 6 macro would run in Word 97 "as is". Anyway,
now I've got to try out the earlier one you gave me on the Word 6
computer. Will let you know how it works. Thanks.

Larry

Larry
Sat Oct 25 00:09:56 CDT 2003



Thanks Klaus. I just got around to trying the code on my friend's
laptop, and it works. I didn't have to tweak it or anything.

Larry