Question : Comment fais je choisir les armatures/boîtes multiples des textes dans le mot 2007

J'ai un Doc. de mot avec de nombreuses boîtes des textes, chacun avec une armature.  (elle a sorti comme rtf le reportage en cristal).  Je veux choisir un groupe environ de 20 de ces boîtes et les déplacer la masse d'en à une tache plus haut à la page.  Il y a probablement 400 boîtes des textes avec différentes armatures dans le document.  En ce moment, je peux seulement choisir une boîte encadrée des textes à la fois et je peux déplacer cela mais d'autre part je dois faire le prochain.  J'ai essayé de maintenir le décalage plus le clic, maintenant le ctl plus le décalage et chaque fois que il choisit seulement un.  Je ne veux pas faire un macro.  Une manière simple n'y a-t-il pas de faire ceci ? ? ? ? ? ? ? ? ? ? ? ?  MERCI pour en aident ! ! ! ! ! ! ! ! ! ! ! ! ! !  Oh oui, si je supprime individuellement les armatures, le texte saute jusqu'au dessus de la page après l'autre texte boxes. class= de

Réponse : Comment fais je choisir les armatures/boîtes multiples des textes dans le mot 2007

Salut North_Side,

Je suis entré profondément dans le problème et ai composé un macro qui convertit des armatures en boîtes à textes.
Ce n'est pas universel de 100% mais donne des résultats acceptables sur des dossiers que vous avez fournis.
Vous pouvez placer ce macro dans Normal.dot et il sera toujours disponible en pressant Alt+F8 - 2click sur le macro nom.
Le processus est plutôt long ainsi j'ai ajouté le rapport sur l'état d'avancement à la barre de statut.
Essayer svp. J'ai également inséré le macro dans le document que vous avez fourni.

Alex

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 : 30 : 31 : 32 : 33 : 34 : 35 : 36 : 37 : 38 : 39 : 40 : 41 : 42 : 43 : 44 : 45 : 46 : 47 : 48 : 49 : 50 :

'--------------------------------------------------------------------------------------- 'Procédé : Frames2TextBoxes 'Auteur : Alexey Egorov, [email protected] 'Date : 11-Jul-2010 'But : Remplace toutes les armatures dans le document actif par des boîtes à textes gardant la position. 'Matière : http://www.experts-exchange.com/Microsoft/Applications/Q_26319089.html '--------------------------------------------------------------------------------------- Frames2TextBoxes secondaire () Faible aF () comme Word.Frame, f comme Word.Frame, t comme Word.Shape, I en tant que longtemps, n en tant que longtemps Faible stbar comme booléen Sur l'err_ GoTo d'erreur Application.ScreenUpdating = faux stbar = Application.DisplayStatusBar n = ActiveDocument.Frames.Count ReDim aF (n) Pour I = 1 à n Placer l'aF (i) = ActiveDocument.Frames (i) Après Pour I = 1 à n Application.StatusBar = format (I, """ convertissant ####") de "" et format (n, """ de ####") de "" Placer f = aF (i) f.Range.Select Selection.CreateTextbox Placer t = Selection.ShapeRange (1) t.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage t.RelativeVerticalPosition = wdRelativeVerticalPositionPage t.Width = f.Width t.Height = f.Height t.Left = f.HorizontalPosition t.Top = f.VerticalPosition Avec t.TextFrame .MarginBottom = 0 .MarginLeft = 0 .MarginRight = 0 .MarginTop = 0 Extrémité avec t.Line.Visible = msoFalse Après exit_here : Application.ScreenUpdating = rectifient Application.DisplayStatusBar = stbar Sortir le sous-marin err_ : MsgBox Err.Description, vbCritical Exit_here de résumé Sous-marin d'extrémité