Форум программистов, компьютерный форум, киберфорум
Наши страницы
MS Office Word
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.89/27: Рейтинг темы: голосов - 27, средняя оценка - 4.89
shopot
0 / 0 / 0
Регистрация: 10.12.2013
Сообщений: 11
1

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

10.12.2013, 13:00. Просмотров 5453. Ответов 21
Метки нет (Все метки)

файл огромный. в каждом колонтитуле по несколько разных "надписей". как их все сразу во всем документе преобразовать в рамки?
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2013, 13:00
Ответы с готовыми решениями:

Что значит в окне "стили" у правой границы "а", "конец строки а" и просто "конец строки"
Уважаемый All ! 1. Если открыть окно "стили" (Shift+Ctrl+Alt+S), у правой границы разные стили...

Как убрать красные рамки с текстом "Отформатировано..." справа от текста?
то что справа - красные рамки нужно убрать, а текст оставить. если кто знает о чем тут речь -...

Как в Word 2010 аккорду "Ctrl ё" присвоить действие кнопки "формат по абзацу"
Скажите, плиз... как в Word 2010 аккорду "Ctrl+ё" присвоить действие кнопки "Формат по абзацу"....

Word 2007 как отменить автозамену "-" тире на длиное тире "–" и маленьких букв на Большие
Товарищи приветствую Вас, и пожалуйста не ругайте! Поиском не нашел на форуме как отключить...

Не включается режим "Эскизы" в панели "Вид" (Word 2007)
Не ставится галочка в пункте "Эскизы", в панели "Вид" в MS Office Word 2007. По рассказу...

21
Fairuza
5219 / 2648 / 471
Регистрация: 23.11.2010
Сообщений: 8,690
10.12.2013, 13:38 2
Так в колонтитуле если 1 раз изменить, поменяется везде.
1
shopot
0 / 0 / 0
Регистрация: 10.12.2013
Сообщений: 11
10.12.2013, 13:40  [ТС] 3
так неполучится. текст распознан со сканов. на каждой странице надписи разные
0
Fairuza
5219 / 2648 / 471
Регистрация: 23.11.2010
Сообщений: 8,690
10.12.2013, 13:42 4
Цитата Сообщение от shopot Посмотреть сообщение
так неполучится. текст распознан со сканов. на каждой странице надписи разные
В колонтитулах?
1
10.12.2013, 13:42
shopot
0 / 0 / 0
Регистрация: 10.12.2013
Сообщений: 11
10.12.2013, 13:44  [ТС] 5
да. в каждом колонтитула от 1 до 5 разных надписей. на каждой странице разные надписи и их размер.
надо както их сделать сразу все ибо их полно
0
Fairuza
5219 / 2648 / 471
Регистрация: 23.11.2010
Сообщений: 8,690
10.12.2013, 13:52 6
пару листов файла для примера приложите
0
shopot
0 / 0 / 0
Регистрация: 10.12.2013
Сообщений: 11
10.12.2013, 13:56  [ТС] 7
вот этот файл
0
Вложения
Тип файла: zip 3935 K421-00100_Rev00_63.zip (2.28 Мб, 9 просмотров)
shopot
0 / 0 / 0
Регистрация: 10.12.2013
Сообщений: 11
10.12.2013, 13:59  [ТС] 8
некоторые повторяются но большинство нет. таких файлов много и все распознались по разному. надо какойто общий алгоритм для всех. на крайний случай можно попробывать удалить эти фреймы чтобы в колонтитулах остался только текст

Добавлено через 47 секунд
я думал что это можно сделать както путем настроек программы
0
shanemac51
Модератор
Эксперт MS Access
9079 / 3474 / 551
Регистрация: 07.08.2010
Сообщений: 9,722
Записей в блоге: 2
10.12.2013, 14:21 9
Цитата Сообщение от shopot Посмотреть сообщение
вот этот файл
надписей нет
только автофигуры(380+130=500 штук)
1
shopot
0 / 0 / 0
Регистрация: 10.12.2013
Сообщений: 11
10.12.2013, 15:39  [ТС] 10
но они редактируются как надписи.
меню-формат-надпись - вкладка надпись - преобразовать в рамку

надо типа чтобы везде были рамки вместо надписей

Добавлено через 1 час 7 минут
если сделаете такой макрос который к тому же будет убирать форматирование текста внутри этих фреймов и преобразовывать их в рамки по всему тексту и колонтитулам я его куплю
0
Fairuza
5219 / 2648 / 471
Регистрация: 23.11.2010
Сообщений: 8,690
10.12.2013, 15:46 11
Втексте не нашла ни рамок, ни надписей. Они есть только в колонтитуле.
Сколько колонтитулов надо? У Вас каждая страница стоит с разрывом раздела. Если убрать разрывы разделов, останется только один колонтитул, который по-видимому относится к главе 3.
1
shopot
0 / 0 / 0
Регистрация: 10.12.2013
Сообщений: 11
10.12.2013, 15:49  [ТС] 12
ну из текста я их уже убрал. они будут в других файлах. там их было не много. нарушать форматирование нельзя. надо что бы было максимально приближено к оригиналу. поэтому стараюсь сделать каждый колонтитул отдельно. так ничего не соскакивает.

можно ли сделать макрос который ищет эти надписи и меняет их свойства?
0
shanemac51
Модератор
Эксперт MS Access
9079 / 3474 / 551
Регистрация: 07.08.2010
Сообщений: 9,722
Записей в блоге: 2
10.12.2013, 17:17 13
отладку не убирала
--конвертирует в рамки
--красит в красный тон

требует 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
1
shopot
0 / 0 / 0
Регистрация: 10.12.2013
Сообщений: 11
10.12.2013, 17:32  [ТС] 14
compile error

only comments may appear after End Sub, end function, or end property
0
shanemac51
Модератор
Эксперт MS Access
9079 / 3474 / 551
Регистрация: 07.08.2010
Сообщений: 9,722
Записей в блоге: 2
10.12.2013, 19:56 15
вы видимо неправильно вставили в модуль
надо копироват SUB до END SUB
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
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
1
shanemac51
Модератор
Эксперт MS Access
9079 / 3474 / 551
Регистрация: 07.08.2010
Сообщений: 9,722
Записей в блоге: 2
10.12.2013, 19:59 16
ФАЙЛ с макросом
1
Вложения
Тип файла: zip ram10.zip (2.69 Мб, 9 просмотров)
shopot
0 / 0 / 0
Регистрация: 10.12.2013
Сообщений: 11
11.12.2013, 14:39  [ТС] 17
подскажите пожалуйста как активировать этот макрос для других документов?
выдается ошибка

compile error
only comments may appear after End Sub, or End Property

у меня win7 msoffice2003
0
shanemac51
Модератор
Эксперт MS Access
9079 / 3474 / 551
Регистрация: 07.08.2010
Сообщений: 9,722
Записей в блоге: 2
11.12.2013, 15:02 18
only comments may appear after End Sub, or End Property
это говорит , что не может быть строк после
End Sub
вы что-то не так делаете при вставке процедуры в модуль
1
shopot
0 / 0 / 0
Регистрация: 10.12.2013
Сообщений: 11
12.12.2013, 16:12  [ТС] 19
Галина вы не моглибы меня проинструктировать как настроить этот макрос?
я компенсирую вам потраченное время когда сдам эту работу))))
0
shanemac51
Модератор
Эксперт MS Access
9079 / 3474 / 551
Регистрация: 07.08.2010
Сообщений: 9,722
Записей в блоге: 2
12.12.2013, 16:42 20
умеете ли вы работать с макросами
блокирую строки работы с диском(протокол) тремя апострофами(для результата они не нужны)

в скайпе я бываю не часто
обращайтесь в почту shanemac51@yandex.ru
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
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
1
12.12.2013, 16:42
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2013, 16:42

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

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

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


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

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

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