Форум программистов, компьютерный форум, киберфорум
Наши страницы
MS Office Word
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/15: Рейтинг темы: голосов - 15, средняя оценка - 4.80
Leoleshucov008
14 / 14 / 6
Регистрация: 23.02.2010
Сообщений: 221
1

Макрос вставки формулы Word 2010

09.12.2013, 19:36. Просмотров 2867. Ответов 1
Метки нет (Все метки)

Здравствуйте. Помогите написать макрос вставки формулы. Формула вида X1 c надчеркиванием или без и динамическим индексом.

Visual Basic
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
Sub test123()
    cnt = ActiveDocument.InlineShapes.Count
    n = 1
    For b = 1 To 5
        ActiveDocument.InlineShapes(n).Select
        Word.Selection.MoveRight Unit:=wdCharacter, Count:=1
        Num = Word.Selection.Text
        txt = ActiveDocument.InlineShapes(n).AlternativeText
        If txt = "http://matrixcalc.org/minpf/nx.png" Then
            'x c надчеркиванием и индексом  Num                 
            
            ActiveDocument.InlineShapes(n).Delete
            n = n - 1
        Else
            If txt = "http://matrixcalc.org/minpf/nx.png" Then
            'x c индексом Num
            ActiveDocument.InlineShapes(n).Delete
            n = n - 1
            End If
        End If
        
               
    n = n + 1
    Next b
End Sub
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2013, 19:36
Ответы с готовыми решениями:

Формулы из 2010 в 2003 word
Такая проблема. Есть файл с формулами в 2010 ворде, надо сделать так что бы их можно было...

Макрос замены картинок в word 2010
Нужно написать скрипт замены картинок на формулы, то есть есть картинка "НЕ X" и "X" нужно заменить...

WORD 2007/2010 "задумывается" после вставки текста с картинкой из браузера
Добрый день. Первый раз сталкиваюсь с подобной ситуацией: На компьютере стоял MS Office 2007....

"Ошибка!" - MS Word 2010 | Не отображаются формулы в документе
Здравствуйте! В документе, формулы отображаются как "Ошибка!" (один из них специально отобразил,...

Не отображаются формулы Word 2010 (2007)
Здравствуйте. Вместо шаблонов с математическими знаками (знак суммы, произведения, знак...

1
Leoleshucov008
14 / 14 / 6
Регистрация: 23.02.2010
Сообщений: 221
13.12.2013, 21:47  [ТС] 2
РЕШЕНО. ТЕМА ЗАКРЫТА.
Visual Basic
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
Sub test123()
    Картинок = ActiveDocument.InlineShapes.Count
    n = 1
    For b = 1 To Картинок
        ActiveDocument.InlineShapes(n).Select
        Word.Selection.MoveRight Unit:=wdCharacter, Count:=1
        Num = Word.Selection.Text
        txt = ActiveDocument.InlineShapes(n).AlternativeText
        If txt = "http://matrixcalc.org/minpf/nx.png" Then
            'здесь нужно вставить x c вехним подчеркиванием и индексом Num
        Selection.Delete
        Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
        Selection.TypeText Text:="EQ  \x \to(X)\d\ba4 (\s\do4(" & Num & "))"
        'Selection.Characters(1).Font.Size = 14
        Selection.Fields.Update
            
            ActiveDocument.InlineShapes(n).Delete
            n = n - 1
        Else
            If txt = "http://matrixcalc.org/minpf/x.png" Then
            Selection.Delete
            Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
            Selection.TypeText Text:="EQ \d\fo3(X)\s\do4(" & Num & ")"
            'Selection.Characters(1).Font.Size = 14
            Selection.Fields.Update
            ActiveDocument.InlineShapes(n).Delete
            n = n - 1
            End If
        End If
        
               
    n = n + 1
    Next b
End Sub
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2013, 21:47

Макрос Word 2016 замена шрифта рандомных символов на выбранный - MS Word
Есть обычный текст, только буквы и цифры Нужно, чтобы после обработки макроса выбирались случайные...

Нарушение форматирования документов word 2010 при открытии в word 2013
Здравия коллеги! Столкнулся с такой проблемой у человека W8+office2013 всё легальное, документы...

Как установить запуск Word 2010 вместо Word 2007?
Недавно установил Office 2010, но оставил 2007 (в новом варианте нет PowerPoint и Access). ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.