Как работать в VBA с формулами Word 2007

[bdfy]

Если у меня есть запись формулы в линейном виде например
a_1 = a + b = 3 + 5 = 8
как из этого сделать формулу в Word 2007. запись макроса дает что-то невнятное

WordBasic.EquationEdit 1
    Application.Keyboard (1033)
    Selection.TypeText Text:="a_1 = a + b =  3 + 5 = 8"
    Selection.OMaths.BuildUp

а как бы это через Range сделать по-человечески ?

вот тут есть пример http://bit.pirit.info/forum/viewtopic.php?t=12395
и вот тут http://msdn.microsoft.com/en-us/libr...ffice.12).aspx
но опять же через selection. а меня использование selection традиционно смущает.

а впрочем получилось

Set objRange = oDoc.Paragraphs(oDoc.Paragraphs.Cou nt).Range

objRange.text = "a+b=4"
Set objRange = objRange.OMaths.Add(objRange)
Set objEq = objRange.OMaths(1)
objEq.BuildUp
objRange.InsertParagraphAfter

упорно не получается только выровнять по левому краю и добавить справа номер формулы ((
objEq.ParentOMath.Justification = 3
objRange.Justification = 3
ничего толком не работает

[bdfy]

так и не выходит разобраться с нумерацией формул ((
непосредственно формулу вставляет такой код

set oRng = oDoc.Paragraphs.Count).Range
   text = "a_1=a+b=3+5=8"
With oRng
  

    'вставка формулы
    .text = text
    Set oRng = oRng.OMaths.Add(oRng)
    oRng.Font.Italic = False
    Set objEq = oRng.OMaths(1)
    objEq.ParentOMath.Justification = 3
    
    If newparagraph Then
       .InsertParagraphAfter
       '.ParagraphFormat.Alignment = 3
    End If
    

    
    objEq.ParentOMath.Justification = 3
    objEq.BuildUp


   End With

необходимо вставить слева автоматическую нумерацию. под Word 2003 все работало (спасибо viter_alex'у) следующим образом

set oRng = oDoc.Paragraphs.Count).Range
    text = "a=a+b=3+5=8"
 'Собственно вставка
  Dim oFld As Object
  
  
  With oRng
    With .ParagraphFormat
    .SpaceAfterAuto = False: .SpaceBeforeAuto = False
    .FirstLineIndent = 0
    .TabStops.ClearAll
    .TabStops.Add oRng.Sections(1).PageSetup.PageWidth - oRng.Sections(1).PageSetup.LeftMargin - oRng.Sections(1).PageSetup.RightMargin - .LeftIndent - .RightIndent, _
                  wdAlignTabRight, wdTabLeaderSpaces
  End With
  
    If нумеровать_формулы Then
        .InsertBefore ")"
        Set oFld = .Fields.Add(oRng, , " SEQ Формула \* ARABIC \s 1", False)
       .InsertBefore "."
         
        Set oFld = .Fields.Add(oRng, , "STYLEREF 1 \s", False)
          .Fields.Update
        .InsertBefore "("
        .InsertBefore vbTab
   '     .ParagraphFormat.Alignment = wdAlignParagraphRight
        
    End If
    
    Set oFld = .Fields.Add(oRng, , text, False)
    .Fields.Update
        If newparagraph Then
           .InsertParagraphAfter
      '     .ParagraphFormat.Alignment = wdAlignParagraphWidth
        End If
   End With

как этот год конвертировать в 2007ой ворд ? попадались в сети решения - http://wordexpert.ru/forum/viewtopic.php?id=281
но через selection работают, словно после записи макроса. а это в данном случае не совсем приемлимо

[bdfy]

особая тайна для меня это пункты в меню формулы "изменить на встроенный"/"изменить на отображаемый". Как это в англ. офисе звучит найти не смог - может там больше смысла. все что нашел по теме
http://www.intuit.ru/department/offi...guide/4/7.html
Отображаемый вроде как всегда в отдельную строку, а встроенный на глаз получается меньшим шрифтом как будто. в любом случае название пункта меню несколько странное...

еще момент это переносы. если сравнивать новый редактор формул с полями EQ в ворде 2003 - то перенос строки все таки шаг вперед. раньше не помещающая в строку выражение ошибку выдавало на экран, грустно что нормальных переносов по знакам арифметических операций так и не сделали ((

[bdfy]

переносы оказывается сделаны. задается дублирование знаков при разрыве строки и даже выравнивание по правому краю. Проблемы возникают если в формулу засунуть длинный текст - его редактор по пробелам перенести не может. Интересно чем можно пробел заменить чтобы выглядело также но воспринималость вордом как место возможного переноса ? "мягкий перенос" напрашивается - попробовал, просто рвет строку на каждом переносе.

[bdfy]

получилось ) вопрос с переносом текста правда остался.
Представьте что вам надо записать в Word текст такого вида например
"Полученное значение k_z позволяет предварительно оценить правильность выбранных размерных соотношений и обмоточных данных проектируемой машины. Если k_z > 1,5...1,6, имеет место чрезмерное насыщение зубцовой зоны; если k_z < 1,2, то зубцовая зона мало использована или воздушный зазор взят слишком большим. В обоих случаях в расчет должны быть внесены соответствующие коррективы."
_ - означает индекс нижний. и индексы нужно показать.
Логичным решением кажется просто загнать это все в поле формулы - но тогда отстутсвуют переносы (( идеи есть может у кого нибудь ? вставка мягких переносов не помогает

[Мультипликатор]

Прикольно!!! Сам спросил - сам ответил... весело!!!

[bdfy]

что поделать ) расчитываешь на диалог - получаешь только монолог )) но одна проблема пока осталась - может появяться у кого идеи

[Sasha_Smirnov]

Попробуйте это (вставляется по Ctrl-F9 либо через Вставка↓Поле).

[bdfy]

нет. не помогло (

[Sasha_Smirnov]

А если Ctrl-d, флажок нижний индекс (одним махом: Ctrl-Shift-+)?