Форум программистов, компьютерный форум, киберфорум
MS Office Word
Войти
Регистрация
Восстановить пароль
 
diplom-electro
1 / 1 / 0
Регистрация: 22.08.2015
Сообщений: 102
1

В чем разница между этими двумя документами ?

06.09.2018, 11:40. Просмотров 438. Ответов 5
Метки нет (Все метки)

Не могу разобраться какие изменения внесены в документ пример пункта_до2_new. При выделении текста видны "полоски" вертикальные, но что это такое ? Как добится такого эффекта ?
Миниатюры
0
Миниатюры
В чем разница между этими двумя документами ?  
Вложения
Тип файла: doc пример пункта_до2.doc (37.0 Кб, 6 просмотров)
Тип файла: doc пример пункта_до2_new.doc (41.5 Кб, 11 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.09.2018, 11:40
Ответы с готовыми решениями:

Синхронность между двумя документами Word и Excel
Доброго времени суток Помогите пожалуйста с решением данной задачи. Допустим, имеется база...

Взаимосвязь между документами
Уважаемые знатоки Ворда, У меня к вам вопрос, есть ли в Ворде возможность создавать взаимосвязь...

Автоматический перенос данных между документами
Возникла очередная заминка, требующая общественной помощи в виде индивидуальных решений :) Имеется...

В чем разница между этими двумя HDD?
вот я не могу разобраться. подскажите, пожалуйста. 320 Gb Seagate, ST3320613AS, Barracuda...

5
shanemac51
Модератор
Эксперт MS Access
9418 / 3714 / 594
Регистрация: 07.08.2010
Сообщений: 10,471
Записей в блоге: 2
07.09.2018, 08:45 2
после обработки макросом,
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub mm180908()
Dim fld As Field, j1 As Long
For Each fld In Word.ActiveDocument.Fields
j1 = j1 + 1
Debug.Print j1; Len(fld.Result); fld.Type; fld.Code
fld.Select
''Debug.Print Selection.Range.Font.ColorIndex, Selection.Range.Font.Size
Selection.Range.Font.Size = 12
Selection.Range.Font.ColorIndex = wdRed
Selection.Range.Font.Scaling = 100
Selection.Range.Font.Spacing = 0
 
Next fld
End Sub
документ принял вид
0
Миниатюры
В чем разница между этими двумя документами ?  
Вложения
Тип файла: zip пример пункта_до2_new (3).zip (16.2 Кб, 2 просмотров)
diplom-electro
1 / 1 / 0
Регистрация: 22.08.2015
Сообщений: 102
07.09.2018, 10:43  [ТС] 3
Спасибо. Но это не то. Подобную обработку я тоже видел - но EQ полей в приложенном мною документе нет
0
Step_UA
1549 / 628 / 219
Регистрация: 09.06.2011
Сообщений: 1,290
07.09.2018, 12:07 4
Цитата Сообщение от diplom-electro Посмотреть сообщение
Подобную обработку я тоже видел - но EQ полей в приложенном мною документе нет
Они есть, просто к части поля применен белый шрифт, с малым размером, масштабом и уплотнением ...
0
diplom-electro
1 / 1 / 0
Регистрация: 22.08.2015
Сообщений: 102
07.09.2018, 14:32  [ТС] 5
Спасибо. Теперь разобрался. Хитро спрятали
0
locker01
1 / 1 / 0
Регистрация: 03.01.2016
Сообщений: 21
10.09.2018, 05:59 6
На примере данного макроса, какие параметры должны быть изменены, чтобы поля eq присутствовали в документе, но не отображались, как в примере выше. И еще интересная комбинация вставки слов по тексту, если я правильно понял, они берутся из самого текста и рандомно вставляются перед полями eq...
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Sub макрос()
    
    Dim cursor As Range, chars As String
    ' Знак подчёркивания на конце, чтобы не совпадало с объектом Word.
        ' Иначе не понятно, как это всё состыкуется.
    Dim word_ As Range, text As String, counter As Long
    
    
    ' Символы, между которыми макрос обрабатывает текст.
    chars = " " & Chr(7) & Chr(12) & Chr(13)
    
    ' Отключение монитора (может это ускорит макрос и не будет мерцать).
    Application.ScreenUpdating = False
    
    '1. Установка невидимого курсора в начало файла.
    Set cursor = ActiveDocument.Range(0, 0)
    
    '2. Смещение курсора до первого символа, не являющегося пробелом, разрывом и зна-ком абзаца.
    cursor.MoveWhile Cset:=chars, Count:=wdForward
    
    '3. Движение по файлу.
    Do
        '1) Выделение фрагмента от символа, который не является пробелом, разрывом и зна-ком абзаца, до
            ' пробела, разрыва или знака абзаца.
        cursor.MoveEndUntil Cset:=chars, Count:=wdForward
        
        '2) Присваивание имени "word_" найденному тексту.
            ' Duplicate - чтобы при изменении переменной "word_" не изменялась переменная "cursor".
        Set word_ = cursor.Duplicate
    
        '3) Смещение невидимого курсора вправо, чтобы установить невидимый курсор
            ' после найденного текста, чтобы продолжить движение от невидимого курсора до конца файла.
        cursor.Collapse Direction:=wdCollapseEnd
        
        '4) Проверка, что слово начинается с буквы.
        If Not word_.text Like "[А-Яа-яA-Za-z]*" Then
            GoTo metka_NextWord
        End If
        
        '5) Копирование слова в переменную. С переменной макрос быстрее работает, чем с объектами.
        text = word_.text
        
        '6) Проверка, что в слове не менее 4-х символов. Если справа есть знак препинания,
            ' то он тоже подсчитывается.
        If Len(text) < 4 Then
            GoTo metka_NextWord
        End If
        
        '7) Подсчёт, сколько уже встретилось таких слов.
        counter = counter + 1
        
        '8) Интересует каждое третье слово.
        If counter Mod 3 <> 0 Then
            GoTo metka_NextWord
        End If
        
        '9) Удаление слова и вставка на его место поля.
        With word_.Fields.Add(Range:=word_, Type:=wdFieldEmpty)
            .Code.text = "eq " & text
        End With
        
        '10) Установка невидимого курсора справа от вставленного поля. После вставки поля,
            ' невидимый курсор устанавливается перед вставленнным полем.
        cursor.MoveUntil Cset:=chars, Count:=wdForward
 
metka_NextWord:
 
        '11) Смещение курсора вправо до первого символа, который не являетя пробелом,
            ' разрывом и знаком абзаца. Если будет возвращён 0, значит невидимый
            ' курсор не сдвинулся. Это означает, что достигнут конец файла.
        If cursor.MoveWhile(Cset:=chars, Count:=wdForward) = 0 Then
            Exit Do
        End If
        
    Loop
    
    '4. Сообщение.
    Application.ScreenUpdating = True
    MsgBox "Готово.", vbInformation
 
End Sub
0
10.09.2018, 05:59
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.09.2018, 05:59

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

В чем разница между этими двумя функциями?
int fp16_sign(fp16_t f) { int sign = 0; __asm( &quot;shl $1, %1;&quot; // CF = f &lt;&lt; 1; ...

В чем разница между этими двумя способами записи?
В чем разница между этими двумя способами записи? entry = (score, name) и score, name = entry ...

Какая разница между этими двумя кавичками <'> <">
Какая разница между этими двумя кавичками &lt;'&gt; &lt;&quot;&gt; Напримерь $_POST $_POST

В чем разница, между этими матрицами?
В общем, у меня сломалась матрица ноутбука. Я решил её заменить. Нашел в интернете б\у матрицу....


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

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

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