Спасибо огромное!

То, что нужно!

Всегда будет слово "Проблема".
Спасибо!

Можно ли внести небольшие коррективы?
Столбец с номером проблемы не будет.

Большое спасибо!

Коллеги, добрый день

Прошу помощи.
Имеется плоская таблица.
Пытаюсь формулами подсчитать к каждому узлу  количество связанных с ним элементов.
Если тип имеет определенное название, то нужно вычислить количество связанных с ним элементов до следующего появления такого же типа.
Файл во вложении, желтым выделены числа как должно быть.
Заранее спасибо.

Коллеги. добрый день.

Вопрос в следующем.
Был создан сертификат для подписывания кода не через стандартную программу "SELFCERT", а через сервер сертификации.
При установке сертификата в систему 2010 офис видит его и успешно подписывает, 2013 не хочет видеть сертификат.
В чем может быть проблема?

Заранее спасибо.

Коллеги, добрый день.

Пытаюсь средствами VBA подключиться к FTP  серверу и залить файл.
Проблема возникает на этапе изменения текущего каталога.
Через FileZilla  получается зайти в каталог только если он настроен по умолчанию и установлено шифрование - FTP через TLS явный.
Пример во вложении.
Прошу помочь разобраться.

Спасибо!

День Добрый.  
Выяснилось, что код валится на шаге открытия шаблона, расположенного на сетевом диске. Причем офис 2007 офис нормально открывает эти шаблоны.    
2010 ругается на ошибку "не удается открыть банк макросов".  
 
 For j = 1 To  Application.FileDialog(msoFileDialogFilePicker).SelectedItems.Count  
 link = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(j)  
Dim oWord As Word.Application  
 Dim oDoc As Word.Document  
 Set oWord = CreateObject("Word.Application")  
 Set oDoc = oWord.Documents.Add(link)   'в этом месте валится  
Next j  
Если заменить oWord.Documents.Add(link) на oWord.Documents.Open(link), то макрос заработает и в 2010,но мне нужно обрабатывать эти файлы как шаблоны.  
Если шаблоны лежат на локально машине, то тоже никаких ошибок не наблюдается  
Может быть подскажете?

Спасибо.  
Те ссылки, которые просматривал не помогали.  
Про Microsoft Office - "Microsoft Graph" как-то забыл.  
Попробую посмотреть

Добрый вечер, уважаемые форумчане.  
Возникла проблема с офисом 2010.  
При обработке макросом шаблона, который лежит на удаленном сервере выскакивает эта ошибка "Не удается открыть банк макросов".    
Когда файл лежит на локальном диске все ок.    
Что может быть причной? Права доступа? Дистрибутив?  
Буду благодарен любой помощи.  
Заранее спасибо.

Всем спасибо, разобрался.  
 
Function SearchInRange(oDoc, oRng, obook, l As Object) As Boolean  
Dim klop As Object, Z As Boolean  
Set klop = l  
'Задаем цикл и потом передаем параметры в функцию DoReplace  
 With oRng.Find  
       .Text = "[[]?*[]]"
       .Forward = True  
       .Wrap = wdFindContinue  
       .Format = False  
       .MatchWildcards = True  
       .Execute  
End With  
Do While oRng.Find.Found = True  
'oRng.Find.Execute  
  If Not oRng = "" Then Codes = oRng  
  'If Not oRng = "" Then Codes = Mid(oRng, 2, Len(oRng) - 2)  
Set sRow = obook.Sheets(1).Cells.Find(What:=Codes, After:=ActiveCell, LookIn:=xlFormulas, LookAt _  
       :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _  
       False, SearchFormat:=False)  
If Not sRow Is Nothing Then  
       sRow = sRow.Row  
       Values = obook.Sheets(1).Range("B" & sRow).Value  
       If Len(Values) > 240 Then Values = Left(Values, 240)  
       Call DoReplace(klop:=klop, strFind:=oRng, strReplace:=Values)  
Else:  
   oRng.HighlightColorIndex = wdRed ' Заливаем проблемные коды красным  
  If Not oRng = "" Then Codes = Mid(oRng, 2, Len(oRng) - 2)  
   Values = Chr(34) & Codes & Chr(34)  
   Call DoReplace(klop:=klop, strFind:=oRng, strReplace:=Values)  
End If  
oRng.Find.Text = "[[]?*[]]"
oRng.Find.Forward = True  
oRng.Find.Wrap = wdFindContinue  
oRng.Find.Format = False  
oRng.Find.MatchWildcards = True  
oRng.Find.Execute  
Loop  
End Function  
В функции, исправления выделил жирным шрифтом.  
Больше никаких манипуляций не делал, заработало как часы.  
 
Тему можно закрывать

EducatedFool, спасибо за предложение, но мне к сожалению не подойдет.

Судя по всему в функции  Function SearchInRange(oDoc, oRng, obook, l As Object) при замене  кодов на текст, меняется переменная oRng и L ( диапазон заменяемого текста) первый раз на сам код [], а потом вообще "".
Как это можно побороть?  
После передачи переменной в функции я ее не меняю, но ее значение почему-то меняется в коде.  
Заранее спасибо

Добрый день, уважаемые форумчане.  
Опишу ситуацию.  
1) Есть файл выгрузки из Sap он сохраняется на рабочем столе под именем."print_template.xls"  
2) Написан макрос в эксель"Печать форм.xls", который открывает файл шаблона документа в ворд "Юр _форм _автозамена.doc" находит в нем специальные коды в скобочках к примеру [spec001] и меняет их на значение из файла выгрузки "print_template.xls".
Все работает замечательно, кроме значений в колонтитулах.  
Почему-то после повтороного прохождения колонтитула (поиска и замены) переменная очищается, и поэтому не все коды в скобочках заменяются.  
В самом документе тот же код работает замечательно.  
Подскажите пожалуйста в чем может быть проблема?

Спасибо за совет, но здесь к сожалению не подойдет. Заранее не известно какие коды будут в документе.  
Решил по другому.  
Из файла с кодами идет перебор их по документу, при нахождении замена.

Добрый вечер, уважаемые форумчане.  
Возник вопрос в следующем.  
Есть шаблон документа в формате Excel с определенными кодами в скобочках [1tr04].
Написан макрос который проходит по книге, находит код и в случае нахождения в другой книге заменяет его на значение.  
Макрос отрабатывает замечательно, но если в одной ячейке указано: Договор [1tr04], то он заменяет весь текст ячейки на найденное значение.
Помогите пожалуйста разобраться.  
Макрос в книге с файлом.  
Заранее спасибо.

Юрий М, спасибо за ссылку.  
Для Word файлов я как раз как по этой ссылке написано и реализовал. Но для excel у меня не получилось таким образом реализовать.  
В интернете, что находил в основном это для Word колонтитулов.  
А для Excel  максимум находил примеры с проставлением текущей даты или прохождением по всем колонтитулам и.т.п.

К сожалению Ваш макрос, берет значение из Колонтитула и подставлет его на лист.  
В колонтитуле помимо кода может быть еще какая-нибудь информация, к примеру Продавец: [1tr04]. Я пытаюсь найти код в скобочках, к примеру [1tr04] и заменить его на значение к примеру "Иванов Иван Иванович."

Получается, что найти текст в колонтитуле Excel невозомжно?

Добрый день, уважаемые форумчане.  
Столкнулся с такой проблемой в Excel.  
Пытаюсь найти в колонтитулах определенный текст и заменить его.  
Пока получается только перезаписать текст в колонтитуле.  
Подскажите пожалуйста, есть ли возможность осуществить поиск определенного текста в колонтитуле?  
Заранее спасибо.  
36 кб

В блоке Else решил таким способом меняем скобки на кавычки.  
Else:  
myRange.HighlightColorIndex = wdRed  
codes = Mid(myRange, 2, Len(myRange) - 2)  
With oDoc.Content.Find  
       .Text = myRange  
       .Replacement.Text = Chr(34) & codes & Chr(34)  
       .Forward = True  
       .Format = False  
       .Execute Replace:=wdReplaceAll, Forward:=True  
   End With

Я тоже не могу найти)  
Скажу, пусть внимательней проверяют коды)

Понял, большое спасибо, сам чуть чуть не доразобрался до этого

Если не трудно, посмотрите пожалуйста, прикладываю файл  
crm_ui_frame(1) - должен лежать на рабочем столе  
Книга с макросом и Юр _форм _автозамена - должны лежать в одной папке.

Hugo, я немного непарвильно написал.  
При текущем коде, если находит отсутствующий код, то Exit sub c его выделением красным.  
Так как кодов будет много в шаблоне и он может быть не последний, то сейчас получается при нахождении отсутствующего кода выкидывает из макроса.  
Если же убрать эту строчку, то произойдет зацикливание. Else. Из-за ненайденных кодов.  
Спасибо за быстрый ответ

Данные-проверка данных-тип данных список.  
В Источнике указать диапазон ячеек для списка или ввести данные через ;  
(Арбуз;Дыня)

Добрый день, уважаемые форумчане.  
Вопрос в следующем.  
Есть код, который ищет в Word циклом Do while loop все значения в скобках к примеру [01tr01] и заменяет их из файла Эксель на значения. При использовании цикла Do while loop если ошибся в значении к примеру [01tr00] и Excel не находит этого значения, то получется бесконечный цикл.
Подскажите пожалуйста как можно по другому реализовать цикл, или обработать ненайденные значения.  
Заранее спасибо.  
 
 
Sub Find2()  
Dim oFile, wsSh As Worksheet, Openbook, Book  
Set wsh = CreateObject("WScript.Shell")  
docs = wsh.SpecialFolders("Desktop") 'получение адреса рабочего стола  
CurrentPath = ThisWorkbook.Path ' получение адреса текущей папки  
Form = "Юр _форм _автозамена.doc"  
Set obook = Workbooks.Open(docs & "\" & "crm_ui_frame(1)") ' имя книги по умолчанию  
        Dim oWord As Word.Application  
           Dim oDoc As Word.Document  
           Set oWord = CreateObject("Word.Application")  
           Set oDoc = oWord.Documents.Add(CurrentPath & "\" & Form) 'запускаем форму  
           oWord.Visible = True  
           oWord.Tasks("Microsoft Word").Activate  
           'oWord.Application.ScreenUpdating = False  
          ' thisdocument.Activate  
Set myRange = oDoc.Content  
    myRange.Find.ClearFormatting  
   With myRange.Find  
       .Text = "[[]?*[]]"
       .Forward = True  
       .Wrap = wdFindContinue  
       .Format = False  
       .MatchWildcards = True  
       .Execute  
           Do While .Found = True ' проблемный участок  
               'MsgBox myRange  
               .Execute  
               Codes = Mid(myRange, 2, Len(myRange) - 2)  
    Set sRow = Cells.Find(What:=Codes, After:=ActiveCell, LookIn:=xlFormulas, LookAt _  
       :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _  
       False, SearchFormat:=False)  
If Not sRow Is Nothing Then  
       sRow = sRow.Row  
       Values = obook.Sheets(1).Range("B" & sRow).Value  
       oDoc.Content.Find.ClearFormatting  
  With oDoc.Content.Find  
       .Text = myRange  
       .Replacement.Text = Values  
       .Forward = True  
       .Format = False  
       .Execute Replace:=wdReplaceAll, Forward:=True  
   End With  
Else:  
myRange.HighlightColorIndex = wdRed  
Exit Sub  
End If  
 Loop  
End With  
End Sub

Хорошо, спасибо, так и реализую

Теперь стало понятно, спасибо.  
А я наивный верил, что Excel ведет поиск не перебирая листов.

Понятно, спасибо. Просто стандартный поиск это делает, думал, что и на VBA есть аналог. Макрорекодер к сожалению синтаксис полный не берет.

Добрый день, уважаемые форумчане.  
Есть ли возможность найти адрес ячейки и по возможности номер листа без цикла?  
Заранее спасибо.