Вопрос по Ворду:

[Pavv]

Люди если кто знает то подскажите:
есть 80 страниц текста с формулами, надо его ужать до 40 страниц. Делаю шрифт размером 9 вместо 12 текст ужимается, вобщем то все хорошо, но вот текст в формулах так и остался размером 12, и получается что формулы выглядят гигантскими по сравнению с текстом. Как сделать чтоб и в формулах шрифт менялся.

[Another]

Формулы в табличках?

[Pavv]

Формулы в табличках?

нет они с помощью Microsoft Equestion сделаны

[youctac]

Люди если кто знает то подскажите:
есть 80 страниц текста с формулами, надо его ужать до 40 страниц. Делаю шрифт размером 9 вместо 12 текст ужимается, вобщем то все хорошо, но вот текст в формулах так и остался размером 12, и получается что формулы выглядят гигантскими по сравнению с текстом. Как сделать чтоб и в формулах шрифт менялся.

печать-параметры страницы-разместить не более чем на: 1 стр. в ширину и 40 стр. в высоту.

[Another]

Каждую по отдельности уменьшать не пробовали?

[Pavv]

Люди если кто знает то подскажите:
есть 80 страниц текста с формулами, надо его ужать до 40 страниц. Делаю шрифт размером 9 вместо 12 текст ужимается, вобщем то все хорошо, но вот текст в формулах так и остался размером 12, и получается что формулы выглядят гигантскими по сравнению с текстом. Как сделать чтоб и в формулах шрифт менялся.

печать-параметры страницы-разместить не более чем на: 1 стр. в ширину и 40 стр. в высоту.

а поподробнее, у меня чето такого нету (в печати нет параметров страницы, есть просто параметры, но там нет того что вы написали, или я не там смотрю

Каждую по отдельности уменьшать не пробовали?

их больно много. долго. оно конечно так придется делать если не найду другого способо

[youctac]

а поподробнее, у меня чето такого нету (в печати нет параметров страницы, есть просто параметры, но там нет того что вы написали, или я не там смотрю

пардон - это я с экселем перепутал.
попробуй в эксель вставить текст вордовский и оттуда распечатать

[Pavv]

Не хотит он в эксел вставляться по правильному

[youctac]

тогда выделяй все рисунки - группируй - меняй размер одновременно.

попробуй для двух-трех сначала :-)

[Eugene]

не знаю как в 2003 ворде, но в 2007...
Выделяешь все формулы, потом правой кнопкой на любой, там есть - Шрифт... и вот там указываешь свой шрифт и все...

[Pavv]

тогда выделяй все рисунки - группируй - меняй размер одновременно.

попробуй для двух-трех сначала :-)

ща попробую.
к сожалению у меня 2003 ворд

[Pavv]

Блин не хочет группировать. Ладна попробую поставить 2007 ворд. А там видна будет.

[Eugene]

дай файлик, я попробую )

а то за зря тока поставишь

[Pavv]

Весь файл большой (форумлы картинки), вот пару страничеку.

сейчас уже чето пригледелся и они вроде не такими большими кажуться. Ну если получится хорошо, если нет то так оставлю. :-)

[Eugene]

неее... облом... не дает несколько выделить... в 2007м видимо другие формулы вставляются... с этими только по одной редактировать

[Pavv]

Спасибо за попытки!

[youctac]

неее... облом... не дает несколько выделить... в 2007м видимо другие формулы вставляются... с этими только по одной редактировать

ога. тож не получилось

[Faust]

В эксель вставить из ворда - вставка--объект---из файла
Только почему-то 1 страница вставляется ((( Может кто с этим справится...
Ну а потом функциями экселя как надо печатать...
ПС. Описывал на примере 2007офиса...
Можно так же скопировать в буфер файлик и воспользоваться специальной вставкой (2к3 вроде пункт меню правка)

[Eugene]

Можно макрос заюзать... работоспособность не проверял... этот увеличивает в 2 раза размер...

Код: [Выделить]

Private Sub Resize_Equation()
     Dim iInlineShape As InlineShape
     For Each iInlineShape In ActiveDocument.InlineShapes
         With iInlineShape
              If .OLEFormat.ProgId Like "Equation*" Then
                 .Height = .Height * 2
                 .Width = .Width * 2
              End If
         End With
     Next
End Sub

[Eugene]

вот еще

Иван спрашивает:
В документе WORD есть около 300-400 формул. Необходимо сделать их пропорциональными то есть высота и ширина должны быть более-менее похожы. Одни формулы имеют больший размер а другие маленький.
Как можно для каждой формулы применить определенный процент ширины и высоты отталкиваясь от стандартного измерения?

Поскольку формулы редактора Word представляют собой графические объекты, то предлагаемый ниже макрос очень похож на макрос из заметки Макрос массового уменьшения размеров всех рисунков с небольшим отличием:

Код: [Выделить]

Sub changeFormulas()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
  With iShape
     .ScaleHeight = 150
     .ScaleWidth = 150
  End With
Next iShape
End Sub