Макрос Word: вставить в конец документа строчку с информацией о документе

@ball · Регистрация: 29.12.2013

Author24 — интернет-сервис помощи студентам

Нужен макрос, вставляющий в конец документа строчку с информацией о документе (путь, имя, дата открытия). Используемые объекты, коллекции, свойства, методы, функции: Paragraphs, Add, Range, Path, Name.
Продолжение: вычисление и сохранение в переменных документа контрольной суммы, формирующейся по тексту документа. По запросу пользователя – запрос о сравнении контрольной суммы с сохраненной.

@Sasha_Smirnov · 02.07.2014, 14:38

Задача ясна. Но тут не отдел заказов. Развивайте тему.

@ball · 02.07.2014, 15:11 **[ТС]**

Вставить текст через

Visual Basic

Sub InsertAfterMethod()
  Dim MyText As String
  Dim MyRange As Object
  Set MyRange = ActiveDocument.Range
  MyText = "<Replace this with your text>"
  ' Selection Example:
  Selection.InsertAfter (MyText)
  ' Range Example:
  ' (Inserts text at the current position of the insertion point.)
  MyRange.Collapse
  MyRange.InsertAfter (MyText)
End Sub

Дату через

Visual Basic

Sub InsertDateTimeMethod()
   Dim MyRange As Object
   Set MyRange = Selection.Range
   ' Selection Example:
   Selection.InsertDateTime DateTimeFormat:="MMMM dd, yyyy", _
   InsertAsField:=True
   ' Range Example:
   MyRange.InsertDateTime DateTimeFormat:="MMM dd, yyyy", _
   InsertAsField:=True
End Sub

Можно так?

@Sasha_Smirnov · 02.07.2014, 20:49

Можно, и не только дату:

@Sasha_Smirnov · 03.07.2014, 02:43

Первую половину (а может, даже и вторую) можно сделать вставкой соответствующих полей:

Visual Basic

Sub InsertWhatYouNeed()
    With Selection
       .EndKey wdStory          'переход в конец документа
       .TypeParagraph           'ввод нового абзаца
       .Fields.Add .Range, Type:=wdFieldFileName    'имя
       .TypeParagraph           'ввод нового абзаца
       .Fields.Add .Range, Type:=wdFieldDate        'дата
       .TypeParagraph           'ввод нового абзаца
       .Fields.Add .Range, Type:=wdFieldTime        'время
    End With
ActiveDocument.Fields.Update    'обновление полей
'Здесь мы ввели поля Word с данными об имени и текущей дате.
End Sub

А для помещения всей этой лабуды внизу страницы Вождь предложил метод Repaginate: Добавление подписи в конце страницы.

@ball · 03.07.2014, 18:49 **[ТС]**

Всем спасибо, вроде получилось! Только вот этот пункт не удается реализовать:по запросу пользователя – запрос о сравнении контрольной суммы с сохраненной.

Visual Basic

Sub InsertWhatYouNeed()
    With Selection
       .EndKey wdStory
       .TypeParagraph
       .Fields.Add .Range, Type:=wdFieldFileName
       .TypeParagraph
       .Fields.Add .Range, Type:=wdFieldDate
       .TypeParagraph
       .Fields.Add .Range, Type:=wdFieldTime
        .TypeParagraph
       Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "FILESIZE  \k ", PreserveFormatting:=True
    End With
ActiveDocument.Fields.Update

@Sasha_Smirnov · 04.07.2014, 02:08

П́оля для контрольной суммы* не знаю; а то, что мы уже получили, можно сделать короче:

Visual Basic

Sub FieldInsertion()
    Selection.EndKey wdStory          'переход в конец документа
    
    With Selection
       .TypeText vbCr & "Путь к файлу и его имя: "
       
       .Fields.Add .Range, Text:="FileName \p"          'путь к файлу и имя
       
       .TypeText vbCr & "Время и дата создания: "
       
       .Fields.Add .Range, Text:="createdate \@ H:nn "  'время создания
       .Fields.Add .Range, Text:="createdate \@ "", dddd D MMMM yyyy""" 'дата создания
    End With
End Sub

Попробуйте на закуску диалоговые окна Сведения (другой перевод: Свойства) и Статистика:

Visual Basic

Sub Макрос1()
    Dialogs(wdDialogFileSummaryInfo).Display
'    Stop
    Dialogs(wdDialogDocumentStatistics).Show
End Sub

_______________
* поищите эту сумму в свойствах документа (Word 2003) — на форуме было, но пока не нашёл

@ball 0 / 0 / 0 Регистрация: 29.12.2013 Сообщений: 5
		1
	Макрос Word: вставить в конец документа строчку с информацией о документе 02.07.2014, 14:07. Показов 21190. Ответов 6 Метки нет (Все метки) Нужен макрос, вставляющий в конец документа строчку с информацией о документе (путь, имя, дата открытия). Используемые объекты, коллекции, свойства, методы, функции: Paragraphs, Add, Range, Path, Name. Продолжение: вычисление и сохранение в переменных документа контрольной суммы, формирующейся по тексту документа. По запросу пользователя – запрос о сравнении контрольной суммы с сохраненной. 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	02.07.2014, 14:38	2
	Задача ясна. Но тут не отдел заказов. Развивайте тему. 1

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	02.07.2014, 20:49	4
	Можно, и не только дату: Миниатюры 0

	04.07.2014, 02:08

Опции темы