Как быстро вставлять название рисункам по определенному шаблону (стилю, форматированию)

Question

как сделать так, чтобы я мог быстро вставлять название рисункам и чтобы название было по такому шаблону: Рис. 1. <название для рисунка, сам вписываю, когда вставляю название>. Причем Рис. 1. должен быть полужирным

Я пробовал создать новую подпись в окне вставки названия для рисунка. Но это не дает возможности определить стили для подписи. Также пробовал изменить код через alt+f9 но непонятно как вообще это работает и как применять его ко всем названиям рисунков с подобной подписью

Answer 1

Макрос писал не я, но я запромтил и протестировал результат. Опубликован по настойчивой просьбе автора темы. Что делает? Вставляет в текст, в выбранном пользователем месте подпись к рисунку: Рис.1 Подпись к рисунку. Автоматически увеличивает счётчик вставленных в документ подписей к рисункам для каждой следующей подписи.

Sub Макрос1()
  Dim captionText As String
  Dim figCount As Integer
  Dim rng As Range
  Dim boldText As String

  ' Подсчёт уже вставленных подписей
  figCount = 0
  Dim p As Paragraph
  For Each p In ActiveDocument.Paragraphs
    If Left(p.Range.Text, 4) = "Рис." Then
      figCount = figCount + 1
    End If
  Next p

  ' Запрос названия
  captionText = InputBox("Введите название рисунка:", "Подпись к рисунку")
  If captionText = "" Then Exit Sub

  ' Формируем жирный текст
  boldText = "Рис." & figCount + 1

  ' Вставка подписи
  Set rng = Selection.Range
  rng.InsertAfter boldText & " " & captionText
  rng.SetRange rng.Start, rng.Start + Len(boldText)
  rng.Font.Bold = True
End Sub

БЛОГ НА HUSL

Как быстро вставлять название рисункам по определенному шаблону (стилю, форматированию)

Ответы (1 шт):