 | Start a set with this search |
 | Include this search in one of my sets |
 | Exclude this search from one of my sets |
 | Permalink to these results Paste this link in email or IM: |
 | Atom feed for tracking future search results Paste this URL into your reader: |
20 messages in org.openoffice.fr.progRe: [prog] Etiquettes : IsLabelDocument| From | Sent On | Attachments |
|---|---|---|
| Agnès Simonet | Jul 12, 2004 1:03 pm | |
| Tony GALMICHE | Jul 12, 2004 11:02 pm | |
| Agnès Simonet | Jul 13, 2004 10:12 am | |
| Tony GALMICHE | Jul 13, 2004 11:23 pm | |
| Agnès Simonet | Jul 14, 2004 1:10 am | |
| Tony GALMICHE | Jul 14, 2004 5:13 am | |
| Agnès Simonet | Jul 16, 2004 11:05 am | |
| Tony GALMICHE | Jul 16, 2004 11:33 pm | |
| Jovial | Jul 17, 2004 2:17 am | |
| Agnès Simonet | Jul 19, 2004 4:37 am | |
| Agnès Simonet | Jul 19, 2004 2:05 pm | |
| Jovial | Jul 19, 2004 2:16 pm | |
| Jovial | Jul 19, 2004 2:36 pm | |
| Bob | Jul 19, 2004 3:04 pm | |
| Agnès Simonet | Jul 20, 2004 2:00 am | |
| Agnès Simonet | Jul 20, 2004 2:04 am | |
| Bob | Jul 20, 2004 3:57 am | |
| Jovial | Jul 20, 2004 7:41 am | |
| Bob | Jul 20, 2004 4:12 pm | |
| Agnès Simonet | Jul 21, 2004 10:51 am |
| Permalink for this message Paste this link in email or IM: |
| Permalink for this thread Paste this link in email or IM: |
| Atom feed for this thread Paste this URL into your reader: |
| Subject: | Re: [prog] Etiquettes : IsLabelDocument | Actions... |
|---|---|---|
| From: | Agnès Simonet (agne...@laposte.net) | |
| Date: | Jul 16, 2004 11:05:12 am | |
| List: | org.openoffice.fr.prog | |
Bonjour Tony,
Tony GALMICHE a écrit :
Personnellement, j'ai réussi à masquer les N premières étiquettes en utilisant des champs comme variable et les conditions des sections sans utiliser de macro, mais c'est assez tordu...
Si ça t'intéresse, je pourrai te retrouver la procédure exacte.
@+
Tony
Oui ça m'intéresse, si ça ne te prend pas trop de temps pour retrouver la procédure.
Je joins ci-dessousma macro qui a l'air de fonctionner : sub Etiquettes_Page_Incomplete
'****** infos sur la page d'étiquettes ********** Dim nbtotal AS Integer Dim nbvide AS Integer nbtotal = Inputbox("Nombre d'étiquettes sur la feuille d'origine ?") nbvide = Inputbox("Nombre d'étiquettes vides ?")
'****** sauvegarde du fichier d'origine ******* Dim CheminFichierOri As String Dim NewCheminFichier As String
'Chemin du fichier en cours CheminFichierOri=ConvertToURL(ThisComponent.URL)
'nouveau nom 'j=len(CheminFichierOri)-4 NewCheminFichier = Left(CheminFichierOri,len(CheminFichierOri)-4)+"_partiel"+nbvide+".sxw" 'Print (NewCheminFichier) 'si le fichier existe déjà If dir(ConvertToURL(NewCheminFichier))<>"" then 'à modifier retour=msgBox(" Attention, un fichier portant ce nom est déjà sauvegardé dans le répertoire. Il sera écrasé lorsque vous sauvegarderez celui-ci. Voulez vous continuer ?",4+32) if retour<>6 then exit sub Endif
'sauve le document dim arguments() ThisComponent.StoreAsURL(NewCheminFichier,arguments())
'****** modification du document type"********* Dim NomSection As String Dim i As Integer Dim oSections(nbtotal) As Object Dim oSectionDebut As Object
'renommer la 1ère section non vide en "Debut", 'la delier et la déprotéger oSectionDebut = ThisComponent.TextSections.GetByIndex(nbvide) oSectionDebut.Name = "Debut" oSectionDebut.LinkRegion = "" oSectionDebut.IsProtected = False
' lier les sections suivantes à Debut For i = nbvide to (nbtotal -1) oSections(i) = ThisComponent.TextSections.GetByIndex(i) oSections(i).LinkRegion = "Debut" Next i
'masquer les sections d'étiquettes vides 'ne fonctionne pas car il n'y a pas de marque 'de fin de paragraphe derrière la section
'supprime la section incluse dans les étiquettes vides Dim oAncre As Object Dim oCurseur As Object Dim Cadre As Object For i = 0 to (nbvide-1) Cadre = ThisComponent.TextFrames.getByIndex(i) oCurseur =Cadre.Text.createTextCursor oCurseur.gotoEnd(TRUE) Cadre.Text.insertString (oCurseur, "" , TRUE) Next i
End Sub