| Вопрос: Вызов макроса из Excel файла | Добавлено: 07.11.06 13:57 |
Автор вопроса:  sergius
|
|
Помогите, пожалуйста, реализовать макрос:
Макрос в Word вызывает файл F.xls, в котором находится заранее записанный макрос и передаёт ему управление. Этот макрос получает строчку, которая введена в Word, изменяет порядок слов в этом тексте на обратный и выводит каждое слово в ячейке. В тексте с изменённым порядком слов первая буква в первом слове должна быть большой, а первая и последняя буквы в последнем слове должны быть маленькими! Ну или хотя бы подскажите, как передать управление макросу, записанному в Excel, и чтобы он получил строчку, введённую в ворде! |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  -АлександР- Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #1 | Добавлено: 07.11.06 17:11 |
|
CreateObject "Excel.Application"
GetObject "путь" Сall Макрос Не забудь подключить библиотеки 
|
||
|
Номер ответа: 2 Автор ответа: sergius Вопросов: 4 Ответов: 15 |
Профиль | | #2 | Добавлено: 07.11.06 20:37 |
| А какие библиотеки? | ||
|
Номер ответа: 3 Автор ответа: -АлександР-Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #3 | Добавлено: 07.11.06 21:44 |
|
Tools->Reference
В списке ищешь - Microsoft Excel 11.0 Object Library, ставишь галочку. И наслаждаешься (это называется подключить соотвествующие библы) |
||
|
Номер ответа: 4 Автор ответа: sergiusВопросов: 4 Ответов: 15 |
Профиль | | #4 | Добавлено: 12.11.06 12:48 |
|
Я сделал следующее:
В макросе, который выполянется в Word для выделенного текста следующий код: Dim e As Object Dim s As String s = Selection.Words.Parent Set e = CreateObject("Excel.Application"
e.workbooks.Open ("  :\F.xls"
e.Visible = True e.Run "WordRevers", s Set e = Nothing Т.е. он открывает файл F.xls и запускает макрос WordRevers. А что теперь прописать в этом макросе для того чтобы он изменил порядок слов выделенного текста в Word и вставил каждое слово текста с изменённым порядком слов в отдельную ячейку? |
||
Страница: 1 |