Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/10: Рейтинг темы: голосов - 10, средняя оценка - 4.80
udaffo4ka
0 / 0 / 0
Регистрация: 26.04.2010
Сообщений: 3
#1

VB6. Из .doc в .txt

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

Добрый вечер! подскажите: нужно файл с расширением .doc сделать формата .txt (для дальнейшего использования).
Вот есть макрос на VB для Word, но как я поняла он не подойдёт...

Sub Converter()
Dim sName As String
ChangeFileOpenDirectory "C:\doc\"
sName = Dir("c:\doc\*.*")
Do While sName <> ""
Documents.Open FileName:=sName, ConfirmConversions:=False, Format:=wdOpenFormatAuto
sName = Left(sName, Len(sName) - 3)
ActiveDocument.SaveAs FileName:="c:\doc\txt\" + sName + "txt", FileFormat:=wdFormatDOSText
ActiveWindow.Close
sName = Dir
Loop
End Sub

есть какие-то примеры?!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.11.2010, 23:14
Ответы с готовыми решениями:

На 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
Alex77755
10728 / 3303 / 547
Регистрация: 13.02.2009
Сообщений: 9,719
24.11.2010, 23:55 #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
2
udaffo4ka
0 / 0 / 0
Регистрация: 26.04.2010
Сообщений: 3
25.11.2010, 00:36  [ТС] #3
Спасибо, большое! всё работает
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2010, 00:36

Функция для перекодировки txt DOS -> txt Windows
Есть ли функция вышеуказанной перекодировки строк?

Как взять из файла INPUT.txt два числа, увеличить каждое из них на 1 и записать в OUTPUT.txt
Пишу последние года 2 на плюсах и C#. Сейчас появилась необходимость реализации элементарного кода...

Графика Vb6.0
Создать динамические (движущиеся или мигающие) эффекты. При помощи клавиш со стрелками обеспечить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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