Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
VBA данные из excel в word 2010
 
#1
08.09.2012 18:18:09
Добрый вечер, уважаемые форумчане.  
Столкнулся со следующей проблемой.  
В 2007 офисе мой код прекрасно работает и выполняет свои функции.  
В 2010 же почему-то не становится документ активным и соответственно макрос вызывает ошибку  
Код прикладываю в файле.  
Буду благодарен любой помощи.  
Заранее спасибо.
 
 
 
#2
08.09.2012 18:27:21
Вариант 1: не подключена библиотека Microsoft Word 14
 
 
 
#3
08.09.2012 18:33:28
Подключенные библиотеки:  
Microsoft forms 2.0  
Microsoft Word 14.0  
Microsoft Office 14.0
 
 
 
#4
08.09.2012 18:49:17
У меня была подобная проблема: делал в Word Закладки и подставлял данные из Excel. При тестировании на домашнем 2007 всё было нормально, а на чужом 2010 что-то не шло (не помню уже что). Победить проблему мне помог ZVI. Сейчас попробую найти тот файл.
 
 
 
#5
08.09.2012 18:52:58
Через Bookmark когда делал, ошибок не возникало, но сейчас условия изменились и приходится пользоваться find and replace  
Юрий, большое спасибо за помощь.
 
 
 
#6
08.09.2012 19:12:06
Попробуйте для начала этот код:  
Sub Test()  
 Dim objWord As Object  
 Set objWord = CreateObject("Word.Application")  
 objWord.Visible = True  
 objWord.Tasks("Microsoft Word").Activate  
 Set objWord = Nothing  
End Sub  
Создаётся новый экземпляр Word и активируется
 
 
 
#7
08.09.2012 19:30:54
СТранно, добавил часть кода, все равно не работает. Вроде и окно стало активным.  
Sub Test()  
Dim objWord As Object  
Set objWord = CreateObject("Word.Application")  
objWord.Visible = True  
objWord.Tasks("Microsoft Word").Activate  
objWord.Documents.Add  
   For i = 0 To 1  
               With ActiveDocument.Content.Find  
                   .Text = "1"  
                   .Forward = True  
                   .Execute  
               If .Found = True Then  
               .Replacement.Text = "2"  
               .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue  
               End If  
                End With  
   Next i  
Set objWord = Nothing  
End Sub
 
 
 
#8
08.09.2012 19:41:11
Но главную задачу - активировать Word - решили? :-)  
А в каком документе искать? Не вижу, чтобы открывался конкретный документ.
 
 
 
#9
08.09.2012 19:41:53
Мож я чего...  
objWord.Documents.Add - мы создаем новый док. А дальше:  
For i = 0 To 1  
With ActiveDocument.Content.Find  
.Text = "1" - откуда такому тексту взяться в новом доке?
Я сам - дурнее всякого примера! ...
 
 
 
#10
08.09.2012 19:46:05
К сожалению нет, Word 2010 ругается, что "Данная команда не доступна, так как не открыт ни один документ"  
 
 
В оригинале:  
Set oDoc = oWord.Documents.Add(CurrentPath & "\" & Form) 'запускаем форму  
Для быстроты проверки создал новый файл  
objWord.Documents.Add - мы создаем новый док. А дальше:  
For i = 0 To 1  
With ActiveDocument.Content.Find  
.Text = "1" - откуда такому тексту взяться в новом доке?
 
 
 
#11
08.09.2012 19:51:06
Вы сам документ, в котором нужно искать видите? Он должен быть заранее создан.
 
 
 
#12
08.09.2012 19:58:08
Всем спасибо за помощь. Проблема решена.  
oWord.Tasks("Microsoft Word").Activate ' делает видимым окно, но не активным  
Этот кусок  
With ActiveDocument.Content.Find  
Заменил на    
With oDoc.Content.Find  
и все заработало.  
Спасибо за помощь
 
 
 
#13
08.09.2012 19:59:40
{quote}{login=Юрий М}{date=08.09.2012 07:51}{thema=}{post}Вы сам документ, в котором нужно искать видите? Он должен быть заранее создан.{/post}{/quote}  
Да вижу, просто не могу полностью рабочий код выложить, поэтому извините, что немного запутал Вас.
 
 
 
#14
09.09.2012 01:12:03
Если надумаете реализовать более сложное заполнение документов Word (или других файлов) из Excel,  
можете воспользоваться этой надстройкой:  
 
http://excelvba.ru/programmes/FillDocuments
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
Страницы: 1
Читают тему
Наверх