VBNet - Форум - Проблемочка в Вордом

Вопрос: Проблемочка в Вордом Добавлено: 24.01.10 20:25

Автор вопроса: V1RR | Web-сайт: V1RR.us | ICQ: 636580

Надо экспортировать данные в документ ворда сохранить а почему-то не выходит.

Private Sub StudDocTest()
Dim p1 As String
Dim x As Word.Document
Dim oTable As Word.Table
Dim opara As Word.Paragraph

    BeforeChanche = ComboSt.ListIndex
    dlgSave.DialogTitle = "Зберегти в файл"
    dlgSave.Filter = "Текстовий документ (*.txt)|*.txt|Документ MS Word (*.doc)|*.doc|"
    dlgSave.InitDir = App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "Documents"
    dlgSave.MaxFileSize = 40
    dlgSave.ShowSave
    p1 = dlgSave.FileName
    If (p1 <> "") Then
        If (Right((p1), 1) = "c") Then
        Set x = New Word.Document
        x.Application.Selection.PageSetup.LeftMargin = CentimetersToPoints(2)
        x.Range.Font.Bold = True
        x.Range.Font.Italic = True
        x.ActiveWindow.Selection.TypeText "Особиста картка студента " & Chr(10)
        Set oTable = x.Tables.Add(x.Bookmarks("\endofdoc").Range, 8, 2)
        oTable.Cell(1, 1).Range.Text = "Прізвище:"
        oTable.Cell(2, 1).Range.Text = "Ім'я:"
        oTable.Cell(3, 1).Range.Text = "По-батькові:"
        oTable.Cell(4, 1).Range.Text = "Дата народження:"
        oTable.Cell(5, 1).Range.Text = "Місце проживання:"
        oTable.Cell(6, 1).Range.Text = "Контактний телефон:"
        oTable.Cell(7, 1).Range.Text = "E-mail:"
        oTable.Cell(8, 1).Range.Text = "Коментарій: "
        oTable.Cell(9, 1).Range.Text = "Коментарій: "

        oTable.Cell(1, 2).Range.Text = "" & Text1.Text
        oTable.Cell(2, 2).Range.Text = "" & Text2.Text
        oTable.Cell(3, 2).Range.Text = "" & Text3.Text
        oTable.Cell(4, 2).Range.Text = "" & Text4.Text
        oTable.Cell(5, 2).Range.Text = "" & Text5.Text
        oTable.Cell(6, 2).Range.Text = "" & Text6.Text
        oTable.Cell(7, 2).Range.Text = "" & Text7.Text
        oTable.Cell(8, 2).Range.Text = "" & Text8.Text
        oTable.Cell(9, 2).Range.Text = "" & Text9.Text

        On Error Resume Next
        With x
            .SaveAs p1
            .Close
        End With

        End If
End Sub

И на строке Dim x As Word.Document выбивает ошибку при компиляции и пишет:
User-defined type not defined.

В чем моя проблемка? (хотя в паралельно запущенном проекте то же самое и оно работает.
Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: s12 Вопросов: 24 Ответов: 363	Профиль \| \| #1	Добавлено: 24.01.10 21:34
	Возможно библиотека ворда не подключена... Проект->Информация->Microsoft Word 12.0 Object Library Ответить

Страница: 1 |