Как изменить стили заголовка на основе начальных символов с макросом в слове? - PullRequest
Новая
       12

Как изменить стили заголовка на основе начальных символов с макросом в слове?

0 голосов
/ 03 июля 2018

Так что я понятия не имею, как программировать с использованием VBA, но я медленно учусь. Моя работа требует, чтобы я отформатировал экспорт каталога в word, чтобы можно было найти его в оглавлении для удобного поиска ... к следующей неделе. Необходимо выполнить более 1500 страниц форматирования, и это слишком много, чтобы пытаться сделать вручную. К счастью, команда дерева позволила легко увидеть уровни и еще много чего.

Так есть ли способ записи макроса, чтобы сделать это для меня автоматически? В основном мне нужно искать весь документ и

если text = "---", то [изменить на стиль заголовка 4]

вот что я имею после поиска в интернете: 

Sub headingStylizer()
'
' headingStylizer Macro
' Change Headings from a tree dos export
'
   If Text = "            ---" Then Selection.Style = 
ActiveDocument.Styles("Heading 4")
End Sub

Заранее благодарим за любую помощь, которую вы можете оказать !!

1 Ответ

0 голосов
/ 03 июля 2018

Если я вас правильно понимаю, что-то вроде этого должно сработать, просто выполнив глобальный поиск и замену 

Sub FixTextStyle()    
    Dim head4 As Style

    Set head4 = ActiveDocument.Styles("Heading 4")

    With ActiveDocument.Content.Find
        .ClearFormatting
        With .Replacement
            .ClearFormatting
            .Style = head4
        End With
        .Execute FindText:="            ---", ReplaceWith:="            ---", _
            Format:=True, Replace:=wdReplaceAll
    End With
End Sub
...