Bonjour à tous,
Etant une grosse grosse grosse nullité en terme de macro, je vous supplie de m'aider svp.
je présente mon problème :
je reçois des plans de constructions que je dois transférer chez un sous-traitants. Pour ne pas me faire voler mes clients, je masque (biffe) les informations contenues dans les documents avec pour l'instant le meilleur outil en ma possession, le fameux rouleau de blanc.
J'imagine qu'il existe aujourd'hui des moyens informatiques qui permettent de faire la même chose. j'ai déjà essayé de nombreuses fois mais mes compétences en informatiques s’arrêtent la!
j'ai importé les plans dans un document word et je pensais pouvoir inclure une forme automatique devant les infos à masquer et la répéter sur les autres pages mais que neni, ce diable de word ne veux rien savoir.
Si je copie colle la forme automatique, elle ne se replace pas au même endroit! j'ai essayé de passer par l'en tête mais pas ce n'est pas mieux! j'ai trouvé cette macro sur le net mais malheureusement pour moi la zone de texte est transparente et je ne peux m'en servir de biffe.
Les informations que je dois masquer sur mes plans sont incluent dans le cartouche et sont situées exactement au même endroit d'une page à l'autre. En fait je pense que la manipulation est très simple mais je n'ai pas trouvé, du coup je sollicite votre aide
Si quelqu'un peux me donner un axe d'amélioration ou une idée pour parvenir à mes fins, je suis preneur!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub zdt() Dim zdt As Shape, nombre Selection.HomeKey Unit:=wdStory nombre = Selection.Information(wdNumberOfPagesInDocument) nombre2 = 1 Do While nombre2 < nombre nombre2 = Selection.Information(wdActiveEndPageNumber) Set zdt = ActiveDocument.Shapes.AddTextbox _ (Orientation:=msoTextOrientationHorizontal, _ Left:=13, Top:=750, Width:=95, Height:=65) Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1 Loop End Sub
Si en plus cette personne me transmet une macro déjà terminée, je signe.
D'avance merci!
Cordialement,
Partager