| Вопрос: Чтение из файлов типа .doc в открытый Notepad | Добавлено: 27.02.12 10:22 |
Автор вопроса:  Яр
|
|
Здравствуйте, форумчане!
Помогите, пожалуйста, решить следующую задачу. Есть, например, три файла: 1.doc, 2.doc, 3.doc. Необходимо при нажатии на кнопку получить такую последовательность действий: 1. открыть Notepad (он остаётся постоянно видимым и активным); 2. считать в него данные из файла 1.doc (добавление строки должно быть видно); 3. добавить в следующую строку данные из файла 2.doc (добавление строки должно быть видно); 4. добавить в следующую строку данные из файла 3.doc (добавление строки должно быть видно). Открыть Notepad принажатии кнопки можно так: Код: Private Sub Command1_Click()
Shell "notepad.exe", vbNormalFocus ... End Sub А как вставлять в него данные из файлов (желательно без создания временных файлов)? Спасибо! |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  Daniel ICQ: 610950440 Вопросов: 12 Ответов: 45 |
Web-сайт: Профиль | | #1 | Добавлено: 29.02.12 17:00 |
|
Во-первых, *.doc notepad не считывает.
Во-вторых,
|
||
|
Номер ответа: 2 Автор ответа: DanielICQ: 610950440 Вопросов: 12 Ответов: 45 |
Web-сайт: Профиль | | #2 | Добавлено: 29.02.12 17:00 |
| I'm sorry, путь_к_файлу | ||
|
Номер ответа: 3 Автор ответа: BG(Алексей) Вопросов: 26 Ответов: 295 |
Профиль | | #3 | Добавлено: 01.03.12 05:56 |
| OpenXML в помощь. | ||
|
Номер ответа: 4 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #4 | Добавлено: 03.03.12 14:45 |
|
Daniel пишет:
I'm sorry, путь_к_файлу He's sorry, " путь_к файлу", причем с пробелом и с кавычками |
||
|
Номер ответа: 5 Автор ответа: CramperВопросов: 15 Ответов: 93 |
Профиль | | #5 | Добавлено: 06.03.12 09:57 |
|
Как то так.
Dim notepadID Private Sub Command1_Click() 'Чтение первого файла 1.DOC Set appWrd = CreateObject("Word.Application" 
'appWrd.Visible = True Set oDoc1 = appWrd.Documents.open("c:\1.doc"
Set Param = oDoc1.Content.Paragraphs notepadID = Shell("NOTEPAD.EXE " & "c:\txt", 1) ' Открытие Notepad. 'Построчное чтение строк из первого файла With oDoc1 .Parent.Visible = True For I = 1 To 100 On Error GoTo m1 Param = .Paragraphs(I) AppActivate notepadID SendKeys "^" & Param, True 'Посылка строки в Notepad. Next End With m1: oDoc1.Close appWrd.Quit 'notepadID.Quit End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() 'Вставка строки из второго файла Set appWrd = CreateObject("Word.Application"
Set oDoc2 = appWrd.Documents.open("c:\2.doc"
Set Param = oDoc2.Content.Paragraphs On Error GoTo m2 With oDoc2 Param = .Paragraphs(1) AppActivate notepadID SendKeys "^" & Param, True End With m2: oDoc2.Close appWrd.Quit End Sub Private Sub Command4_Click() 'Вставка строки из третьего файла Set appWrd = CreateObject("Word.Application"
Set oDoc3 = appWrd.Documents.open("c:\3.doc"
Set Param = oDoc3.Content.Paragraphs On Error GoTo m3 With oDoc3 Param = .Paragraphs(1) AppActivate notepadID SendKeys "^" & Param, True End With m3: oDoc3.Close appWrd.Quit End Sub |
||
|
Номер ответа: 6 Автор ответа: ЯрВопросов: 18 Ответов: 24 |
Профиль | | #6 | Добавлено: 12.03.12 10:40 |
| Спасибо! | ||
Страница: 1 |