Имя: Пароль:
1C
 
v8: Форматирование в Word
0 rarmi
 
24.11.10
10:05
Есть задача в Word документе программно создать текст с форматированием. Форматирование следующее: в таблице 2 колонки, в правой колонке в одной строке необходимо вставить последовательно текст: Строка жирным начертанием, Строка обычного начертания но с маркером, Строка жирним начертанием с другим маркером, Пустая строка.
Подскажите, пожалуйста. Может, примеры как-нибудь есть?
1 Denp
 
24.11.10
10:08
а в чем проблема?
2 rarmi
 
24.11.10
10:10
так подскажите - ка это сделать, если сталкивались?
3 rarmi
 
24.11.10
10:11
я очень извиняюсь - это не 7.7., это 8. Промахнулась в теме..
4 Denp
 
24.11.10
10:15
(2) сорри, не увидел слова "программно"
5 BuHu
 
24.11.10
10:24
(0) открываешь ворд включаешь запись макроса , делаешь то что тебе надо что б программа делала , берех код из макроса и адоптируешь его под 1с . как то так
6 rarmi
 
24.11.10
10:28
сложности в адаптации )))
если не сложно - можно текст примера? ))
7 BuHu
 
24.11.10
10:33
ворд = СоздатьОбъект("Word.Application");
ворд.Documents.Open(СокрЛП(КаталогВременныхФайлов()+ВрФайл));
ворд.Selection.EndKey(6);            ворд.Selection.Font.Name="Arial";
ворд.Selection.Font.Size=12;
ворд.Selection.Font.Bold=1;
ворд.Selection.TypeText(" ("+ТЗ.Группа.Код+" )  "+ТЗ.Группа.Наименование+"   - "+ТЗ.Таб.КоличествоСтрок()+"  видов.");
8 rarmi
 
24.11.10
10:37
как в одной ячейке таблицы последовательно вставить строчки:
1. Жирный текст (без маркера)
2. текст с маркером (нежирный)
3. текст без маркера (нежирный)
9 BuHu
 
24.11.10
10:47
(8) так же как и в ворде
10 rarmi
 
24.11.10
10:50
как это сделать в ворде - это понятно.
а вот как это сделать в 1с?
программно...
11 BuHu
 
24.11.10
10:52
(10)запись макроса включи, тебе ворд расскажет как он это делает
12 rarmi
 
24.11.10
10:54
говорю ж - проблема с адаптацией.
но если вам это не трудно....
13 BuHu
 
24.11.10
10:56
(12)покажи что у тебя в макросе
14 rarmi
 
24.11.10
11:38
Selection.MoveLeft Unit:=wdCharacter, Count:=13, Extend:=wdExtend
   Selection.Font.Bold = wdToggle
   Selection.HomeKey Unit:=wdLine
   Selection.EndKey Unit:=wdLine
   Selection.TypeParagraph
   With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
       .NumberFormat = ChrW(61623)
       .TrailingCharacter = wdTrailingTab
       .NumberStyle = wdListNumberStyleBullet
       .NumberPosition = CentimetersToPoints(0.63)
       .Alignment = wdListLevelAlignLeft
       .TextPosition = CentimetersToPoints(1.27)
       .TabPosition = wdUndefined
       .ResetOnHigher = 0
       .StartAt = 1
       With .Font
           .Bold = wdUndefined
           .Italic = wdUndefined
           .StrikeThrough = wdUndefined
           .Subscript = wdUndefined
           .Superscript = wdUndefined
           .Shadow = wdUndefined
           .Outline = wdUndefined
           .Emboss = wdUndefined
           .Engrave = wdUndefined
           .AllCaps = wdUndefined
           .Hidden = wdUndefined
           .Underline = wdUndefined
           .Color = wdUndefined
           .Size = wdUndefined
           .Animation = wdUndefined
           .DoubleStrikeThrough = wdUndefined
           .Name = "Symbol"
       End With
       .LinkedStyle = ""
   End With
   ListGalleries(wdBulletGallery).ListTemplates(1).Name = ""
   Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
       ListGalleries(wdBulletGallery).ListTemplates(1), ContinuePreviousList:= _
       False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
       wdWord10ListBehavior
   Selection.Font.Bold = wdToggle
   Selection.TypeText Text:="оирроплргпгщрщ"
   Selection.TypeParagraph
   Selection.TypeBackspace
   Selection.TypeParagraph
   Selection.TypeBackspace
   Selection.TypeParagraph
   Selection.Range.ListFormat.RemoveNumbers NumberType:=wdNumberParagraph
End Sub
15 rarmi
 
24.11.10
11:40
и где тут вставка маркера?
16 BuHu
 
24.11.10
11:46
(15) в смысле "Жирным"? - Selection.Font.Bold = wdToggle
17 BuHu
 
24.11.10
11:46
+(16) в 1с это будет Selection.Font.Bold = 1;
18 rarmi
 
24.11.10
11:54
Selection.Font.Bold = wdToggle
я так понимаю - что это выделение текста жирным.
а мне нужен маркер - такая штучка в начале строки.
в смысле где тут вставляется маркер?
19 BuHu
 
24.11.10
12:00
(18) не понял что такое раркер . Открываешь новый документ ворд ->Начать запись макроса -> вставляешь свой "маркер" -> Останавливаешь запись макроса-> Смотришь что написано в макросе.
20 BuHu
 
24.11.10
12:00
+(19)раркер=маркер
21 rarmi
 
24.11.10
12:14
макрос - который выше - и есть нужная запись - со вставкой маркера. Только где там конкретно маркер - не разобрать - потому что видимо много действий доя этого делается.
22 rarmi
 
24.11.10
12:15
Маркированный список - знаешь, что такое?
Всякие точечки, ромбики, кружочки - в начале строки маркированного списка - это и есть маркеры.
23 BuHu
 
24.11.10
12:18
(22) отсей все что не касается маркера (не создавай таблицы), просто сделай так что б появился маркер