Как я могу скрыть текст, который выделен в MS Word? - PullRequest
Новая
       45

Как я могу скрыть текст, который выделен в MS Word?

0 голосов
/ 30 октября 2019

Я хотел бы знать, если есть способ скрыть выделенный текст в документе в MS Word, у меня уже есть ответ на другой вопрос, где я спрашиваю, как скрыть текст между некоторыми символами ( Как я могускрыть символы в Microsoft Word с помощью VBA? )

Я уже пытался выяснить, как изменить код, который у меня был на моем последнем вопросе, и адаптировать его к моей реальной потребности, но я могу 'Врать VBA действительно сложно, когда я никогда не «узнал» об этом, и так как я работаю с веб-технологиями и как младший разработчик с полным стеком. 

Private Sub SelFind()


    Dim Rng As Range
    Dim Fnd As Boolean

G:
    Set Rng = ActiveDocument.Range


    With Rng.Find
        .ClearFormatting
        .MatchWildcards = True
        .Execute FindText:=";;*;;*;;", Forward:=True, _
                 Format:=False, Wrap:=wdFindStop
        Fnd = .Found
    End With

    If Fnd = True Then
        With Rng
            .MoveStart wdWord, 0
            .Select
            With .Font
                .Hidden = True
            End With
        End With
        GoTo G

    Else:

    MsgBox "All done"

    End If
End Sub

Затем я нашел пример, который находит все экземпляры. выделенного текста в активном документе и удаляет форматирование выделения, как действовать здесь: 

With rngTemp.Find 
 .ClearFormatting 
 .Highlight = True 
 With .Replacement 
 .ClearFormatting 
 .Highlight = False 
 End With 
 .Execute Replace:=wdReplaceAll, Forward:=True, FindText:="", _ 
 ReplaceWith:="", Format:=True 
End With

Вот пример того, что я хочу:

Это документ с выделенным текстом

https://imgur.com/a/yYFXcNQ

И это с выделенным текстом, скрытым, а не удаленным или помещенным (это код XML, поэтому необходимо после этого, поэтому мне нужно только скрыть его)

https://imgur.com/a/lqrRl4d

Большое спасибо, если вы могли бы дать мне несколько советов о том, что делать!

...