VBNet - Форум - Нужна помощь в вопросе SaveFileDialog

Вопрос: Нужна помощь в вопросе SaveFileDialog Добавлено: 23.07.10 02:51

Автор вопроса: ZeRoN

Здравствуйте! Нужна помощь... написал код сохранения, но хочу что бы файл сохранялся в doc и с картинкой как это можно сделать и как установить кодировку что бы ворд при запуске не спрашивал какую именно кодировку я хочу выбрать!?
Private Sub SaveToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripButton.Click
        SaveFileDialog1.InitialDirectory = Application.StartupPath
        SaveFileDialog1.Title = "Сохранить файл"
        SaveFileDialog1.Filter = "Microsoft Word (*.doc)|*.doc|Текстовые файлы (*.txt)|*.txt|Все файлы (*.*)|*.*"
        SaveFileDialog1.FilterIndex = 1
        Dim objWrite As System.IO.StreamWriter
        'помещаем код в секцию обработки исключений
        Try
            'проверяем,что пользователь нажал кн.OK
            If Me.SaveFileDialog1.ShowDialog = DialogResult.OK Then
                'открываем файл для записи
                objWrite = System.IO.File.CreateText(Me.SaveFileDialog1.FileName)
                'запись содержимого в файл
                objWrite.WriteLine(Me.Label1.Text)
                If RadioButton1.Checked Then
                    objWrite.WriteLine(images)
                End If
                objWrite.WriteLine(Me.Label1.Text)
                objWrite.WriteLine(ComboBox3.SelectedItem)

            End If

        Catch ex As Exception
            'сообщение об ошибке
            MessageBox.Show(ex.ToString, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Finally

            'закрываем файл
            If Not (objWrite Is Nothing) Then
                objWrite.Close()
            End If

        End Try
    End Sub
Ответить

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

Номер ответа: 1 Автор ответа: s12 Вопросов: 24 Ответов: 363	Профиль \| \| #1	Добавлено: 23.07.10 08:03
	хочу что бы файл сохранялся в doc и с картинкой Открою тебе страшную тайну, этим кодом ты сохраняешь текстовый файл с картинкой в виде массива байтов и получается у тебя в файлике полный писец (большой набор крякозябров ). Чтобы сохранить файл в формате *.doc надо или изучить этот формат и потом бинарным способом вписывать (что, как я понял неподъемно) или подключить библиотеку Worda и работать через нее. Ответить

Номер ответа: 2 Автор ответа: ZeRoN Вопросов: 1 Ответов: 4	Профиль \| \| #2	Добавлено: 23.07.10 12:36
	А подскажи как подключить эту библиотеку Word? Ответить

Номер ответа: 3 Автор ответа: Дмитрий Юпатов Вопросов: 4 Ответов: 457	Web-сайт: cargomaster.at.ua/ Профиль \| \| #3	Добавлено: 23.07.10 12:50
	В референцах, во вкладке COM найди Microsoft Word номер-версии Type Library. Номер версии: для 2003 ворда - 11, 2007 - 12 А дальше создай переменную типа microsoft.office.interop.word.application Получишь доступ к ворду. Конкретный код - смотри на http://74.125.232.49/ Ответить

Номер ответа: 4 Автор ответа: ZeRoN Вопросов: 1 Ответов: 4	Профиль \| \| #4	Добавлено: 23.07.10 15:39
	Как тект в ворд вставить разобрался, но как картинку нужную мне запихнуть??? не могу понять... кто знает - объясните плиз Ответить

Номер ответа: 5 Автор ответа: s12 Вопросов: 0 Ответов: 2	Профиль \| \| #5	Добавлено: 23.07.10 16:24
	Selection.InlineShapes.AddPicture FileName:= _ "C:\Изображение 001.jpg" _ , LinkToFile:=False, SaveWithDocument:=True Чтобы посмотреть как или что делается, можно использовать запись макросов в Word. Включил запись, сделал что нужно, остановил запись, нажал Alt+F11 посмотрел как это делается императивно. Ответить

Номер ответа: 6 Автор ответа: ZeRoN Вопросов: 1 Ответов: 4	Профиль \| \| #6	Добавлено: 23.07.10 18:56
	Private Sub SaveToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripButton.Click Clipboard.Clear() ' Очищаем буфер(для этого есть метод Clear) Clipboard.SetImage(PictureBox1.Image) ' Записываем в буфер изображение из Picture1 applicationWord = New Microsoft.Office.Interop.Word.Application 'Делаем приложение MS Word видимым для пользователя (это делать не обязательно) applicationWord.Visible = True 'Объявляем переменную для работы с текстом и др. возможностями документа MS Word, например: Создаём таблицы; Меняем размер, цвет шрифта; и.т.д. Dim documentWord As Microsoft.Office.Interop.Word.Document = applicationWord.Documents.Add 'Range - это, можно сказать, тело документа имеет все свойства для работы с текстом в документе MS Word With documentWord.Range .Font.Name = "Arial" 'Устанавливаем имя шрифта 'Устанавливаем цвет шрифта .Font.Color = Microsoft.Office.Interop.Word.WdColor.wdColorBlack .Font.Size = "12" '"Устанавливаем размер шрифта .Paste() End With End Sub Проблему с картинкой решил таким образом: копировал в буфер, а после вставлял в документ ворд, только вот не могу никак перевести курсор на строчку ниже, мне еще текст надо выдать в документе... а пока что он только заменят картинку, подскажите что делать? Ответить

Номер ответа: 7 Автор ответа: Coloss ICQ: 479007356 Вопросов: 15 Ответов: 37	Профиль \| \| #7	Добавлено: 03.08.10 20:46
	а можешь скинуть полный код программы что у тебя получилась? Ответить

Номер ответа: 8 Автор ответа: Coloss ICQ: 479007356 Вопросов: 15 Ответов: 37	Профиль \| \| #8	Добавлено: 04.08.10 06:46
	мне интересно как ты её подключил. Ответить

Страница: 1 |