Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sota

Esconder/mostrar texto com checkbox e bookmark (WORD)

Mensagens Recomendadas

Sota

Viva,

Tenho o seguinte código para esconder/mostrar partes do texto que queira. No entanto, após esconder um texto e passar para o seguinte, isto é, a uma outra checkbox, a primeira acção vai incidir sobre o texto referente a checkbox anterior anterior.Alguem sabe o que está a causar isto?

Private Sub CheckBox1_click()
Dim Doc As Document
Dim rng As Range
Set Doc = ActiveDocument
Set rng = Doc.Bookmarks("texto1").Range
Select Case CheckBox1.Value
 Case True
		 With rng.Font
			 .Hidden = False
		 End With
 Case False
	 With rng.Font
		 .Hidden = True
	 End With
End Select
End Sub
Private Sub texto4_click()
Dim orange4 As Range
Set orange4 = Activedocument.Bookmarks("texto4").Range
Select Case texto4.Value
Case False
With orange4.Font
 .Hidden = True
End With
Case True
With orange4.Font
 .Hidden = False
End With
End Select
End Sub
Private Sub texto5_Change()
Dim orange5 As Range
Set orange5 = Activedocument.Bookmarks("texto5").Range
Select Case texto5.Value
Case False
With orange5.Font
 .Hidden = True
End With
Case True
With orange5.Font
 .Hidden = False
End With
End Select
End Sub
Private Sub texto6_Change()
Dim orange6 As Range
Set orange6 = Activedocument.Bookmarks("texto6").Range
Select Case texto6.Value
Case False
With orange6.Font
 .Hidden = True
End With
Case True
With orange6.Font
 .Hidden = False
End With
End Select
End Sub

O meu objectivo e é ter um documento que tenha numa determinada secção tenha varia hipoteses de escolha e que só apareçam as que eu pretendo. Se tiverem outra sugestão para fazer isto força.

Obrigado

Editado por Sota

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.