С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB Отсортировать квадраты элементов 6-го столбца матрицы по возрастанию http://www.cyberforum.ru/visual-basic/thread197089.html
Собственно, подскажите пожалуйста. В задании нужно отсортировать квадраты элементов 6-го столбца по возрастанию, матрица размерностью 7*7, приводить весь код не буду, задание довольно объемное, сам...
VB Матрица плин((((((п.о.м.о.г.и.т.е Задана матрица: |8 7 0 -1| |4 -9 8 -13| |2 16 -5 15| |7 3 0 0 | a)ввести её в двухмерный масив Н; б)выщитать максимальный элемент второго столбца; в)вывести... http://www.cyberforum.ru/visual-basic/thread197088.html
VB Генератор паролей
Доброго времени суток, форумчане))):):wall: Помогите пожалуйта написать программу(или исходник) под названием "Генератор паролей". Принцип программы прост. Она должна сгенерировать пароль и вывести...
VB решите
ЗДРАВСТВУЙТЕ ПОМОГИ ПОЖАЛУЙСТА СРОЧНО РЕШИТЬ ЗАДАЧИ!!!ПРОШУ!!!!!!К ЗАВТРЕШНЕМУ УЖЕ НАДО(((( 1)Дан одновременный массив числовых значений насчитывающий N элементов.Поменять местами M первых...
VB Найти максимальный элемент третьего ряда матрицы http://www.cyberforum.ru/visual-basic/thread196883.html
(V.B.) Заданна матрица | 1 4 6 | | -2 3 9 | | 10 5 -8 | а) ввести её в двумерный массив G; б) элементы главной диагонали заменить противоположными; в) найти максимальный...
VB Экспорт ListView в Excel При роботе с собственными разработками на VB с базой на MSSQL появилась потребность формирование отчетов не только на мониторе (Grid-ы и List-ы) но и бумаге. То есть, мы имеем формочку на ней... подробнее
Alex77755
10780 / 3345 / 561
Регистрация: 13.02.2009
Сообщений: 9,826
24.11.2010, 23:55 0

VB6. Из .doc в .txt

24.11.2010, 23:55. Просмотров 1797. Ответов 2
Метки (Все метки)

Ответ

Visual Basic
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
        Private Sub Command1_Click()
        Dim temp As String
        temp = "путь & имя.doc"
        If Not Dir(temp, vbNormal) <> "" Then
           MsgBox "Документ не найден."
           Exit Sub
        End If
        On Error GoTo Notloaded 
            Set MyWord = GetObject (, "Word.Application")
        Notloaded:
            If Err.Number = 429 Then 
                Set MyWord = CreateObject("Word.Application")
            ElseIf Err.Number <> 0 Then 
                Screen.MousePointer = vbDefault
                    'Пользователь нажал на кнопку Cancel
                MyWord.Documents.Close SaveChanges:=wdDoNotSaveChanges
                Set MyWord = Nothing
                Screen.MousePointer = 0
                If Not Err.Number = 32755 Then
                    MsgBox Err.Description & vbCrLf & "error "
                End If
                Err.Clear
                Exit Sub
            End If
         MyWord.Documents.Open FileName:=temp
               MyWord.ActiveDocument.SaveAs FileName:="name.txt", FileFormat:=wdFormatText, _
                LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
                :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
                SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
                False
        End Sub


Вернуться к обсуждению:
VB6. Из .doc в .txt
2
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.11.2010, 23:55
Готовые ответы и решения:

На VB6 используя ADO в Таблицу MDB данные их TXT файла!
Как на VB6 в таблицу MDB базы закачать данные из текстового файла в котором данные (столбцы)...

Операции над .doc и .txt файлами: работа с форматированным текстом
Доброго всем времени! Небольшое лирическое вступление, т.к. не знаю как нормально начать. ...

Контроль длины Label. А также VB6 Portable vs VB6 Installed.
Исходя из заголовка темы, вопроса 2: 1.) Как определить, что в Label уже не хватает места для...

Windows 2000 Rus VB6, VB6 Resource Editor отсутствует
В Windows 2000 Rus + SP3 проинсталлировал Visual Studio 6 + MSDN Full (вся студия на 6 CD-R). В VB6...

Копирование определенных строк с одного .txt на другой *.txt
Ребзи помогите пожалуйста. Задача такая, есть текстовой файл с множ-во строк. Нужно вытащить оттуда...

2
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru