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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.12.2016, 13:48   #1
Parvate
 
Регистрация: 07.12.2016
Сообщений: 4
По умолчанию Скопировать название открытого файла

Подскажите, пожалуйста, как программными средствами скопировать название открытого вордовского файла в Office 2007? Пробовала записывать макрос при помощи "кнопки записи" - не берет ...
Parvate вне форума Ответить с цитированием
Старый 07.12.2016, 14:29   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

https://msdn.microsoft.com/ru-ru/lib.../ff837737.aspx
https://msdn.microsoft.com/en-us/lib.../ff821867.aspx
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 07.12.2016, 18:10   #3
Parvate
 
Регистрация: 07.12.2016
Сообщений: 4
По умолчанию Спасибо огромное, но скопировать не получается :(

Ворд генерирует кнопку с именем файла, а скопировать оттуда название не получается А мне нужно именно вкопировать в документ имя файла. Мне как раз нужно из ворда скопировать имя открытого файла и вклеить в сам файл...
Parvate вне форума Ответить с цитированием
Старый 07.12.2016, 19:47   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Цитата:
Сообщение от Parvate Посмотреть сообщение
Ворд генерирует кнопку с именем файла
Вот в Вас он генерирует, а в нас, кто бы хотел чем-то помочь, нет. Поделитесь чудо-файлом, а?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 08.12.2016, 00:42   #5
Parvate
 
Регистрация: 07.12.2016
Сообщений: 4
По умолчанию Ой, кажется, разобралась!!! Огромное спасибо!!! Вот файл

Вы навели меня на мысль Огромное спасибо! Вот файл - кажется, все получилось! Там должен быть один "рукописный" макрос под названием Copyline.
Если еще нужен макрос, который генерирует кнопку - пришлю и его.
Вложения
Тип файла: zip Primer-makrosa.zip (49.8 Кб, 16 просмотров)
Parvate вне форума Ответить с цитированием
Старый 08.12.2016, 15:35   #6
Борис_Р
Пользователь
 
Регистрация: 18.02.2013
Сообщений: 26
По умолчанию

Пробуйте
Код:
MsgBox ActiveDocument.Name
MsgBox ActiveDocument.FullName
Борис_Р вне форума Ответить с цитированием
Старый 08.12.2016, 17:02   #7
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Цитата:
Сообщение от Parvate Посмотреть сообщение
мне нужно именно вкопировать в документ имя файла
Вставка - Экспресс-блоки - Поле - Filename - OK.
И никакого программирования! :D
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 14.12.2016, 10:11   #8
Parvate
 
Регистрация: 07.12.2016
Сообщений: 4
По умолчанию

Огромнейшее спасибо!!! Вот - век живи, век учись . Заодно посмотрела, куда в новых версиях Ворда запихали такие ранее доступные функции, как Автотекст... Так раньше все было просто, и так все стало неоправданно сложно... Ну да ладно, зато теперь знаю, где что искать . Что касается "без программирования" - дело в том, что задача с вклеиванием имени файла - это только часть макроса, который мне нужен для оптимизации работы. Поэтому без программирования не обойтись . Кстати же, если кому-то нужно, то код, записанный при помощи "умной кнопки", выглядит так:

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"FILENAME ", PreserveFormatting:=True
Parvate вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
с чего начать решение? Считать из файла название объемных геометрических фигур,вывести название,количество граней,рисунок (Delphi) леночка93 Помощь студентам 6 16.05.2013 13:14
Как вставить имя открытого файла в xls avolon Microsoft Office Excel 6 12.05.2011 07:59
Определение размера открытого файла Max3001 Общие вопросы Delphi 9 21.04.2011 15:31
Создание файла на основании открытого lecko Microsoft Office Excel 20 17.03.2011 12:53
как по макросу скопировать название имени фала в ячейку?? kievlyanin Microsoft Office Excel 8 16.04.2009 21:16