Questione : Come faccio selezionare le strutture/caselle di testo multiple nella parola 2007

Ho un documento con le numerose caselle di testo, ciascuno di parola con una struttura.  (è uscito da come rtf la segnalazione di cristallo).  Voglio selezionare un gruppo di circa 20 di queste scatole e spostarlo la massa dell'en verso un punto più su alla pagina.  Ci sono probabilmente 400 caselle di testo con le diverse strutture nel documento.  Ora, posso selezionare soltanto una casella di testo incorniciata alla volta e posso spostare quello ma d'altra parte devo fare il seguente.  Ho provato a mantenere lo spostamento più lo scatto, mantenendo il ctl più lo spostamento ed ogni volta seleziona soltanto uno.  Non voglio fare una macro.  Non è ci un senso semplice fare questo????????????  I RINGRAZIAMENTI per c'è ne aiutano!!!!!!!!!!!!!!  Oh sì, se cancello individualmente le strutture, il testo salta fino alla parte superiore della pagina oltre l'altro testo boxes. class= del

Risposta : Come faccio selezionare le strutture/caselle di testo multiple nella parola 2007

Ciao North_Side,

Sono andato profondamente nel problema ed ho composto una macro che converte le strutture in caselle di testo.
Non è universale di 100% ma dà i risultati accettabili sulle lime che avete fornito.
Potete disporre questa macro in Normal.dot e sarà sempre disponibile premendo Alt+F8 - 2click sul nome macro.
Il processo è piuttosto che richiede tempo in modo da ho aggiunto la relazione sullo stato di avanzamento alla barra di stato.
Provare prego. Inoltre ho inserito la macro nel documento che avete fornito.

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:

'---------------------------------------------------------------------------------------
'Procedura: Frames2TextBoxes
'Autore    : Alexey Egorov, [email protected]
'Data      : 11-Jul-2010
'Scopo   : Sostituisce tutte le strutture nel documento attivo con le caselle di testo che mantengono la posizione.
'Soggetto     : http://www.experts-exchange.com/Microsoft/Applications/Q_26319089.html
'---------------------------------------------------------------------------------------
Frames2TextBoxes secondario ()
aF fioco () come Word.Frame, f come Word.Frame, t come Word.Shape, i come lungamente, n come lungamente
Stbar fioco come booleano
Sul err_ di avanzamento di errore
Application.ScreenUpdating = falso
stbar = Application.DisplayStatusBar
n = ActiveDocument.Frames.Count
ReDim aF (n)
Per i = 1 a n
    Regolare il aF (i) = ActiveDocument.Frames (i)
Dopo

Per i = 1 a n
    Application.StatusBar = disposizione (i, """ che converte il ####") del "" & disposizione (n, """ del ####") del ""
    Regolar f = aF (i)
    f.Range.Select
    Selection.CreateTextbox
    Regolar 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
    
    Con t.TextFrame
        .MarginBottom = 0
        .MarginLeft = 0
        .MarginRight = 0
        .MarginTop = 0
    Estremità con
    t.Line.Visible = msoFalse
Dopo
exit_here:
Application.ScreenUpdating = allineano
Application.DisplayStatusBar = stbar

Uscire il sommergibile

err_:
MsgBox Err.Description, vbCritical
Exit_here del riassunto
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us