Discussion :

[juniorglobal08]

Bonjour,

je travaille sur un export .txt que je met en forme avec word. (copy/paste puis mise en forme)
Malheureusement, lorsque je fait ma mise en page je me retrouve avec pleins de saut de page que je dois supprimer manuellement, et cela prend un temps fou.

Je n'arrive pas a trouver de solution pour supprimer tous les sauts de pages de mon document.

En plus de cela au niveau VBA word je connais rien du tout, j'ai juste réussi à fairte une macro qui met en page à l'aide de l'enregistreur, puis je defini ma police et ma taille de caractere.


Comment faire pour supprimer cesmaudits suats de page dans tout le document?

Si je fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Selection.WholeStory
Selection.DeleteBreak Type:=wdPageBreak

ca ne marche pas car la propriété delete ne peut pas etre affecter à l'objet break, c bien ca?

Que vaut il mieux faire:
1-une boucle qui repere tous les sauts de page puis les effaces (mais comment faire une boucle et dire d'aller a la page suivante dans Word?)
2-Ou alors selectionner tout le doc et supprimer touts les objets break de type pagebreak?

Merci beaucoup pour votre aide

[Heureux-oli]

Salut,

Pourquoi faire en VBA ce que l'interface peut faire ?

Jette un oeil sur ce tuto, je pense qu'il va t'aider.
http://sepia.developpez.com/office/w...cherremplacer/

[juniorglobal08]

salut heureux oli,

effectivement ca alair de fonctionner je ne savais pas que cete fonction été possible.
Enfin j'ai tester sur Wd2007 je verrais demain o taf sur Wd2000.
Mais bon c qd meme de la balle, merci beaucoup, je vais gagner un temps fou.

A part cela j'ai une autre question.

Avec cet export je doit imprimer certaine page en fonction des numero de compte qui apparaisse decu (je fais de la compta). En principe toujours les meme compte, sachant que pour les exeption sj epourrais bien les faire manuellement. Mais bon j'en ai une trentaine que je fais tous les jours et qui n'apparaissent bien evidement pas successivement.

Ex: je veux sortir le compte 351210586

jusqua maintenant je faisait un Ctrl+F (351210586) dans mon document puis j'imprime la page en cours.

Si je fait un truc du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub print ()
Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "351210586"
        .MatchWholeWord = True
    End With
    Selection.Find.Execute
    Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:=""
End Sub

est ce que cela peut marcher si je met les Find les uns a la suite des autres?
sans boucle? Acondition de faire le ClearFormating a chaque fois?
Si non , comment dire va chercher les comptes n°xxxxx, yyyyyy, zzzzz).
Puis imprime (xxxxxx; yyyyy; zzzzz)

Merci beaucoup.

[Heureux-oli]

Salut,

Si tu mets les Find les uns à la suite des autres, tu dois savoir combien tu vas en avoir sur le document.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim bootrouv As Boolean
 
Do 
Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "351210586"
        .MatchWholeWord = True
        bootrouv = .Execute
    End With
    Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:=""
loop While bootrouv

en clair :
Lorsque l'on fait une recherche, si elle est fructueuse, .execute renvoie vrai
Je stocke cette valeur dans une variable et je dis que tant que cette variable est vraie on recommence.