Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: поставили новую винду 7 проблемы
 
 автор: Мишок   (29.02.2012 в 14:46)   личное сообщение
 
 

установили windows 7 ? office остался 2003, не работает заполненние вордовских документов, стал ругается на стороку Set oWord = GetObject(, "Word.Application"), хотя с ексель все хорошо. как личить?

  Ответить  
 
 автор: osmor   (29.02.2012 в 15:03)   личное сообщение
 
 

как ругается?

  Ответить  
 
 автор: Мишок   (29.02.2012 в 16:09)   личное сообщение
 
 

run-time error 13
type mismatch

  Ответить  
 
 автор: Мишок   (01.03.2012 в 09:27)   личное сообщение
 
 

помогите, пожалуйста

  Ответить  
 
 автор: osmor   (01.03.2012 в 09:31)   личное сообщение
 
 

прямо на этой строке?
oWord как описана?

  Ответить  
 
 автор: Мишок   (01.03.2012 в 10:06)   личное сообщение
 
 

Dim oWord As Word.Application
Set oWord = GetObject(, "Word.Application")
Dim oDoc As Word.Document
Set oDoc = oWord.ActiveDocument
oWord.Visible = True

ругается на вторую строку

  Ответить  
 
 автор: helena   (01.03.2012 в 10:23)   личное сообщение
 
 

Dim appWord As Word.Application
Dim docWord As Word.Document
dim rngCurrent As Word.Range

Set appWord = New Word.Application
Set docWord = appWord.Documents.Add

  Ответить  
 
 автор: Мишок   (01.03.2012 в 10:40)   личное сообщение
 
 

Set appWord = New Word.Application
ругается на эту строку

ошибка 430

  Ответить  
 
 автор: osmor   (01.03.2012 в 11:14)   личное сообщение
 
 

вместо

Dim oWord As Word.Application
и
Dim oDoc As Word.Document

напишите


Dim oWord As object
Dim oDoc As object

  Ответить  
 
 автор: Мишок   (01.03.2012 в 12:07)   личное сообщение
 
 

osmor,
огромное пасибо!!!!
Можно узнать почему стало так?

  Ответить  
 
 автор: osmor   (01.03.2012 в 13:55)   личное сообщение
 
 

попробую объяснить.
Вы пишите что на строке

Set oWord = GetObject(, "Word.Application")

ругается на несоответствие типа т.е. получаемый getObject тип переменной не соответствует тому типу который вы указали при описании переменной.
Object универсальный тип способный принять различные типы объектов.

Вообще описание типа
Dim oWord As Word.Application
используются при раннем связывании, т.е. когда ссылка на библиотеку устанавливается в "References". и тогда вместо getObject или createObject используется синтаксис который указала ув. helena .
если же ссылки нет. то используется позднее связывание с описанием переменный как object и использованием getObject/createObject

У вас же была "каша". С одной стороны явное указание типа переменной, с другой использование позднего связывания.
Я предполагаю что у вас есть ссылка на библиотеку word, но это старая библиотека и типы которые в ней не соответсвуют тому word который у вас сейчас установлен хотя они возможно имеют одинаковые названия.
Похожая ситуация происходит с adodb.recordset и dao.recordset
если
указать

dim rst as adodb.recordset

и присваивать dao
set rst = currentdb.openrecordset(".......")

то тоже получите ошибку type mismatch
и наоборот если описать переменную как dao.recordset и попытаться в нее пихнуть adodb.recordset

надеюсь понятно объяснил

  Ответить  
 
 автор: Мишок   (01.03.2012 в 19:22)   личное сообщение
 
 

спасибо, да весьма доходчиво, думаю, что понял.
открытие шаблонов делалось дано и было взято с сайта microsoft и както-не беспокоило, что там "каша" , пока работало

  Ответить  
 
 автор: silich   (01.03.2012 в 12:25)   личное сообщение
 
 

Поисковик заплатит $1 млн. за взлом браузера Chrome

Суммарный призовой фонд, как сообщается, может составить до 1 млн. долларов. Эти деньги разделят на вознаграждения в размере 60, 40 и 20 тыс. долларов в зависимости от того, какой метод участники состязания будут использовать для обхода защиты. Призы в размере 60 тыс. долларов обещаны тем, кто сможет получить несанкционированный доступ к компьютеру под управлением операционной системы Windows 7 через «дыры» непосредственно в веб-обозревателе Chrome. Участники соревнования, предложившие способ взлома через уязвимости в Chrome и стороннем программном обеспечении, к примеру, в Windows 7, смогут рассчитывать на 40 тыс. долларов. Призы в 20 тыс. долларов достанутся тем, кто покажет возможность использования Chrome для эксплуатации «дыр» в стороннем ПО.

  Ответить  
 
 автор: gm2   (04.03.2012 в 22:15)   личное сообщение
 
 

а мне хром не нравится. хоть убейте лиса роднее

  Ответить  
 
 автор: час   (05.03.2012 в 02:09)   личное сообщение
 
 

у мну тож лиса. А хром и не юзал.......

  Ответить  
 
 автор: kot_k_k   (05.03.2012 в 10:28)   личное сообщение
 
 

а "баба Яга против" - мне хром до подобы, а мазила и проч. как-то не прижились

  Ответить  
 
 автор: час   (05.03.2012 в 10:50)   личное сообщение
 
 

надаже...

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList