Вопрос : Как делаю я выберите множественные рамки/коробки текста в слове 2007

Я имею слово doc с многочисленнIp коробками текста, каждое с рамкой.  (она пришла как rtf из кристаллический отчетность).  Я хочу выбрать группу в составе около 20 из этих коробок и двинуть их масса en к пятну более высоко на странице.  Вероятно 400 коробок текста с индивидуальными рамками в документе.  Выпрямите теперь, я могу только выбрать одну кадр коробку текста одновременно и я могу двинуть то но с другой стороны мне нужно сделать следующее.  Я имею судимое держащ вниз перенос плюс щелчок, держащ вниз ctl плюс перенос и каждый раз он только выбирает одно.  Я не хочу сделать макрос.  Не будет просто дороги сделать это????????????  СПАСИБО для любых помогают!!!!!!!!!!!!!!  Oh да, если я индивидуально уничтожаю рамки, то текст скачет до верхней части страницы за другим текстом boxes. class=

Ответ : Как делаю я выберите множественные рамки/коробки текста в слове 2007

Hi North_Side,

Я пошел глубоки в проблему и составил макрос преобразовывает рамки к textboxes.
Не будет универсалией 100% а дает приемлемо результаты на архивах, котор вы обеспечили.
Вы можете установить этот макрос в Normal.dot и они будут всегда имеющиеся путем отжимать Alt+F8 - 2click на macro имени.
Процесс довольно требующий много времени поэтому я добавил доклад о достигнутых результатах к адвокатскому сословию состояния.
Пожалуйста попытайтесь. Я также ввел макрос в документ, котор вы обеспечили.

Алекс

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:

'--------------------------------------------------------------------------------------- 'Процедура: Frames2TextBoxes 'Автор : Alexey Egorov, [email protected] 'Дата : 11-Jul-2010 'Цель : Заменяет ть все рамки в активно документе при textboxes держа положение. 'Тема : http://www.experts-exchange.com/Microsoft/Applications/Q_26319089.html '--------------------------------------------------------------------------------------- Sub Frames2TextBoxes () Тусклый aF () как Word.Frame, f как Word.Frame, t как Word.Shape, I как длиной, n как длиной Тусклое stbar как булевско На err_ ошибки переход Application.ScreenUpdating = ложно stbar = Application.DisplayStatusBar n = ActiveDocument.Frames.Count ReDim aF (n) Для I = 1 к n Установите aF (I) = ActiveDocument.Frames (I) Затем Для I = 1 к n Application.StatusBar = форма (I, """ преобразовывая ####") "" & форму (n, """ ####") "" Установите f = aF (I) f.Range.Select Selection.CreateTextbox Установите 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 С t.TextFrame .MarginBottom = 0 .MarginLeft = 0 .MarginRight = 0 .MarginTop = 0 Конец с t.Line.Visible = msoFalse Затем exit_here: Application.ScreenUpdating = True Application.DisplayStatusBar = stbar Выходите подводная лодка err_: MsgBox Err.Description, vbCritical Exit_here резюма Подводная лодка конца