ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / логин и пароль. как залезть на другой комп по сети?
7 сообщений из 82, страница 4 из 4
  4  все
логин и пароль. как залезть на другой комп по сети?
    #34597039
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Старая проблема:
Или не показывать документ до того пока не закончена работа с ним,
или ставить обработчики ошибок и по коду ошибки 462 выдать сообщение "Чувак, Word-то ты ведь закрыл!"
...
Рейтинг: 0 / 0
15.06.2007, 11:46
| Ответить | Цитировать | Написать  
логин и пароль. как залезть на другой комп по сети?
    #34597272
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЕленаMC
Гость
Показывать ворд только после всех операций - не прокатило... еще и криво текст вставляет... :)
наверно он слепой пока его не показывают.... ))))
Как ставить этот самый обработчик ошибок? И если он на нее реагирует, то тогда место сообщения "Чувак, где моя тачка?" можно запустить этот самый ворд... правильно?
...
Рейтинг: 0 / 0
15.06.2007, 12:30
| Ответить | Цитировать | Написать  
логин и пароль. как залезть на другой комп по сети?
    #34597568
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Как-нибудь так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
'...
   On Error GoTo Err1
   With wrd.ActiveDocument.Styles(wdStyleNormal).Font
      '....
   End With
   
   Exit Sub
Err1:
   If Err.Number =  462  Then
      MsgBox "Документ Word был закрыт пользователем во время работы программы!", vbExclamation, "Ошибка вывода в Word"
   Else
      MsgBox "Ошибка(" & Err.Number & ") " & Err.Description, vbExclamation, "Ошибка вывода в Word"
   End If
End Sub
Но покажите весь ваш код, что бы можно было увидеть что у вас не так.
...
Рейтинг: 0 / 0
15.06.2007, 13:32
| Ответить | Цитировать | Написать  
логин и пароль. как залезть на другой комп по сети?
    #34597613
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЕленаMC
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
Option Explicit
Dim WithEvents doc As Word.Document
Dim lID As Long

Public Sub OpenFile(id As Long, Optional file As String)
Dim xxx As String
xxx = Form1.Combo1
Dim wrd As Word.Application
    lID = id
    On Error Resume Next
    Set wrd = GetObject(, "Word.Application")
    On Error GoTo  0 
    If wrd Is Nothing Then Set wrd = CreateObject("Word.Application")
    If id =  0  Then
        Set doc = wrd.Documents.Add
                        If Form1.Combo1 = "фирма" And Form1.Combo2 = "Письмо" Then
                                     '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
                                With ActiveDocument.PageSetup
                                    .LineNumbering.Active = False
                                    .Orientation = wdOrientPortrait
                                    .TopMargin = CentimetersToPoints( 0 . 6 )
                                    .BottomMargin = CentimetersToPoints( 0 . 6 )
                                    .LeftMargin = CentimetersToPoints( 1 . 5 )
                                    .RightMargin = CentimetersToPoints( 0 . 6 )
                                    .Gutter = CentimetersToPoints( 0 )
                                    .HeaderDistance = CentimetersToPoints( 1 #)
                                    .FooterDistance = CentimetersToPoints( 1 #)
                                    .PageWidth = CentimetersToPoints( 21 )
                                    .PageHeight = CentimetersToPoints( 29 . 7 )
                                    .FirstPageTray = wdPrinterDefaultBin
                                    .OtherPagesTray = wdPrinterDefaultBin
                                    .SectionStart = wdSectionNewPage
                                    .OddAndEvenPagesHeaderFooter = False
                                    .DifferentFirstPageHeaderFooter = False
                                    .VerticalAlignment = wdAlignVerticalTop
                                    .SuppressEndnotes = False
                                    .MirrorMargins = False
                                    .TwoPagesOnOne = False
                                    .BookFoldPrinting = False
                                    .BookFoldRevPrinting = False
                                    .BookFoldPrintingSheets =  1 
                                    .GutterPos = wdGutterPosLeft
                                End With
                                Selection.Font.Size =  14 
                                Selection.Font.Bold = wdToggle
                                If Selection.Font.Underline = wdUnderlineNone Then
                                    Selection.Font.Underline = wdUnderlineSingle
                                Else
                                    Selection.Font.Underline = wdUnderlineNone
                                End If
                                Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
                                Selection.TypeText Text:="""Фирма"""
                                Selection.TypeParagraph
                                Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
                                If Selection.Font.Underline = wdUnderlineNone Then
                                    Selection.Font.Underline = wdUnderlineSingle
                                Else
                                    Selection.Font.Underline = wdUnderlineNone
                                End If
                                Selection.Font.Bold = wdToggle
                                Selection.Font.Size =  10 
                                With Selection.ParagraphFormat
                                    .SpaceBeforeAuto = False
                                    .SpaceAfterAuto = False
                                    .FirstLineIndent = CentimetersToPoints( 0 . 85 )
                                End With
                                Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints( 11 . 05  _
                                    ), Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces
                                Selection.TypeParagraph
                                Selection.TypeText Text:="авпвапвап" & vbTab & "Реквизиты:"
                                Selection.TypeParagraph
                                Selection.TypeText Text:="вапывп," & vbTab & "ОКПО: "
                                Selection.TypeParagraph
                                Selection.TypeText Text:="д. 80, 2 подъезд" & vbTab & "р/с: вввввв в вввввввв"
                                Selection.TypeParagraph
                                Selection.TypeText Text:="Тел.: 333333333333333333" & vbTab & "отделении sdfsdfsdfsdsdfsdfsdfsdf"
                                Selection.TypeParagraph
                                Selection.TypeText Text:="(werwerwerwerwerwerwer" & vbTab & "МФО: 334333"
                                Selection.TypeParagraph
                                Selection.TypeText Text:="Тел./факс: (434534534535-74" & vbTab & "e-mail: dsfsdfsdffsdfsdfsdfsdf"
                                Selection.TypeParagraph
                                Selection.TypeText Text:="sdfsdfsdfsdfsdfsdfsdfs" & vbTab & "sdffffffsdfsdfsdfsdf"
                                Selection.TypeParagraph
                                Selection.TypeParagraph
                                Selection.TypeParagraph
                                Selection.TypeParagraph
                                ' линия
                                ActiveDocument.Shapes.AddLine( 40 #,  130 #,  590 #,  130 #).Select
                                Selection.ShapeRange.Line.Weight =  2 . 25 
                                ActiveDocument.Shapes.AddLine( 40 #,  133 #,  590 #,  133 #).Select
                                Selection.Collapse
                                'Selection.MoveDown Unit:=wdLine, Count:=1 ' Курсор на 1 линии вниз                                Selection.ParagraphFormat.TabStops(CentimetersToPoints(11.05)).Clear
                                Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints( 14 . 05  _
                                    ), Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces
                                Selection.TypeText Text:=vbTab & Format(Now(), "dd mmmm yyyy")
                                Selection.TypeParagraph
                                Selection.Font.Bold = wdToggle
                                Selection.TypeParagraph
                                Selection.TypeText Text:=vbTab & Form1.Combo3.Text
                                Selection.TypeParagraph
                                Selection.TypeText Text:=vbTab & Form1.Text3.Text
                                Selection.TypeParagraph
                                Selection.Font.Bold = wdToggle
                                Selection.TypeParagraph
                                Selection.TypeParagraph
                                Selection.TypeParagraph
                                Selection.TypeParagraph
                                Selection.TypeParagraph
                                Selection.TypeParagraph
                                Selection.TypeParagraph
                                Selection.TypeParagraph
                                Selection.TypeParagraph
                                Selection.ParagraphFormat.TabStops(CentimetersToPoints( 14 . 05 )).Clear
                                Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
                                Selection.TypeText Text:="Директор " & vbTab & vbTab & vbTab & vbTab & vbTab & _
                                    vbTab & vbTab & "sdfsdfsdfsdfsdfsdf."
                                Selection.MoveUp Unit:=wdLine, Count:= 3 
                    End If
                    wrd.Visible = True
    Else
        Set doc = wrd.Documents.Open(file)
    End If
End Sub
...
Рейтинг: 0 / 0
15.06.2007, 13:41
| Ответить | Цитировать | Написать  
логин и пароль. как залезть на другой комп по сети?
    #34597689
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Заменил в вашем примере Selection на wrd.Selection (о чем я и говорил ранее).
Заменил GetObject на CreateObject (об этом говорил Antonary)
Заработало, но стало сваливаться на одной из команд.
Вот пример:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
Public Sub OpenFile(id As Long, Optional file As String)
'   Dim xxx As String
'   xxx = Form1.Combo1
   Dim wrd As Word.Application
   lID = id
   On Error Resume Next
   'Set wrd = GetObject(, "Word.Application")
   Set wrd = CreateObject("Word.Application")
   On Error GoTo  0 
   If id =  0  Then
      Set doc = wrd.Documents.Add
         If Form1.Combo1 = "фирма" And Form1.Combo2 = "Письмо" Then
              '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
         With ActiveDocument.PageSetup
             .LineNumbering.Active = False
             .Orientation = wdOrientPortrait
             .TopMargin = CentimetersToPoints( 0 . 6 )
             .BottomMargin = CentimetersToPoints( 0 . 6 )
             .LeftMargin = CentimetersToPoints( 1 . 5 )
             .RightMargin = CentimetersToPoints( 0 . 6 )
             .Gutter = CentimetersToPoints( 0 )
             .HeaderDistance = CentimetersToPoints( 1 #)
             .FooterDistance = CentimetersToPoints( 1 #)
             .PageWidth = CentimetersToPoints( 21 )
             .PageHeight = CentimetersToPoints( 29 . 7 )
             .FirstPageTray = wdPrinterDefaultBin
             .OtherPagesTray = wdPrinterDefaultBin
             .SectionStart = wdSectionNewPage
             .OddAndEvenPagesHeaderFooter = False
             .DifferentFirstPageHeaderFooter = False
             .VerticalAlignment = wdAlignVerticalTop
             .SuppressEndnotes = False
             .MirrorMargins = False
             .TwoPagesOnOne = False
             .BookFoldPrinting = False
             .BookFoldRevPrinting = False
             .BookFoldPrintingSheets =  1 
             .GutterPos = wdGutterPosLeft
         End With
         wrd.Selection.Font.Size =  14 
         wrd.Selection.Font.Bold = wdToggle
         If wrd.Selection.Font.Underline = wdUnderlineNone Then
             wrd.Selection.Font.Underline = wdUnderlineSingle
         Else
             wrd.Selection.Font.Underline = wdUnderlineNone
         End If
         wrd.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
         wrd.Selection.TypeText Text:="""Фирма"""
         wrd.Selection.TypeParagraph
         wrd.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
         If wrd.Selection.Font.Underline = wdUnderlineNone Then
             wrd.Selection.Font.Underline = wdUnderlineSingle
         Else
             wrd.Selection.Font.Underline = wdUnderlineNone
         End If
         wrd.Selection.Font.Bold = wdToggle
         wrd.Selection.Font.Size =  10 
         With wrd.Selection.ParagraphFormat
             .SpaceBeforeAuto = False
             .SpaceAfterAuto = False
             .FirstLineIndent = CentimetersToPoints( 0 . 85 )
         End With
         wrd.Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints( 11 . 05  _
             ), Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeText Text:="авпвапвап" & vbTab & "Реквизиты:"
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeText Text:="вапывп," & vbTab & "ОКПО: "
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeText Text:="д. 80, 2 подъезд" & vbTab & "р/с: вввввв в вввввввв"
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeText Text:="Тел.: 333333333333333333" & vbTab & "отделении sdfsdfsdfsdsdfsdfsdfsdf"
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeText Text:="(werwerwerwerwerwerwer" & vbTab & "МФО: 334333"
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeText Text:="Тел./факс: (434534534535-74" & vbTab & "e-mail: dsfsdfsdffsdfsdfsdfsdf"
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeText Text:="sdfsdfsdfsdfsdfsdfsdfs" & vbTab & "sdffffffsdfsdfsdfsdf"
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeParagraph
         ' линия
         ActiveDocument.Shapes.AddLine( 40 #,  130 #,  590 #,  130 #).Select
         wrd.Selection.ShapeRange.Line.Weight =  2 . 25   'Здесь валится с ошибкой: "Команда доступна только в режиме разметки."
         ActiveDocument.Shapes.AddLine( 40 #,  133 #,  590 #,  133 #).Select
         wrd.Selection.Collapse
         'wrd.Selection.MoveDown Unit:=wdLine, Count:=1 ' Курсор на 1 линии вниз                                wrd.Selection.ParagraphFormat.TabStops(CentimetersToPoints(11.05)).Clear
         wrd.Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints( 14 . 05  _
             ), Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces
         wrd.Selection.TypeText Text:=vbTab & Format(Now(), "dd mmmm yyyy")
         wrd.Selection.TypeParagraph
         wrd.Selection.Font.Bold = wdToggle
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeText Text:=vbTab & Form1.Combo3.Text
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeText Text:=vbTab & Form1.Text3.Text
         wrd.Selection.TypeParagraph
         wrd.Selection.Font.Bold = wdToggle
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeParagraph
         wrd.Selection.TypeParagraph
         wrd.Selection.ParagraphFormat.TabStops(CentimetersToPoints( 14 . 05 )).Clear
         wrd.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
         wrd.Selection.TypeText Text:="Директор " & vbTab & vbTab & vbTab & vbTab & vbTab & _
             vbTab & vbTab & "sdfsdfsdfsdfsdfsdf."
         wrd.Selection.MoveUp Unit:=wdLine, Count:= 3 
      End If
      wrd.Visible = True
   Else
       Set doc = wrd.Documents.Open(file)
   End If
End Sub
А вообще, вам надо бы с шаблонами научиться работать.
Тогда программного кода станет гораздо меньше.
...
Рейтинг: 0 / 0
15.06.2007, 13:57
| Ответить | Цитировать | Написать  
логин и пароль. как залезть на другой комп по сети?
    #34597724
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Да, и еще забыл сказать:
Проблема с поздним показом Word-а в том что он (Word) может остается в процессах висеть, а программа благополучно о нем забывает.
Снимите в "проецессах" в Диспетчере задач все невидимые Word-ы - они мешают отлаживать программу.
А в событии выгрузки формы напишите следующее:
Код: plaintext
1.
2.
3.
4.
Private Sub Form_Unload(Cancel As Integer)
   On Error Resume Next
   wrd.ActiveDocument.Close
   wrd.Quit
End Sub
...
Рейтинг: 0 / 0
15.06.2007, 14:02
| Ответить | Цитировать | Написать  
логин и пароль. как залезть на другой комп по сети?
    #34670145
32sasha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
32sasha
Участник
ЕленаMC Попробуйте
WRD.CentimetersToPoints
У меня больше не выбрасывает ошибку 462
...
Рейтинг: 0 / 0
19.07.2007, 13:45
| Ответить | Цитировать | Написать  
7 сообщений из 82, страница 4 из 4
  4  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / логин и пароль. как залезть на другой комп по сети?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2163707]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 40ms
get topic data:
 11ms
get first new msg:
 7ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 238ms
total:  378ms
созд. / загр.: 378ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]