![]() |
![]() |
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-спасибо большое! |