К списку форумов К списку вопросов
TXT to WORD
les
18.09.2004 - 11:09
Как из открытого текстового файла открытого в 1с переделать в ворд
OVG
1 - 18.09.2004 - 11:13
OLE
les
2 - 18.09.2004 - 11:18
ну да я так и понял ....
les
3 - 18.09.2004 - 11:21
ВходWord = СоздатьОбъект("Word.Application");
Ну а дальше?
les
4 - 18.09.2004 - 12:10
как строку вставить в новый вордовский документ и первые 5 символов виделить жирным
les
5 - 18.09.2004 - 12:13
ау народ
systemstopper
6 - 18.09.2004 - 15:06
(5) Посмотри справку по вба.
Vaicartana
7 - 18.09.2004 - 15:10
+6 зайти в поиск
les
8 - 18.09.2004 - 20:21
как вставить я нашел а как жирным ?
les
9 - 18.09.2004 - 20:58
ну и .... чоооооооо
Vaicartana
10 - 18.09.2004 - 21:47
2 (8) Это хорошо.
Теперь тебя научить как высовывать?
les
11 - 18.09.2004 - 22:17
:)
les
12 - 19.09.2004 - 08:15
хочу жирным выделить >(
Мутабор
13 - 19.09.2004 - 08:39
Не мое (из книги)
'*******************************************************************
' Имя: PrintInWord.vbs
' Язык: VBScript
' Описание: Использование из сценария внешнего объекта
' автоматизации (Microsoft Word)
'*******************************************************************
Option Explicit
Dim WA,WD,Sel ' Объявляем переменные
'Создаем объект--приложение Microsoft Word
Set WA=WScript.CreateObject("Word.Application")
' Можно было использовать конструкцию
' Set WA=CreateObject("Word.Application")
Set WD=WA.Documents.Add 'Создаем новый документ (объект Document)
WA.Visible=true ' Делаем Word видимым
Set Sel=WA.Selection 'Создаем объект Selection
Sel.Font.Size=14 'Устанавливаем размер шрифта
Sel.ParagraphFormat.Alignment=1 'Выравнивание по центру
Sel.Font.Bold=true 'Устанавливаем полужирный шрифт
Sel.TypeText "Привет!" & vbCrLf 'Печатаем строку текста
Sel.Font.Bold=false 'Отменяем полужирный шрифт
Sel.ParagraphFormat.Alignment=0 'Выравнивание по левому краю
'Печатаем строку текста
Sel.TypeText "Эти строки напечатаны с помощью WSH."
WD.PrintOut 'Выводим документ на принтер
'************* Конец *********************************************
les
14 - 19.09.2004 - 15:02
ВходWord.selection.movedown();
ВходWord.ActiveDocument.Paragraphs(1).range.insertafter(ткст);
ВходWord.selection.homekey();
ВходWord.selection.MoveRight();
ВходWord.selection.font.bold=0;
ВходWord.ActiveDocument.Paragraphs(1).range.InsertParagraphAfter();
ВходWord.selection.font.bold=1;
Выделяет только первые слова, а нужно чтобы первые 5 символов
les
15 - 19.09.2004 - 19:09
ASPIRIN UPSA
les
16 - 20.09.2004 - 07:58
UP SA
OFF
17 - 20.09.2004 - 08:20
Макрос в Ворде нарисуй да посмотри, его и ффигачишь к себе :)
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 20.09.2004 OFF
'
    Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtend
    Selection.Font.Bold = wdToggle
End Sub
//
Обрати внимание на строку с Count:=5
Gloom
18 - 20.09.2004 - 09:11
ПервыйПараграф=ВходWord.ActiveDocument.Paragraphs(1).Range;
ВходWord.ActiveDocument.Range(ПервыйПараграф.Start,
ПервыйПараграф.Start+5).Font.Bold=1;
les
19 - 20.09.2004 - 21:50
Если стрдлина(ткст)>5 тогда
ПервыйПараграф=ВходWord.ActiveDocument.Paragraphs(р).Range;
ВходWord.ActiveDocument.Range(ПервыйПараграф.Start,ПервыйПараграф.Start+5).Font.Bold=1;
КонецЕсли;
Если точнее....
18-спасибо большое!

К списку вопросов на форуме 1C

>>