Путь к файлу при печати?....

[sonata]

У меня много-много различных файлов,которые находятся в разных папках.
Могу ли я, когда печатаю файл, сделать вывод пути к нему в колонтитул файла?

[RayShade]

Меню View, Header and Footer, на панели появится кнопка Insert Autotext. Жмешь ее и выбираешь filename.

[sonata]

Спасибо за ответ.
Но там вставляется только имя файла, а путь к нему можно или это сложно?

[RayShade]

Второй. Пункт. После. Filename. Называется. Filename and Path.

[sonata]

Я иду в Вид-Колонтитулы-Создать Верхний(Нижний)Колонтитул, там у меня только &[Файл] (имя файла) А пути нет...
Или я не там смотрю?

[RayShade]

Там кнопка. В русской версии нажывается наверное Автотекст.

Из нее выпадает меню. В нем и смотри

[sonata]

Увы, меня судьба обделила, там только есть:

&[Страница]
&[Страниц]
&[Дата]
&[Время]
&[Файл]
&[Лист]


И все.....

[RayShade]

Хм.. А Word какой версии?

[GSerg]

В моём 97 есть! Там кнопка "Вставить автотекст", выпадает список, в котором есть и Имя файла, и Полное имя файла. Если у тебя этого нет, тады так:

Вид Колонтитулы (начинаем редактирование оных...)
Вставка Поле (появляется выбор полей...) Сведения о документе (раздел такой из левого списка) FileName (имя поля из правого списка) Параметры... (кнопка такая под списками...) Ключи (такая вкладка, их там две) \p (дважды кликнуть оный) ОК ОК

[sonata]

GSerg, спасибо за столь подробный ответ.Но, к сожалению, у меня Офис2000.
А там решили, что эта возможность, видимо, была лишней...

[alibek]

У меня такое смутное чувство, что sonata говорит о Excel
sonata, начиная с 2000 точно есть кнопка "Путь и имя файла" (левее "Файл" и "Лист"), но попробуй все-же вписать вручную "&[Путь]&[Файл]".
И еще. Мне не трудно подсказать, да и приятно помочь девушке, но нельзя же так, по малейшему поводу обращаться в форум. Да и такие вопросы скорее не из серии "VBA", а серии "Excel: User Guide".

[sonata]

А как определить тот рубеж, где у нас VBA, а где User Guide?
Просто я видела такой модуль, специально созданный для добавления пути к файлу,он так и называется:"Add path to header/footer"
Но он у меня не заработал.
Американский модуль, но разбираться в нем..Сами понимаете, нет у меня такой кваификации...
А тут умные люди, говорят, что в этой ситуации можно обойтись без VBA.....
Правда все равно у меня проставляется только имя файла, но я с этим уже смирилась.
А работая в бухгалтерии, я поняла, что чем больше задаешь вопросов-тем лучше.Да и вообще мне приятно общение с вами.Это, что-то вроде отдушины.Так что не сердитесь.И потом, если раздражает, то можно было бы и не отвечать...Но, все равно спасибо.

[GSerg]

Засунь в модуль!

Код: Выделить всё

Option Explicit

'Enum не поддерживается в VBA 97!
Public Const xlApplyToLeftFooter As Integer = 0
Public Const xlApplyToCenterFooter As Integer = 1
Public Const xlApplyToRightFooter As Integer = 2

Public Sub ApplyFooterFilePath(WhichFooter As Integer, Optional ToSingleSheet As Excel.Worksheet = Nothing)
  Dim a As Worksheet
 
  If ToSingleSheet Is Nothing Then
    For Each a In Worksheets
      Select Case WhichFooter
      Case xlApplyToLeftFooter
        a.PageSetup.LeftFooter = ActiveWorkbook.FullName
      Case xlApplyToCenterFooter
        a.PageSetup.CenterFooter = ActiveWorkbook.FullName
      Case xlApplyToRightFooter
        a.PageSetup.RightFooter = ActiveWorkbook.FullName
      End Select
    Next
  Else
    With ToSingleSheet.PageSetup
      Select Case WhichFooter
      Case xlApplyToLeftFooter
        .LeftFooter = ActiveWorkbook.FullName
      Case xlApplyToCenterFooter
        .CenterFooter = ActiveWorkbook.FullName
      Case xlApplyToRightFooter
        .RightFooter = ActiveWorkbook.FullName
      End Select
    End With
  End If
End Sub

Sub TestSub()
  ApplyFooterFilePath xlApplyToCenterFooter, Worksheets(1)
End Sub

[sonata]

Спасибо огромное!!!!Все работает!!!
Жаль только, нет возможности отключать/включать данную функцию, ведь это было бы очень удобно.
Так как на некоторых документах(бланках) лучше было бы отключить.
А вообще у меня просто нет слов благодарности!
Можно я Вам пошлю красивую картинку,правда рисовала ее не я.

[GSerg]

В смысле - отключать? Функция - она ж не событие, когда вызовешь, тогда и заработает...
Или же имеется в виду убрать путь файла из колонтитула, если он уже там? Тады так:

Код: Выделить всё

Public Sub RemoveFooterFilePath(WhichFooter As Integer, Optional ToSingleSheet As Excel.Worksheet = Nothing)

  If ToSingleSheet Is Nothing Then
    For Each a In Worksheets
      Select Case WhichFooter
      Case xlApplyToLeftFooter
        a.PageSetup.LeftFooter = Application.Replace(a.PageSetup.LeftFooter, ActiveWorkbook.FullName, "")
      Case xlApplyToCenterFooter
        a.PageSetup.CenterFooter = Application.Replace(a.PageSetup.CenterFooter, ActiveWorkbook.FullName, "")
      Case xlApplyToRightFooter
        a.PageSetup.RightFooter = Application.Replace(a.PageSetup.RightFooter, ActiveWorkbook.FullName, "")
      End Select
    Next
  Else
    With ToSingleSheet.PageSetup
      Select Case WhichFooter
      Case xlApplyToLeftFooter
        .LeftFooter = Application.Replace(.LeftFooter, ActiveWorkbook.FullName, "")
      Case xlApplyToCenterFooter
        .CenterFooter = Application.Replace(.CenterFooter, ActiveWorkbook.FullName, "")
      Case xlApplyToRightFooter
        .RightFooter = Application.Replace(.RightFooter, ActiveWorkbook.FullName, "")
      End Select
    End With
  End If
End Sub