| Вопрос: Доступ средствами Vba из Excel в Word | Добавлено: 20.08.08 15:22 |
Автор вопроса:  Yoshie
|
|
Подскажите пожалуйста, имеет ли решение такая задача.
Есть уже созданный вордовский файл. Надо макросом из экселя его открыть, скопировать данные от А до Б, вставить в новую таблицу экселя. Возможно ли такое и как? |
| Ответы | Всего ответов: 12 |
|
Номер ответа: 1 Автор ответа:  Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #1 | Добавлено: 20.08.08 23:20 |
|
Я тут уже несколько рабочих примеров давал, полистай страницы, почитай темы.
Один простецкий макрос и всего делов. |
||
|
Номер ответа: 2 Автор ответа: Yoshie Вопросов: 4 Ответов: 11 |
Профиль | | #2 | Добавлено: 20.08.08 23:47 |
| Спасибо, а не вспомните хоть пару слов, по которым поискать можно, а то я на какой-то там энной странице потеряла надежду ))) | ||
|
Номер ответа: 3 Автор ответа: Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561 |
Web-сайт: Профиль | | #3 | Добавлено: 21.08.08 01:04 |
| http://yandex.ru/yandsearch?text=Vba+Excel+Word&site=vbnet.ru&ras=1&site_manually=true | ||
|
Номер ответа: 4 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #4 | Добавлено: 21.08.08 08:35 |
| http://www.vbnet.ru/forum/show.aspx?id=166109 | ||
|
Номер ответа: 5 Автор ответа: YoshieВопросов: 4 Ответов: 11 |
Профиль | | #5 | Добавлено: 21.08.08 12:53 |
|
Огромнейшее спасибо.
У меня теперь другая проблема - как в этом вордовском доке найти пункт А (по факту это строка из нескольких слов) и пункт Б (аналогично). Сам документ - есть гибрид просто текста, типа маленького заголовка. и большой сложной таблицы, листов эдак на 12. Сделать две константные строки, А и Б соотв-но, и проверять последовательно наборы слов типа word (n) & " " & word (n+1) & " " & word (n+2)? |
||
|
Номер ответа: 6 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #6 | Добавлено: 27.08.08 10:08 |
|
Используй поиск фразы по шаблону.
Selection.Find.Text = "Искомый кусок текста" |
||
|
Номер ответа: 7 Автор ответа: YoshieВопросов: 4 Ответов: 11 |
Профиль | | #7 | Добавлено: 27.08.08 12:30 |
|
Я уже второй день не могу это сотворить. Помогите пожалуйста.
Dim WordObject As Object
Set WordObject = CreateObject("Word.Application" 
With WordObject .Documents.Open Filename:=w_path & "\d1.rtf", ReadOnly:=True .ActiveDocument.Tables(1).Select Надо сделать так, чтоб выделился диапазон с границами включительно .Selection.Find.Text = "Фраза 1" .Selection.Find.Text = "Фраза 2" - возвращает false, почему мне не понятно. .Selection.Copy .Quit End With Set WordObject = Nothing |
||
|
Номер ответа: 8 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #8 | Добавлено: 27.08.08 16:31 |
|
А зачем тебе CreateObject?
Подключи лучше библиотеку Microsoft Word 11.0 Object Library к проекту и указывай на объекты более дружественно: Dim WordObject As Word.Application
Dim WordDocument As Word.Document Set WordObject = New Word.Application WordObject.Visible = True Set WordDocument = WordObject.Documents.Open("C:\file.doc"
WordDocument.Activate Set WordDocument = Nothing Set WordObject = Nothing Так проще, т.к. работаешь чаще с выпадающим списком в IDE и всё становится понятно. |
||
|
Номер ответа: 9 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #9 | Добавлено: 28.08.08 16:44 |
И то верно 
О чем я думал? VB-шник безмозглый
|
||
|
Номер ответа: 10 Автор ответа: GDKВопросов: 13 Ответов: 348 |
Профиль | | #10 | Добавлено: 09.09.08 09:27 |
|
Чёт я не понял: 1.Кто там FALSE возвращает?
2."Фраза 1" выделилось? 3."Фраза 2" выделилось? А вообще задачка не из сложных. 1. Найти "Фраза 1" и присвоить её диапазону (переменной As Word.Range) 2. Найти "Фраза 2" и присвоить её диапазону (другой переменной As Word.Range) У переменных As Word.Range есть св-ва типа Start и End. Поэтому 3.Определить третью переменную As Word.Range и установить её св-во Start=св-ву Start переменной с "фраза 1", а св-во End=Св-ву End переменной с "фраза 2". 4.Выделить диапазон присвоенный третьей переменной. |
||
|
Номер ответа: 11 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #11 | Добавлено: 09.09.08 14:33 |
|
Человек, Yoshie! Тебе помогло то, что тебе советует уважаемый GDK? Если не помогло, но сильно хочется, тогда обозначь цену вопроса - многие тебе готовы сделать От и До
|
||
|
Номер ответа: 12 Автор ответа: GDKВопросов: 13 Ответов: 348 |
Профиль | | #12 | Добавлено: 11.09.08 12:35 |
| Человек, mc-black! Не убивай в Yoshie творческие порывы. Пусть учится делать сам(а). | ||
Страница: 1 |