Раскройте конкретные заголовки в Word VBA - O365 ProPlus - PullRequest
Новая
       40

Раскройте конкретные заголовки в Word VBA - O365 ProPlus

0 голосов
/ 22 декабря 2018

У меня есть флажки для разных ответов на вопросы в документе.Исходя из того, что проверено, я хочу расширить более подробный раздел вопросов для пользователя.У меня правильное утверждение If для флажков, но я не могу понять, как позже расширить определенные заголовки в моем документе либо по тексту, либо по номеру раздела.

Я пробовал этот цикл, чтобы найти конкретный текст взаголовок и разверните его 

If ccCheckBox.Checked Then
Do Until Selection.Find.Found = False
    If Selection.Text Like "Licensing Discovery Questions" Then
    Selection.Find.Style = ActiveDocument.Styles("Heading 1")
    Selection.Find.Execute
        Else: Selection.Paragraphs(1).CollapsedState = False
    Selection.Find.Style = ActiveDocument.Styles("Heading 1")
    Selection.Find.Execute
    End If 
Loop
End if

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

If ccCheckBox.Checked Then
doc.Sections(2).Range.Font.Hidden = False
End if

Я попытался назначить текстЯ ищу строку и расширяю ее, но это тоже не сработало.

Я использую Microsoft Office 365 ProPlus

1 Ответ

0 голосов
/ 03 января 2019

Я нашел решение, переключившись на флажки Active X и используя следующий код для каждого флажка. 

Private Sub CheckBoxNameHere_Click()

If CheckBoxNameHere.Value = True Then
ActiveDocument.Sections(2).Range.Font.Hidden = False
Else: ActiveDocument.Sections(2).Range.Font.Hidden = True
End If

End Sub
...