VPF::Access2000:Ошибка при выполнении кода

Loiste

Дата 6.10.2005, 15:30 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 79
Регистрация: 28.9.2005

Репутация: нет
Всего: нет

Код


Private Sub Knopka0_Click()

   Dim Zadanie, indexV, indexO As Integer
   Dim WordApp As Word.Application
   Dim DocWord, WordDocCreate As Word.Document
   Dim par As Paragraph
   Dim str As String
      
   Set WordApp = New Word.Application
   WordApp.Visible = True
   Set DocWord = WordApp.Documents.Open("D:\...\Novii.doc")
   DocWord.Activate
   indexV = 0
   
   For Each par In DocWord.Paragraphs
      str = par.Range.Text
      
      If str Like "*Zadanie*" Then
        Vopros = 1
      
      Else
        par.Range.Copy
        If Vopros = 0 Then
           Set DocWordCreate = WordApp.Documents.Open("D:\...\Pustoi.doc")
           indexO = indexO + 1
           DocWordCreate.Activate
           Selection.Paste
           DocWordCreate.SaveAs "D:\...\Otveti\" & indexV & "_" & indexO & ".doc"
           DocWord.Activate
           DocWordCreate.Close True
           Set DocWordCreate = Nothing
          
         Else
           Set DocWordCreate = WordApp.Documents.Open("D:\...\Pustoi.doc")
           indexV = indexV + 1
           indexO = 0
           DocWordCreate.Activate
           Selection.Paste
           DocWordCreate.SaveAs "D:\...\Voprosi\" & indexV & ".doc"
           DocWord.Activate
           DocWordCreate.Close True
           Set DocWordCreate = Nothing
           Vopros = 0
        End If
      
    End If
  DocWord.Activate
  Next
  
  DocWord.Close True
  WordApp.Quit True
  Set DocWord = Nothing
  Set WordApp = Nothing
  
  
End Sub

Вот код. Он выполняется через раз. Один раз выполняется. В другой выдает ошибку:

Remote server machine does not exist or is unavailable

и запускает отладчик ставя курсор на строку

38: Selection.Paste

Это сообщение отредактировал(а) Loiste - 6.10.2005, 15:31

Loiste

Дата 7.10.2005, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 79
Регистрация: 28.9.2005

Репутация: нет
Всего: нет

Так что, никто не подскажет, в чем здесь может быть проблема?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »