Como limitar / alterar opções de estilo de tabela disponíveis na guia Design

Question

Estou configurando um formato que será usado por muitas pessoas em diferentes departamentos. Eu não quero que cada um escolha um estilo de tabela diferente dos 140 ou mais estilos internos. Eu quero que eles escolham uma das minhas duas opções. Como posso eliminar os estilos internos de aparecerem na lista suspensa Table Tools > Design ?

    

Answer 1

Uma solução simples seria excluir os estilos na pasta em que eles estão localizados.

Não há como bloquear estilos incorporados ao meu conhecimento.

    

Answer 2

Ao tentar alcançar o mesmo resultado, acidentalmente encontrei uma solução que funciona bem (depois de perder horas com esse desafio e concluir que é impossível esconder esses aborrecimentos).

Esta macro tem duas funções - a primeira desativa a visibilidade de estilos all , incluindo estilos de tabela; o segundo permite visibilidade apenas para os estilos listados. É comentado, mas observe que a propriedade Visibility parece funcionar completamente de forma contraintuitiva nesse contexto, ou seja, em / true = não visible e off / false = visible. Vá a figura.

Você também verá que minha lista de estilos a serem exibidos inclui estilos internos e personalizados. É aqui que você adiciona os estilos de tabela.

Infelizmente, eu sou um desses copiadores wannabe de copiar / adaptar / colar, então eu provavelmente não posso oferecer mais assistência se isso não for feito para você. (Mas minhas próprias tentativas de criar um estilo de tabela padrão exatamente como eu queria para o meu modelo foram completamente esmagadas pelo Word 2010 - então, se você tiver sucesso, eu estaria interessado em aprender como você fez isso!).

espero que isso ajude

neil

De qualquer forma ... com o código:

Sub RehideStyles()
'
'
'
Dim oSty As Style
Dim oArray As Variant
Dim n As Long


'Start deselecting all - NOTE: Visibility = true means NOT VISIBLE!
With ActiveDocument
For Each oSty In .Styles
.Styles(oSty.NameLocal).Visibility = True
Next oSty
'Display the desired styles - include the names in oArray
oArray = Array(wdStyleBodyText, wdStyleHeading1, wdStyleHeading2, wdStyleHeading3, wdStyleHeading4, wdStyleHeading5, wdStyleHeading6, wdStyleHeading7, wdStyleHeading8, wdStyleHeading9, "Table Text", "List Bullet", "List Number", "WP")
For n = LBound(oArray) To UBound(oArray)
.Styles(oArray(n)).Visibility = False
Next n
End With

End Sub