Имя: Пароль:
1C
1С v8
Не могу сделать подчеркивание текста в WORD
0 Карамелька
 
13.10.17
13:32
Нужно подчеркнуть определенный текст в WORD.
Делаю как в v8: Изменение формата текста WORD
    Документ.Content.Find.Text=СтрокаДляПодчеркивания;
    Документ.Content.Find.Execute();
    
    Если Документ.Content.Find.Found=true тогда
        Selection = Документ.Content.Sentences.First;
        Selection.Font.Underline = 1;        
    КонецЕсли;
И ничего не происходит.
При этом если написать
Документ.Content.Find.Execute(СтрокаДляПодчеркивания, , , , , , , , , "****************", Тип);
То все найдется и заменится на "****************"
1 elCust
 
13.10.17
13:33
(0) Что говорит запись макроса?
2 Карамелька
 
13.10.17
13:37
кто?
3 aka AMIGO
 
13.10.17
13:40
Не кто, а что

В Ворде доступен запуск макроса, выполнить каки-то действия, а после остановки - подсмотреть нужные команды
Ну и подставить их в твой код
4 aka AMIGO
 
13.10.17
13:41
запустить макрос, выполнить нужные действия (подчеркнуть текст), остановить макрос - подсмотреть нужные команды
5 Карамелька
 
13.10.17
14:51
Selection.Font.UnderlineColor = wdColorAutomatic
    Selection.Font.Underline = wdUnderlineNone
    Selection.Font.UnderlineColor = wdColorAutomatic
    Selection.Font.Underline = wdUnderlineNone
6 PiotrLoginov
 
13.10.17
14:58
(0) Известно ли, для какой версии Word'а было решение в той ветке?

Так что, с макросами Вы не дружили никогда?
7 Карамелька
 
13.10.17
15:01
(6) С макросами работать и дружить не приходилось
8 Масянька
 
13.10.17
15:18
(7) А можно спросить: вы уверены, что он находит "СтрокаДляПодчеркивания"?
9 Карамелька
 
13.10.17
15:32
(8) Документ.Content.Find.Execute(СтрокаДляПодчеркивания, , , , , , , , , "****************", Тип);
так находит и заменяет на *****
10 Масянька
 
13.10.17
15:35
(9) А не работает (насколько я поняла):
   Если Документ.Content.Find.Found=true тогда
        Selection = Документ.Content.Sentences.First;
        Selection.Font.Underline = 1;        
    КонецЕсли;

А зачем такие сложности? Нельзя сразу сделать подчеркнутым?
11 Карамелька
 
13.10.17
15:37
Мне нужно подчеркнуть "мужской - 1" или "женский - 2". Изначально неизвестно какой будет
12 Карамелька
 
13.10.17
15:38
Да. Мы не заходим в условие, так как там ложь
13 Масянька
 
13.10.17
15:38
(11) А когда становится известно?
(12) Ну вот.
14 Карамелька
 
13.10.17
15:42
Изначально в печатной форме пол не подчеркнут. Когда мы выводим печ форму по определенному сотруднику, то заполняем ее и подчеркиваем пол.
15 Масянька
 
13.10.17
15:44
(14) Ничего не понятно...
Что в макете? Ну, то, что нужно подчеркнуть.
17 Карамелька
 
13.10.17
15:51
нужно подчеркнуть "мужской - 1" или "женский - 2"
18 Карамелька
 
13.10.17
15:57
В общем подчеркнуть так и не удалось, но задача решена
19 Филиал-msk
 
13.10.17
16:00
(18) Сделала два макета - мужской и женский? )
20 Масянька
 
13.10.17
16:01
(18) У меня шаблон (word) договора - http://pastenow.ru/6eb8cc7b4d2368f502a59927214bff50.
Все, что в [] подлежит замене.
А как у вас?
21 Карамелька
 
13.10.17
16:04
(19) плохой вариант
22 Карамелька
 
13.10.17
16:07
У меня теперь три поля [пол1][пол2][пол3]
пол2 с подчеркиванием по умолчанию.
Если пол мужской, то пол1="" пол2="мужской - 1" пол3="женский - 2"
Если пол женский, то пол1="мужской - 1" пол2="женский - 2" пол3=""
23 Масянька
 
13.10.17
16:08
(22) А смысл в таких извращениях? Чем отличаются [пол1][пол2][пол3]?
24 Карамелька
 
13.10.17
16:12
Смысл в том что пол2 в макете подчеркнут изначально. Другим способом подчеркнуть не получается
25 Масянька
 
13.10.17
16:14
(24) Так... Пойдем длинным путем...
А когда не нужно подчеркивать пол?
26 Fish
 
13.10.17
16:16
(22) А третий пол это какой? :))
27 Карамелька
 
13.10.17
16:35
(25)Пол нужно подчеркивать всегда, только иногда мужской, иногда женский.
(26) третий пол пустой
28 Масянька
 
13.10.17
16:43
(27) Замечательно.
Итак, где определяется пол?
29 Карамелька
 
13.10.17
16:56
6. Пол (подчеркнуть):    [шполМ] [шполЖ]
это строка в шаблоне

    Документ.Content.Find.Text="[шполМ]";
    Документ.Content.Find.Execute();
    
    Если Документ.Content.Find.Found=true тогда
        Сообщить("нашли ");
        Selection = Документ.Content.Sentences.First;
        Selection.Font.Underline = 1;        
        //Text=Документ.Content.Selection();
        //Text.Font.Underline=1;
    Иначе
        Сообщить(" не нашли ");
    КонецЕсли;
    
    Документ.Content.Find.Text="[ш
полЖ]";
    Документ.Content.Find.Execute();
    
    Если Документ.Content.Find.Found=true тогда
        Сообщить("нашли ");
        Selection = Документ.Content.Sentences.First;
        Selection.Font.Underline = 1;        
        //Text=Документ.Content.Selection();
        //Text.Font.Underline=1;
    Иначе
        Сообщить(" не нашли ");
    КонецЕсли;

в итоге ничего не нашли
30 ptiz
 
13.10.17
17:11
Правильная анкета должна выглядеть так:
https://yadi.sk/i/5eCuZNx23NjAqn
31 Масянька
 
13.10.17
17:14
(29) Эта анкета кем-то утверждена?
32 Масянька
 
13.10.17
17:15
(30) Во, ..., переводчики...
33 Брудвар
 
13.10.17
18:04
(30) Анкена на программиста