Re: [discuss] trigger affichage/apercu des sauts de pages

Wed, 19 Apr 2006 22:44:08 -0700

Bonjour,

Voici une macro qui bascule l'affichage de l'un à l'autre (sur la base d'une macro de Laurent Godard vue sur son blog Nuxeo)

Function ToggleNormalPageBreak()
Dim myViewData as string
Dim mySplitVD
myViewData = ThisComponent.CurrentController.getViewData
mySplitVD = split(myViewData,";")
If right(mySplitVD(0),1) = "1" Then
    mySplitVD(0) = left(mySplitVD(0),len(mySplitVD(0))-1) & "0"
Else
    mySplitVD(0) = left(mySplitVD(0),len(mySplitVD(0))-1) & "1"
Endif
myViewData = Join(mySplitVD, ";")
ThisComponent.CurrentController.restoreViewData(myViewData)
End Function

Il ne reste plus qu'a l'associer à un bouton.

Cordialement

OOolivier

[EMAIL PROTECTED] a écrit : 
Selon Eric Belhomme <{gmane}+no/[EMAIL PROTECTED]>:

  
bonjour,

Une fonctionnalité très utilisée par mes utilisateurs avec Ms Excel etait
le bouton "aperçu des sauts de pages" de la barre d'outils "affichage" : un
clic sur se bouton basculait en mode "page", un autre clic rebasculait en
mode "normal".
    

  
Est-ce possible, ou est-ce que je perds mon temps là-dessus ?

--
Rico

    
Mea culpa, j'ai lu trop vite tout à l'heure.

Voici une petite macro qui le fait mais je ne suis pas parvenu à la lier à un
bouton :

REM  *****  BASIC  *****
global target as boolean
sub main
'change la macro à lancer


if target = false then
	target = true
	modeNormal
else
	target = false
	modeSautPage
endif

end sub

sub modeNormal
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

REM  *****  FIN DU BASIC  *****

C'est vite vite fait, il doit y avoir moyen de faire un truc plus fini ...

A+
Serge

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à