Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос подгрузки шаблона Building Blocks - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Макрос подгрузки шаблона Building Blocks (Прописание пути к шаблону Building Blocks)
Макрос подгрузки шаблона Building Blocks
Otter Дата: Пятница, 07.09.2018, 16:43 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
При открытии нового документа не подгружается шаблон Building Blocks.
Чтобы макросом вставлять из библиотеки Building Blocks автотекст приходится на лист сначала вручную сделать вставку из меню Вставка далее Експресс блоки хотя бы одного автотекста. Решил проблему подгружая библиотеку Building Blocks в надстройки.
Макрорекодером записал код
[vba]
Код
'Установка пути где сохраненки автотекста
    AddIns( _
        "C:\Users\Гость\AppData\Roaming\Microsoft\Document Building Blocks\1049\14\Building Blocks.dotx" _
        ).Installed = True
    With ActiveDocument
        .UpdateStylesOnOpen = False
        .AttachedTemplate = "Normal"
        .XMLSchemaReferences.AutomaticValidation = True
        .XMLSchemaReferences.AllowSaveAsXMLWithoutValidation = False
    End With
[/vba]

Думаю есть вариант решения лучше. Тем более путь к библиотеки у каждого конкретного пользователя свой ведь вместо Гость может быть Администратор или что то еще. Нужен универсальный макрос для любого пользователя.

Как макросом прописать путь к библиотеке Building Blocks, чтобы при открытии нового документа сразу работал макрос вставки автотекста.

Пример моего макроса для вставки реквизитов по договору.
[vba]
Код
        Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "AUTOTEXT  ""Реквизиты по договору"" ", PreserveFormatting:=False
[/vba]
 
Ответить
СообщениеПри открытии нового документа не подгружается шаблон Building Blocks.
Чтобы макросом вставлять из библиотеки Building Blocks автотекст приходится на лист сначала вручную сделать вставку из меню Вставка далее Експресс блоки хотя бы одного автотекста. Решил проблему подгружая библиотеку Building Blocks в надстройки.
Макрорекодером записал код
[vba]
Код
'Установка пути где сохраненки автотекста
    AddIns( _
        "C:\Users\Гость\AppData\Roaming\Microsoft\Document Building Blocks\1049\14\Building Blocks.dotx" _
        ).Installed = True
    With ActiveDocument
        .UpdateStylesOnOpen = False
        .AttachedTemplate = "Normal"
        .XMLSchemaReferences.AutomaticValidation = True
        .XMLSchemaReferences.AllowSaveAsXMLWithoutValidation = False
    End With
[/vba]

Думаю есть вариант решения лучше. Тем более путь к библиотеки у каждого конкретного пользователя свой ведь вместо Гость может быть Администратор или что то еще. Нужен универсальный макрос для любого пользователя.

Как макросом прописать путь к библиотеке Building Blocks, чтобы при открытии нового документа сразу работал макрос вставки автотекста.

Пример моего макроса для вставки реквизитов по договору.
[vba]
Код
        Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "AUTOTEXT  ""Реквизиты по договору"" ", PreserveFormatting:=False
[/vba]

Автор - Otter
Дата добавления - 07.09.2018 в 16:43
Otter Дата: Суббота, 15.09.2018, 15:40 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
Рассуждаю логически и иду по этому пути. Если шаблон Normal.dot открывается при любом открытии документов Word, тогда надо в ThisDocument для Normal.dot прописать в коде макроса при открытии:
[vba]
Код
Sub AutoOpen()
'Установка пути где сохраненки автотекста
  AddIns( _
        "C:\Users\Администратор\AppData\Roaming\Microsoft\Document Building Blocks\1049\14\Building Blocks.dotx" _
        ).Installed = True
End Sub
[/vba]Осталось дело за малым. чуть добавить к коду изменение вместо Администратор должно вставляться Имя пользователя данного компьютера. Тогда на любом компьютере будет подгружаться библиотека Building Blocks. Надеюсь, тогда все будет нормально.

Пожалуйста подправьте код, а то мозгов не хватает. yes


Сообщение отредактировал Otter - Суббота, 15.09.2018, 15:45
 
Ответить
СообщениеРассуждаю логически и иду по этому пути. Если шаблон Normal.dot открывается при любом открытии документов Word, тогда надо в ThisDocument для Normal.dot прописать в коде макроса при открытии:
[vba]
Код
Sub AutoOpen()
'Установка пути где сохраненки автотекста
  AddIns( _
        "C:\Users\Администратор\AppData\Roaming\Microsoft\Document Building Blocks\1049\14\Building Blocks.dotx" _
        ).Installed = True
End Sub
[/vba]Осталось дело за малым. чуть добавить к коду изменение вместо Администратор должно вставляться Имя пользователя данного компьютера. Тогда на любом компьютере будет подгружаться библиотека Building Blocks. Надеюсь, тогда все будет нормально.

Пожалуйста подправьте код, а то мозгов не хватает. yes

Автор - Otter
Дата добавления - 15.09.2018 в 15:40
_Boroda_ Дата: Суббота, 15.09.2018, 17:38 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Это нужно?
[vba]
Код
Sub tt()
     ImPol_= Environ("USERNAME")
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЭто нужно?
[vba]
Код
Sub tt()
     ImPol_= Environ("USERNAME")
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 15.09.2018 в 17:38
Otter Дата: Суббота, 15.09.2018, 19:25 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
У меня Win 7 думаю то, что нужно. Как теперь вместо Администратор в моем макросе прописать этот USERNAME
 
Ответить
СообщениеУ меня Win 7 думаю то, что нужно. Как теперь вместо Администратор в моем макросе прописать этот USERNAME

Автор - Otter
Дата добавления - 15.09.2018 в 19:25
Pelena Дата: Суббота, 15.09.2018, 19:27 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19167
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
[vba]
Код
"C:\Users\" & ImPol & "\AppData\Roaming\Microsoft\Document Building Blocks\1049\14\Building Blocks.dotx"
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение[vba]
Код
"C:\Users\" & ImPol & "\AppData\Roaming\Microsoft\Document Building Blocks\1049\14\Building Blocks.dotx"
[/vba]

Автор - Pelena
Дата добавления - 15.09.2018 в 19:27
Otter Дата: Суббота, 15.09.2018, 20:37 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
_Boroda_, Pelena, Большое спасибо за помощь.
Вот окончательный код, который замечательно работает:[vba]
Код
Sub AutoOpen()
'Установка пути где сохраненки автотекста
Dim ImPol_ As String
ImPol_ = Environ("USERNAME") 'ищем текущее имя пользователя ,чтобы вставить в путь к шаблону
AddIns( _
"C:\Users\" & ImPol_ & "\AppData\Roaming\Microsoft\Document Building Blocks\1049\14\Building Blocks.dotx" _
        ).Installed = True
End Sub
[/vba]
 
Ответить
Сообщение_Boroda_, Pelena, Большое спасибо за помощь.
Вот окончательный код, который замечательно работает:[vba]
Код
Sub AutoOpen()
'Установка пути где сохраненки автотекста
Dim ImPol_ As String
ImPol_ = Environ("USERNAME") 'ищем текущее имя пользователя ,чтобы вставить в путь к шаблону
AddIns( _
"C:\Users\" & ImPol_ & "\AppData\Roaming\Microsoft\Document Building Blocks\1049\14\Building Blocks.dotx" _
        ).Installed = True
End Sub
[/vba]

Автор - Otter
Дата добавления - 15.09.2018 в 20:37
_Boroda_ Дата: Суббота, 15.09.2018, 21:27 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
В данном случае можно без переменой - она ведь дальше нигде использоваться не будет
[vba]
Код
"C:\Users\" & Environ("USERNAME") & "\AppData\Roaming\Microsoft\Document Building Blocks\1049\14\Building Blocks.dotx"
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВ данном случае можно без переменой - она ведь дальше нигде использоваться не будет
[vba]
Код
"C:\Users\" & Environ("USERNAME") & "\AppData\Roaming\Microsoft\Document Building Blocks\1049\14\Building Blocks.dotx"
[/vba]

Автор - _Boroda_
Дата добавления - 15.09.2018 в 21:27
krosav4ig Дата: Воскресенье, 16.09.2018, 05:01 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 2346
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Так как-то проще будет [vba]
Код
application.templates.loadbuildingblocks
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеТак как-то проще будет [vba]
Код
application.templates.loadbuildingblocks
[/vba]

Автор - krosav4ig
Дата добавления - 16.09.2018 в 05:01
Otter Дата: Пятница, 21.09.2018, 10:14 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
_Boroda_ и krosav4ig, Спасибо Ваши варианты буду использовать. Проверил оба работают. yes


Сообщение отредактировал Otter - Пятница, 21.09.2018, 10:15
 
Ответить
Сообщение_Boroda_ и krosav4ig, Спасибо Ваши варианты буду использовать. Проверил оба работают. yes

Автор - Otter
Дата добавления - 21.09.2018 в 10:14
доктор7347 Дата: Вторник, 17.01.2023, 14:04 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - доктор7347
Дата добавления - 17.01.2023 в 14:04
Serge_007 Дата: Вторник, 17.01.2023, 15:21 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Что зачем где?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЧто зачем где?

Автор - Serge_007
Дата добавления - 17.01.2023 в 15:21
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Макрос подгрузки шаблона Building Blocks (Прописание пути к шаблону Building Blocks)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!