Cuestión : Cómo lo hago seleccionar los marcos/las cajas de texto múltiples en la palabra 2007

Tengo una palabra doc. con las cajas de texto numerosas, cada uno con un marco.  (salió como rtf la información cristalina).  Quiero seleccionar un grupo de cerca de 20 de estas cajas y moverlas masa del en a un punto más arriba en la página.  Hay probablemente 400 cajas de texto con los marcos individuales en el documento.  Ahora, puedo seleccionar solamente una caja de texto enmarcada a la vez y puedo mover eso pero por otra parte necesito hacer el siguiente.  He intentado mantener el cambio más tecleo, manteniendo el ctl más cambio y cada vez que selecciona solamente uno.  No quiero hacer una macro.  ¿No hay una manera simple de hacer esto????????????  ¡Las GRACIAS por cualesquiera ayudan!!!!!!!!!!!!!!  Oh sí, si suprimo individualmente los marcos, el texto salta hasta la tapa de la página más allá del otro texto boxes. class= del

Respuesta : Cómo lo hago seleccionar los marcos/las cajas de texto múltiples en la palabra 2007

Hola North_Side,

Entré profundamente en el problema y compuse una macro que convierte marcos a los textboxes.
No es universal del 100% sino da resultados aceptables en archivos que usted proporcionó.
Usted puede poner esta macro en Normal.dot y estará siempre disponible presionando Alt+F8 - 2click en nombre macro.
El proceso es algo desperdiciador de tiempo así que agregué el informe sobre la marcha de los trabajos a la barra de estado.
Intentar por favor. También inserté macro en el documento que usted proporcionó.

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:

'---------------------------------------------------------------------------------------
'Procedimiento: Frames2TextBoxes
'Autor    : Alexey Egorov, [email protected]
'Fecha      : 11-Jul-2010
'Propósito   : Substituye todos los marcos en el documento activo por los textboxes que guardan la posición.
'Asunto     : http://www.experts-exchange.com/Microsoft/Applications/Q_26319089.html
'---------------------------------------------------------------------------------------
Frames2TextBoxes secundario ()
aF dévil () como Word.Frame, f como Word.Frame, t como Word.Shape, i como de largo, n como de largo
Stbar dévil como boleano
En err_ indicado del error
Application.ScreenUpdating = falso
stbar = Application.DisplayStatusBar
n = ActiveDocument.Frames.Count
ReDim aF (n)
Para i = 1 a n
    Fijar aF (i) = ActiveDocument.Frames (i)
Después

Para i = 1 a n
    Application.StatusBar = formato (i, """ que convierte el ####") y el formato (n, """ del "" del ####") del ""
    Fijar f = aF (i)
    f.Range.Select
    Selection.CreateTextbox
    Fijan 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
    Extremo con
    t.Line.Visible = msoFalse
Después
exit_here:
Application.ScreenUpdating = verdad
Application.DisplayStatusBar = stbar

Salir el submarino

err_:
MsgBox Err.Description, vbCritical
Exit_here del curriculum vitae
Submarino del extremo
Otras soluciones  
 
programming4us programming4us