![]() |
![]() |
![]() |
|
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) отсей все что не касается маркера (не создавай таблицы), просто сделай так что б появился маркер
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |