Форум программистов, компьютерный форум, киберфорум
Наши страницы
MS Office Word
Войти
Регистрация
Восстановить пароль
Другие темы раздела
MS Word Макрос вставки формулы Word 2010 http://www.cyberforum.ru/ms-word/thread1034809.html
Здравствуйте. Помогите написать макрос вставки формулы. Формула вида X1 c надчеркиванием или без и динамическим индексом. Sub test123() cnt = ActiveDocument.InlineShapes.Count n = 1 ...
MS Word Разметка текста (перенос слогов/абревиатур)
Здравствуйте! Какими символами или действиями можно организовать отмену переноса слова. А именно: Есть аббревиатура "ИФНС России" или "ФСБ России" в тексте документа "ИФНС/ФСБ" остаются на...
2 страницы в Word 2013 MS Word
Здравствуйте! У меня такая ситуация: нужно сделать книгу чтобы одна её страничка была как пол странички А4, то есть нужно разделить А4 на 2 пронумерованных части чтобы на одном листе было 2...
MS Word Изменились размеры формул Всем привет, печатал формулы в Word через mathtype, все было хорошо, через некоторое время, многие формулы изменились в размерах, одна стала больше, другая меньше. Что делать, можно ли их... http://www.cyberforum.ru/ms-word/thread1031955.html
MS Word Верхнее подчеркивание и нижний индекс http://www.cyberforum.ru/ms-word/thread1031750.html
Есть текст вида 1p2p345n7n23 Символ после которого идет p нужно подчеркнуть сверху, а после которого идет n, нужно сделать, чтобы он был подстрочным, то есть нижним индексом. Вроде через замену...
MS Word как в таблице выровнять строки по содержимому
чтобы было понятнее, приложил саму таблицу одни строки таблицы состоят из двух текстовых строк, другие - из одной. Что нужно сделать, чтобы выровнялась высота табличных строчек, т.е. в тех...
Макрос замены картинок в word 2010 MS Word
Нужно написать скрипт замены картинок на формулы, то есть есть картинка "НЕ X" и "X" нужно заменить на формулы, причем рядом с картинкой стоит цифра(индекс) - не картинка. Нужно каждую картинку...
MS Word Возможные уязвимости в Word (размышления) Здравствуйте, мне поставили задачу, которая описана в названии. То есть нужно подумать, какие могут быть уязвимости в ворде и их возможные реализации. Лично я вордом не пользуюсь, да и в уязвимостях... http://www.cyberforum.ru/ms-word/thread1028179.html
MS Word Форма в Ворде http://www.cyberforum.ru/ms-word/thread1027185.html
Возможно ли сделать форму Договора в Ворде, или в другой стандартной программе, чтобы были следующие функции: 1. Форма, в которую необходимо ввести значения: наименование организации, с которой...
MS Word Убрать стиль из схемы документа (навигация в 2010) Добрый день. Собственно в примере имеется необычный стиль обычный). Где нужно поковырять в настройках, чтобы данный стиль не отображался в навигации документа. Другими словами не должно там быть... http://www.cyberforum.ru/ms-word/thread1026992.html
shanemac51
Модератор
Эксперт MS Access
9100 / 3494 / 553
Регистрация: 07.08.2010
Сообщений: 9,774
Записей в блоге: 2
10.12.2013, 17:17 0

как автоматически преобразовать все "надписи" в документе DOC в "рамки"?

10.12.2013, 17:17. Просмотров 5555. Ответов 21
Метки (Все метки)

Ответ

отладку не убирала
--конвертирует в рамки
--красит в красный тон

требует c:\rab\

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Sub mm131210_1435()
Dim j1c, j2c, j1, j1k, s1, s9
Dim sh As Shape
Reset
Open "c:\rab\00.txt" For Output As #1
j2c = Word.ActiveDocument.Sections.Count
j1c = j2c
s9 = "`"
Do While j1c > j2c - 3
j1c = j1c - 1
j1 = 0
j1k = Word.ActiveDocument.Sections(j1c).Headers(1).Shapes.Count
'j1k = Word.ActiveDocument.Shapes.Count
j1 = j1k
Debug.Print
Debug.Print j1c; "/"; j1;
Do While j1 > 1
j1 = j1 - 1
Set sh = Word.ActiveDocument.Sections(j1c).Headers(1).Shapes(j1)
'Set sh = Word.ActiveDocument.Shapes(j1)
With sh
'.Select
If .Type = msoFreeform Then    '5
'
ElseIf .Type = msoPicture Then '13
'
ElseIf .Type = msoGroup Then
sh.Ungroup
''Debug.Print " g="; j1;
 
ElseIf .Type = msoTextBox Then
Print #1, j1c; s9; j1; s9; .Name; s9; .Left; s9; .Top; s9; .Width; s9; .Height; s9; .TextFrame.TextRange.Text
Debug.Print " t=";
sh.TextFrame.TextRange.Font.Color = wdColorRed
sh.ConvertToFrame
'
''sh.Delete
j1 = j1 + 0
 
Else
Debug.Print .Type;
End If
End With
 
Loop
 
Loop
 
 
 
 
Close #1
Debug.Print Word.ActiveDocument.Shapes.Count
Debug.Print Word.ActiveDocument.Shapes.Count, Now
 
End Sub


Вернуться к обсуждению:
как автоматически преобразовать все "надписи" в документе DOC в "рамки"?
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2013, 17:17

Перевод из doc(x) в txt с сохранением "формы" документа
Доброго времени суток Прошу подсказать или направить как конвертировать doc (docx) документ в...

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

Знает кто нибудь средство для "отлавливания" в документе повторений ?
Когда пишется общая пояснительная записка в проекте, то в основном – это копипасты частных...

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