Pergunta : Como faço eu selecionar frames/caixas de texto múltiplos na palavra 2007

Eu tenho uma palavra doc com as caixas de texto numerosas, cada um com um frame.  (veio como um rtf fora do relatório de cristal).  Eu quero selecionar um grupo de aproximadamente 20 destas caixas e movê-las mais altamente massa do en para um ponto na página.  Há provavelmente 400 caixas de texto com frames individuais no original.  Agora, eu posso somente selecionar uma caixa de texto moldada de cada vez e eu posso mover aquele mas por outro lado eu preciso de fazer o seguinte.  Eu tentei manter o deslocamento mais o clique, mantendo o ctl mais o deslocamento e cada vez que seleciona somente um.  Eu não quero fazer um macro.  Não há uma maneira simples de fazer isto????????????  Os AGRADECIMENTOS para alguns ajudam!!!!!!!!!!!!!!  Oh sim, se eu suprimo individualmente dos frames, o texto salta até a parte superior da página após o outro texto boxes. class= do

Resposta : Como faço eu selecionar frames/caixas de texto múltiplos na palavra 2007

Olá! North_Side,

Eu fui profundamente no problema e compor um macro que convertesse frames aos textboxes.
Não é universal de 100% mas dá resultados aceitáveis em limas que você forneceu.
Você pode coloc este macro em Normal.dot e estará sempre disponível pressionando Alt+F8 - 2click no nome macro.
O processo é um pouco demorado assim que eu adicionei o relatório de progresso à barra de status.
Tentar por favor. Eu igualmente introduzi o macro no original que você forneceu.

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:

'---------------------------------------------------------------------------------------
'Procedimento: Frames2TextBoxes
'Autor    : Alexey Egorov, [email protected]
'Data      : 11-Jul-2010
'Finalidade   : Substitui todos os frames no original ativo com os textboxes que mantêm a posição.
'Tópico     : http://www.experts-exchange.com/Microsoft/Applications/Q_26319089.html
'---------------------------------------------------------------------------------------
Frames2TextBoxes secundário ()
aF não ofuscante () como Word.Frame, f como Word.Frame, t como Word.Shape, i como por muito tempo, n como por muito tempo
Stbar não ofuscante como bôoleano
No err_ empreendedores do erro
Application.ScreenUpdating = falso
stbar = Application.DisplayStatusBar
n = ActiveDocument.Frames.Count
ReDim aF (n)
Para i = 1 a n
    Ajustar o aF (i) = ActiveDocument.Frames (i)
Em seguida

Para i = 1 a n
    Application.StatusBar = formato (i, """ que converte o ####") do "" & o formato (n, """ do ####") do ""
    Ajustar f = aF (i)
    f.Range.Select
    Selection.CreateTextbox
    Ajustar 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
    
    Com t.TextFrame
        .MarginBottom = 0
        .MarginLeft = 0
        .MarginRight = 0
        .MarginTop = 0
    Extremidade com
    t.Line.Visible = msoFalse
Em seguida
exit_here:
Application.ScreenUpdating = retificam
Application.DisplayStatusBar = stbar

Retirar o submarino

err_:
MsgBox Err.Description, vbCritical
Exit_here do resumo
Submarino da extremidade
Outras soluções  
 
programming4us programming4us