есть небольшой макрос по вставлению пары картинок - печать и подпись) на лист. Картинки вставлялись относительно листа. Доработал (вставил поиск нужного слова) чтобы картинки вставлялись относительно указателя. При переезде на новый комп доработка потерялась. Вставил поиск нужного слова снова, но привязка пропала. Почему - не могу понять. Помогите допилить макрос, чтобы якорь был возле найденного слова.
текст макроса (он расположен в системном Normal.dot) такой:
[vba]
Код
Sub ПодписьПечать_() ' ' это тупо скопированная с другого места часть макроса для поиска Selection.WholeStory Selection.Find.ClearFormatting With Selection.Find .Text = "Директор ООО " .Forward = True .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchWildcards = True End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=1
' А это собственно вставка картинки ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, FileName:="C:\Users\kpa\Pictures\подпись.png", _ LinkToFile:=False, SaveWithDocument:=True, Left:=200, Top:=15).WrapFormat.Type = wdWrapNone ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, FileName:="C:\Users\kpa\Pictures\печать.png", _ LinkToFile:=False, SaveWithDocument:=True, Left:=363, Top:=17).WrapFormat.Type = wdWrapNone End Sub
[/vba]
Тут нужно к сообщению добавить файл с макросом, но макрос в Нормале, а не в файле документа и с файлом не передаётся (?)... да и путь в макросе к картинке тоже нужно править.
p.s. попытка приложить оригинальный файл не увенчалась успехом 374 кб больше 100 допустимых. Сварганил примерно то же самое.
есть небольшой макрос по вставлению пары картинок - печать и подпись) на лист. Картинки вставлялись относительно листа. Доработал (вставил поиск нужного слова) чтобы картинки вставлялись относительно указателя. При переезде на новый комп доработка потерялась. Вставил поиск нужного слова снова, но привязка пропала. Почему - не могу понять. Помогите допилить макрос, чтобы якорь был возле найденного слова.
текст макроса (он расположен в системном Normal.dot) такой:
[vba]
Код
Sub ПодписьПечать_() ' ' это тупо скопированная с другого места часть макроса для поиска Selection.WholeStory Selection.Find.ClearFormatting With Selection.Find .Text = "Директор ООО " .Forward = True .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchWildcards = True End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=1
' А это собственно вставка картинки ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, FileName:="C:\Users\kpa\Pictures\подпись.png", _ LinkToFile:=False, SaveWithDocument:=True, Left:=200, Top:=15).WrapFormat.Type = wdWrapNone ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, FileName:="C:\Users\kpa\Pictures\печать.png", _ LinkToFile:=False, SaveWithDocument:=True, Left:=363, Top:=17).WrapFormat.Type = wdWrapNone End Sub
[/vba]
Тут нужно к сообщению добавить файл с макросом, но макрос в Нормале, а не в файле документа и с файлом не передаётся (?)... да и путь в макросе к картинке тоже нужно править.
p.s. попытка приложить оригинальный файл не увенчалась успехом 374 кб больше 100 допустимых. Сварганил примерно то же самое.карандаш
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
