'---------------------------------------------------------------------------------------
'Procedimento: Frames2TextBoxes
'Autor : Alexey Egorov, exceleved@yandex.ru
'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
|