Frage : Wie ich tue, mehrfache Rahmen/Textkästen in Wort 2007 vorwählen

Ich habe ein Wort Doc. mit zahlreichen Textkästen, jedes mit einem Rahmen.  (er kam als rtf aus Kristallbericht heraus).  Ich möchte eine Gruppe von ungefähr 20 dieser Kästen vorwählen und sie en-Masse auf einen Punkt auf der Seite höher verschieben.  Es gibt vermutlich 400 Textkästen mit einzelnen Rahmen im Dokument.  Im Augenblick kann ich einen gestalteten Textkasten nur auf einmal vorwählen und ich kann den verschieben, aber andererseits muss ich das folgende tun.  Ich versucht, Verschiebung plus Klicken niederzuhalten und ctl plus Verschiebung niedergehalten und jedes Mal wenn sie nur ein vorwählt.  Ich möchte nicht ein Makro tun.  Nicht gibt es eine einfache Weise, dies zu tun????????????  DANK für irgendwelche hilft!!!!!!!!!!!!!!  Oh ja, wenn ich einzeln die Rahmen lösche, springt der Text bis zur Oberseite der Seite hinter anderem Text boxes.

Antwort : Wie ich tue, mehrfache Rahmen/Textkästen in Wort 2007 vorwählen

Hallo North_Side,

Ich ging tief in das Problem und bestand ein Makro, das Rahmen in area per informazioni umwandelt.
Es ist, nicht die 100%-Universalität aber gibt annehmbare Auswirkungen auf Akten, die Sie zur Verfügung stellten.
Sie können dieses Makro in Normal.dot legen und es ist immer vorhanden, indem es Alt+F8 - 2click auf Makronamen betätigt.
Der Prozess ist ziemlich Zeit raubend, also hinzufügte ich Zwischenbericht Statusstab gte.
Bitte versuchen. Ich einsetzte auch Makro im Dokument ch, das Sie zur Verfügung stellten.

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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

'---------------------------------------------------------------------------------------
'Verfahren: Frames2TextBoxes
'Autor    : Alexey Egorov, [email protected]
'Datum      : 11-Jul-2010
'Zweck   : Ersetzt alle Rahmen im aktiven Dokument durch die area per informazioni, die Position halten.
'Thema     : http://www.experts-exchange.com/Microsoft/Applications/Q_26319089.html
'---------------------------------------------------------------------------------------
VorFrames2TextBoxes ()
Schwacher aF () als Word.Frame, f als Word.Frame, t als Word.Shape, i als lang, n als lang
Schwaches stbar, wie Boolesch
Auf Störung Goto- err_
Application.ScreenUpdating = falsch
stbar = Application.DisplayStatusBar
n = ActiveDocument.Frames.Count
ReDim aF (N)
Für i = 1 zu n
    aF einstellen (i) = ActiveDocument.Frames (i)
Zunächst

Für i = 1 zu n
    Application.StatusBar = Format (i, """, das "" ####") u. Format (n, """ von "" ####") umwandelt
    Einstellen f = aF (i)
    f.Range.Select
    Selection.CreateTextbox
    Einstellen 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
    
    Mit t.TextFrame
        .MarginBottom = 0
        .MarginLeft = 0
        .MarginRight = 0
        .MarginTop = 0
    Ende mit
    t.Line.Visible = msoFalse
Zunächst
exit_here:
Application.ScreenUpdating = ausrichten en
Application.DisplayStatusBar = stbar

Unterseeboot herausnehmen

err_:
MsgBox Err.Description, vbCritical
Zusammenfassung exit_here
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us