Hallo

Welkom, Gast. Alsjeblieft inloggen of registreren.

Recent

256 gasten, 0 leden

Welkom, Gast. Alsjeblieft inloggen of registreren.

19 april 2024, 13:23:59

Login met gebruikersnaam, wachtwoord en sessielengte

Nieuws

Welkom op het vernieuwde NL Computer Forum!

Auteur Topic: word 2000 probleem  (gelezen 15431 keer)

0 leden en 1 gast bekijken dit topic.

Offline NLCOMP

  • Forumheld
  • *****
  • Berichten: 14.666
    • NL Computer Forum
word 2000 probleem
« Gepost op: 11 november 2009, 22:53:20 »
Bericht 1 van 8

NL Computer Forum ~ Word, Excel & Office
Van:Michel Uphoff (Sysop)Datum:25-08-2004
Aan:AllMsgID:1444.1
Onderwerp:word 2000 probleemForum:ws-nlcomputer
Hoi,

Probleem:
Word document met een knop in het document zelf (dus niet in de knoppenbalk). Klikken op die knop start een macro die de inhoud van het document controleert en het document na controle en evt. foutmedlingen onder een door de macro gegenereerde naam in een bepaalde map opslaat. Werkt uitstekend, maar..

Die knop wordt ook afgedrukt, en dat is de bedoeling niet. In excel hebben CommandButtons de eigenschap visible (false/true) dus daar is dat eenvoudig te regelen, maat om mij onbegrijpelijke redenen heeft zo'n button dat in Word 2000 niet.

Hoe voorkom ik nu dat die knop afgedrukt wordt? Onderdrukken van afdrukken afbeeldingen werkt natuurlijk ook niet, en ik zie helemaal nergens een optie of een stukje VBA code om het alsnog te regelen. Het is een button die je aanmaakt met de werkset besturingselementen.

Wie weet raad?

Michel Uphoff
(Sysop)

http://tinyurl.com/m8fp



Bericht 2 van 8

NL Computer Forum ~ Word, Excel & Office
Van:PeterDatum:25-08-2004
Aan:Michel Uphoff (Sysop)MsgID:1444.2
Onderwerp:word 2000 probleemForum:ws-nlcomputer
hoi Michel,

>>Hoe voorkom ik nu dat die knop afgedrukt wordt?

http://word.mvps.org/FAQs/TblsFldsFms/HidePrintButton.htm

Groeten, Peter


Bericht 3 van 8

NL Computer Forum ~ Word, Excel & Office
Van:Stefan de Best (Sysop)Datum:25-08-2004
Aan:Michel Uphoff (Sysop)MsgID:1444.3
Onderwerp:word 2000 probleemForum:ws-nlcomputer
Hoi Michel,

Er staat me vaags iets bij (of het was bij een ander programma, kan ook), dat als je een frame of een tekstvak o.i.d. in je document hebt je ervoor kan kiezen of deze afgedrukt moet worden of niet (via de eigenschappen van dat frame of tekstvak of een ander object waar je iets in kan zetten). Als ik het dus goed heb en je zet die knop van je dus *in* zo'n frame of tekstvak dan zou deze niet afgedrukt mogen worden (theoretisch gezien dan <g>).

Maarrrr, het kan best bij een ander programma geweest zijn hoor!
Misschien dat er bij jou nu wel een lichtje gaat branden...

..oh, was dat niet Excel waar dat kon? Dat je er dus voor kon kiezen of een object afgedrukt moet worden of niet...Groetjes
Stefan

http://tinyurl.com/yuojv



Bericht 4 van 8

NL Computer Forum ~ Word, Excel & Office
Van:Michel Uphoff (Sysop)Datum:26-08-2004
Aan:Stefan de Best (Sysop)MsgID:1444.4
Onderwerp:word 2000 probleemForum:ws-nlcomputer
>> dat als je een frame of een tekstvak o.i.d. in je document hebt je ervoor kan kiezen of deze afgedrukt moet worden of niet (via de eigenschappen van dat frame of tekstvak of een ander object waar je iets in kan zetten) <<

Hoi Stefan,

Jouw geheugen is prima. Vanavond nog even verder gezocht, en inderdaad is het via deze omweg in Word 2000 mogelijk. k trof exact de url aan die Peter ook al doorgaf.

Michel Uphoff
(Sysop)

http://tinyurl.com/m8fp



Bericht 5 van 8

NL Computer Forum ~ Word, Excel & Office
Van:Michel Uphoff (Sysop)Datum:26-08-2004
Aan:PeterMsgID:1444.5
Onderwerp:word 2000 probleemForum:ws-nlcomputer
>> http://word.mvps.org/FAQs/TblsFldsFms/HidePrintButton.htm <<

Hoi Peter,

Hoe is het mogelijk! Een paar minuten voor ik Ozzie een pass liet draaien stuitte ik op dezelfde url. Het blijft een niet erg fraaie, maar wel werkende mogelijkheid.

Vreemd dat de visible eigenschap in Excel wel en in word niet aanwezig is, niet?

Michel Uphoff
(Sysop)

http://tinyurl.com/m8fp



Bericht 6 van 8

NL Computer Forum ~ Word, Excel & Office
Van:PeterDatum:26-08-2004
Aan:Michel Uphoff (Sysop)MsgID:1444.6
Onderwerp:word 2000 probleemForum:ws-nlcomputer
Hoi Michel,

>>Vreemd dat de visible eigenschap in Excel wel en in word niet aanwezig is, niet?

Alle besturings-elementen hebben de eigenschap 'Visible' niet als je ze in een document plaatst. Als je ze in een 'UserForm' plaatst weer wel. Dan zijn ze ook weer omrand door eenzelfde kader als een 'TextVak' in een document.

Probeer dit maar eens:
Knop op een document plaatsen dat een UserForm toont.
---
Private Sub CommandButton1_click()
UserForm1.Show
End Sub
---

In dat UserForm 2 knoppen plaatsen en volgende code toevoegen;
---
Private Sub CommandButton1_Click()
CommandButton2.Visible = Not CommandButton2.Visible
End Sub
---
Als je nu op 'CommandButton1' klikt, verdwijnt 'commandButton2' of wordt weer zichtbaar.

Zowel Excel als Word maken hiervoor gebruik van hetzelfde besturings-element, namelijk MsForms.
Dus om 1 of andere reden geeft Word de eigenschap 'Visible' niet vrij indien geplaatst op een document.

groeten, Peter

Groeten, Peter


Bericht 7 van 8

NL Computer Forum ~ Word, Excel & Office
Van:Michel Uphoff (Sysop)Datum:26-08-2004
Aan:PeterMsgID:1444.7
Onderwerp:word 2000 probleemForum:ws-nlcomputer
Hoi Peter,

>> Dus om 1 of andere reden geeft Word de eigenschap 'Visible' niet vrij indien geplaatst op een document. <<

Precies, maar de reden is mij dus onduidelijk. Overigens heb ik het toch maar anders opgelost, want dat gedoe met een tekstvakje met daarin knoppen en dat vakje dan via een knop tijdelijk verbergen en daarna weer tonen vond ik maar een kromme oplossing. Dus heb ik een m.i. mooiere oplossing met CommandBars gemaakt. Geen gedoe met verbergen voor printen, en veel netter. Bovendien zijn de knopjes nu naar een plaats te slepen die de gebruiker zelf prettig vindt. De belangrijkste code:

Private Sub Document_Open()
'
' Als er nog een oude toolbar "Dossierhulpje" is, eerst wegkiepen

Dim Balk As Office.CommandBar
Dim Bestaat As Boolean
Bestaat = False
For Each Balk In Application.CommandBars
If Balk.Name = "DossierHulpje" Then Bestaat = True
Next
If Bestaat Then
CommandBars("DossierHulpje").Delete
End If

' Nu de nieuwe toolbar maken
CommandBars.Add(Name:="DossierHulpje").Visible = True

'inhoud genereren
With CommandBars("DossierHulpje").Controls
Set Knop = .Add(Type:=msoControlButton)
Knop.Caption = "Sla op als Concept"
Knop.OnAction = "CheckDoc"
Knop.FaceId = 3000

Set Knop = .Add(Type:=msoControlButton)
Knop.Caption = "Verstuur definitief document"
Knop.OnAction = "MoveFile"
Knop.FaceId = 2122

Set Knop = .Add(Type:=msoControlButton)
Knop.Caption = "Maak een Acrobat bestand aan"
Knop.OnAction = "MakePdf"
Knop.FaceId = 280

Set Knop = .Add(Type:=msoControlButton)
Knop.Caption = "Uitleg over de werking"
Knop.OnAction = "Help"
Knop.FaceId = 49
End With

'Toolbar positioneren en beschermen
With CommandBars("DossierHulpje")
.Left = 30
.Top = 110
.Protection = msoBarNoResize + msoBarNoChangeVisible + msoBarNoHorizontalDock + msoBarNoVerticalDock + msoBarNoChangeDock
End With

End Sub

------

Bij het verlaten van het document wordt het "Dossierhulpje" via wat code vanzelf weer de nek omgedraaid. Werkt prima zo.

Michel Uphoff
(Sysop)

http://tinyurl.com/m8fp



Bericht 8 van 8

NL Computer Forum ~ Word, Excel & Office
Van:PeterDatum:27-08-2004
Aan:Michel Uphoff (Sysop)MsgID:1444.8
Onderwerp:word 2000 probleemForum:ws-nlcomputer
hoi Michel,

>>Overigens heb ik het toch maar anders opgelost,...

Er zijn meerdere wegen die naar een oplossing leiden :-)

Peter