Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.06.2011, 11:17   #1
Polotenchik
Форумчанин
 
Аватар для Polotenchik
 
Регистрация: 04.12.2008
Сообщений: 260
По умолчанию Путь до папки AppData в зависимости от Юзера

Как в макросе указать путь до C:\Users\Пользователь\AppData\Roami ng\Microsoft\Шаблоны\image.png

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

Пробовал прописать:
%LocalAppData%\Microsoft\Шаблоны\im age.png
однако, ругается.

Код:
Selection.InlineShapes.AddPicture FileName:= _
        "C:\Users\Пользователь\AppData\Roaming\Microsoft\Шаблоны\image.png", LinkToFile _
        :=False, SaveWithDocument:=True
Я бы изменил мир, но Бог не дает исходники...
Polotenchik вне форума Ответить с цитированием
Старый 12.06.2011, 11:29   #2
Ципихович Эндрю
Старожил
 
Регистрация: 24.01.2011
Сообщений: 3,034
По умолчанию

1
есть такая папка C:\Users ??
2
а в ней есть папка
Пользователь ??
Ципихович Эндрю вне форума Ответить с цитированием
Старый 12.06.2011, 11:47   #3
Polotenchik
Форумчанин
 
Аватар для Polotenchik
 
Регистрация: 04.12.2008
Сообщений: 260
По умолчанию

Цитата:
C:\Users
Есть
Цитата:
а в ней есть папка
Пользователь ??
Нет. В ней есть папка с именем юзера ПК. Например
C:\Users\Вася\AppData\Roaming\Micro soft\Шаблоны\image.png
C:\Users\Петя\AppData\Roaming\Micro soft\Шаблоны\image.png

Вопрос в том, что бы он сам определил имя.

%LocalAppData%\Microsoft\Шаблоны\im age.png
%LocalAppData% сразу переходит по пути:
C:\Users\Пользователь\AppData\Roami ng
Я бы изменил мир, но Бог не дает исходники...
Polotenchik вне форума Ответить с цитированием
Старый 12.06.2011, 12:38   #4
Ципихович Эндрю
Старожил
 
Регистрация: 24.01.2011
Сообщений: 3,034
По умолчанию

>Вопрос в том, что бы он сам определил имя
дофига делов
ИнпутБокс - в него вводите Пользователя. ОК??
или форму с имеющимися Пользователями для выбора, ОК??
Ципихович Эндрю вне форума Ответить с цитированием
Старый 13.06.2011, 02:38   #5
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Код:
Environ("AppData")
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Старый 13.06.2011, 02:40   #6
Aent
Форумчанин
 
Аватар для Aent
 
Регистрация: 17.07.2009
Сообщений: 519
По умолчанию

Стандартная функция VBA Environ("APPDATA") вернёт значение переменной окружения APPDATA, которая
содержит используемое по умолчанию размещение данных приложений.
В Windows XP это:
C:\Documents and Settings\%UserName%\Application Data.
В Windows 7:
C:\Users\%UserName%\AppData\Roaming
где %UserName% будет именем текущего пользователя.

Последний раз редактировалось Aent; 13.06.2011 в 02:48.
Aent вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно изменить путь с папки Temp на другой. Zeron Общие вопросы Delphi 19 28.05.2011 17:40
Как узнать путь до папки mt10forex Помощь студентам 5 23.07.2010 20:31
в ShellComboBox - реализовать адресную строку, полный путь до папки, как в обычном окошке Windows seobot Общие вопросы Delphi 3 27.04.2010 23:27
Как программно получить путь до папки Application Data для пользователя LocalService? bzzz Win Api 3 23.09.2009 09:30
Путь к AppData -=L.Morgan=- Общие вопросы Delphi 2 04.05.2009 21:12