Fråga : Välj multipeln inramar/text boxas uttrycker in 2007, hur gör jag

Jag har en uttrycka doc med talrik text boxas, varje med en inrama.  (den kom som en rtf ut ur kristallen som anmäler).  Jag önskar att välja en grupp av omkring 20 av dessa boxas, och flyttningen som de en samlas till en fläck higher på sidan.  Det finns antagligen 400 som text boxas med individen inramar i dokumentet.  Höger nu, jag kan endast välja en inramad text boxas i sänder, och jag kan flyttningen som men jag behöver därefter för att göra det nästa.  Jag har försökt innehav besegrar förskjutningsplus klickar, innehav besegrar den positiva förskjutningen för ctl och, varje gång den väljer endast en.  Jag önskar inte att göra en makro.  Finns inte det ett enkelt långt att göra detta????????????  TACK för några hjälper!!!!!!!!!!!!!!  Oh ja, om jag tar individuellt bort, inramar, texten hoppar upp till det bästa av sidan förbi annan text boxes. " klar "

Svar : Välj multipeln inramar/text boxas uttrycker in 2007, hur gör jag

Hi North_Side,

Jag gick djupt i problemet och komponerade en makro som konverterar inramar till textboxes.
Det är inte universalen 100% utan ger godtagbara resultat sparar på dig g.
Du kan förlägga denna makro i Normal.dot, och den ska är alltid tillgänglig vid tränga Alt+F8 - 2click på den kända makroen.
Det processaa är ganska tidskrävande, så jag tillfogade framstegrapporten till status bommar för.
Behaga försök. Jag satte också in makro i dokumentet som du g.

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:

',---------------------------------------------------------------------------------------
'Tillvägagångssätt: Frames2TextBoxes
'Författare    : Alexey Egorov, [email protected]
'Datera      : 11-Jul-2010
'Ämna   : Byter ut alla inramar i aktivdokument med textboxes som att hålla placerar.
'Ämne     : http://www.experts-exchange.com/Microsoft/Applications/Q_26319089.html
',---------------------------------------------------------------------------------------
UnderFrames2TextBoxes ()
Dunkel aF () som Word.Frame, f som Word.Frame, t som Word.Shape, I som Long, n som Long
Dunkelt stbar som Boolean
På GoTo err_ för fel
Application.ScreenUpdating = falskt
stbar = Application.DisplayStatusBar
n = ActiveDocument.Frames.Count
ReDim aF (n)
För I = 1 till n
    Uppsättning aF (I) = ActiveDocument.Frames (I)
Därefter

För I = 1 till n
    Application.StatusBar = formaterar (I, """ som konverterar "" #### ") & formaterar (n, """ av "" #### ")
    Uppsättning f = aF (I)
    f.Range.Select
    Selection.CreateTextbox
    Uppsättning 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
    
    Med t.TextFrame
        .MarginBottom = 0
        .MarginLeft = 0
        .MarginRight = 0
        .MarginTop = 0
    Avsluta med
    t.Line.Visible = msoFalse
Därefter
exit_here:
Application.ScreenUpdating = True
Application.DisplayStatusBar = stbar

Gå ut suben

err_:
MsgBox Err.Description som är vbCritical
Meritförteckningexit_here
Avsluta suben
Andra lösningar  
 
programming4us programming4us