господа такой вопрос  
долго мучился но все же написал с вашей помощью то что хотел    
привез из дому на работу и вот проблема  
множество функций моей програмки пересали работать    
у меня офис хр на работе 2003  
переставил на хр но все равно тоже самое  
установил сервис пак множество ошибок исчезло но все же некоторые остались  
основная ошибка ругается на формы  
может подскажет кто где взять качественный сервис пак что-бы все работало???  
кроме microsoft.com

господа вопрос в чем сделано то что я прикрепил  
если с помощью эксель то где скачать такие приблуды???

уважаемые знатоки  
у меня есть макрос в ворд  
Sub Макрос4()  
   Selection.Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, _  
       NestedTables:=True  
   Selection.Find.ClearFormatting  
   Selection.Find.Replacement.ClearFormatting  
   With Selection.Find  
       .Text = "_"  
       .Replacement.Text = " "  
       .Forward = True  
       .Wrap = wdFindAsk  
       .Format = False  
       .MatchCase = False  
       .MatchWholeWord = False  
       .MatchWildcards = False  
       .MatchSoundsLike = False  
       .MatchAllWordForms = False  
   End With  
   Selection.Find.Execute Replace:=wdReplaceAll  
End Sub  
 
пытаюсь запустить его из ексель макросом  
 
Dim wbApp As Object  
Set wbApp = GetObject(, "Word.Application")  
wbApp.Run "Макрос4"  
 
а он мне в ответ  
run time error 5941  
запрашиваемый номер семейства не существует  
хотя макросы типа  
Sub Макрос5()  
MsgBox "Hello, Word! : )"  
End Sub  
работают нормально не ругаясь  
может что то подставить надо???

Добрый день уважаемые знактоки  
у меня есть в ворд один макрос  
Sub Макрос4()  
   Selection.Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, _  
       NestedTables:=True  
   Selection.Find.ClearFormatting  
   Selection.Find.Replacement.ClearFormatting  
   With Selection.Find  
       .Text = "_"  
       .Replacement.Text = " "  
       .Forward = True  
       .Wrap = wdFindAsk  
       .Format = False  
       .MatchCase = False  
       .MatchWholeWord = False  
       .MatchWildcards = False  
       .MatchSoundsLike = False  
       .MatchAllWordForms = False  
   End With  
   Selection.Find.Execute Replace:=wdReplaceAll  
 
пытаюсь запустить его из ексель  
Dim wbApp As Object  
Set wbApp = GetObject(, "Word.Application")  
wbApp.Run "Макрос4"  
 
а мне в ответ    
End Subrun time error 5941  
запрашиваемый номер семейства не существует  
 
хотя на макросы попроще совсем не ругается  
может что-то добавить нужно????

Уважаемые форумчане экселеводы от всей души поздравляю вас с Новым 2009 годом  
всем желаю карьерного роста и творческих успехов.

господа замучился  
каким то образом расположение окон в vba увел от стандартных настроек  
т.е. сейчас открываются хаотично  
как вернуть на место?

извеняюсь если было но найти не смог  
возможна ли сделать чтобы отображаемые данные в комбо бокс  
сортировались независимо от данных из исходного диапазона  
т.е. допустим у мня на листе 1,5,8,3, так и должно остаться  
а в комбо соответстно 1,3,5,8 и т.п.

http://www.planetaexcel.ru/forum.php?thread_id=7507  
re - могу выложить их на рапиду.  
Marchuk выложи пожалуйста и ссылочку в студию

уважаемые знатоки тут столкнулся  
в userform создаю combobox с выбором даты, 'задаю формат дата  
If Me.ComboBox1.Value <> "" Then  
Me.ComboBox1.Value = Format(Me.ComboBox1, "dd/mm/yyyy")  
End If  
далее все это уходит на лист  
Sheets("ведомость").Select  
   Range("l3").Select  
      ActiveCell.Value = UserForm1.ComboBox1.Value  
но тут начинается проблема строка l3 перестает участвововать в дальнейшем процессе  
до тех пор пока ее не кликнешь вручную    
но если убрать    
If Me.ComboBox1.Value <> "" Then  
Me.ComboBox1.Value = Format(Me.ComboBox1, "dd/mm/yyyy")  
End If    
то сразу все приходит в норму значит ошибка зарыта где-то в тексте формул  
помогите чайнику

господа вопрос такой  
создал в форме комбобокс выбирающий из списка дат определенную дату  
но отображение идет как число  
что можно сделать?  
как формат даты задать?

уважаемые знатоки экселя  
внимание вопрос  
можно ли из вба эксель кодом запустить макрос открытого документа ворд???

как из листа телеграмма  
перенести диапазон сформированый ToggleButton.1  
на новый лист чтобы ничего другого кроме сформированой телеграммы не отображалось  
лучше конечно если есть возможность что-бы дополнительной кнопкой данный диапазон    
копировался в новый WORD документ  
можно макросами или на VBA  
помогите пожалуйста

Добрый день.  
Проблема в следующем.  
Нужно написать макрос, чтобы в определенной ячейке прописывалось значение из буфера памяти, далее в другой - текущие время и дата (например 12ноя. 12:34).  
Заранее спасибо.

Добрый день.  
Как посмотреть исходный текст post_36698.  
Хотел попробовать программку (только вместо номеров квитанций - разные фамилии).  
Заранее спасибо

Добрый день.  
Просьба помочь в проблеме.  
Как в макросе сделать, чтобы в конкретной ячейке записывалось значение из буфера памяти, далее в следующей ячейке прописывались текущая дата и время.    
Заранее спасибо.