VBA Word - Formatando o TextoWith Selection.Font' the Latin text font name and size... .Name = "Verdana" .Size = 12' Bold and Italic are the Font Style... .Bold = False .Italic = False .Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic' The following are the font effects... .StrikeThrough = False .DoubleStrikeThrough = False .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = True .AllCaps = False .Color = wdColorAutomatic .Engrave = False .Superscript = False .Subscript = False' Character spacing... .Spacing = -1 .Scaling = 100 .Position = -2 .Kerning = 12' One of the available Annimation effects. ' Can be one of the following...' wdAnimationBlinkingBackground' wdAnimationLasVegasLights' wdAnimationMarchingBlackAnts' wdAnimationMarchingRedAnts' wdAnimationShimmer' wdAnimationSparkleText' wdAnimationSparkleText .Animation = wdAnimationNoneThe font, size, and style of Bidirectional fonts. .SizeBi = 12 .NameBi = "Tahoma" .BoldBi = False .ItalicBi = False End WithEnvie seus comentarios e sugestoes e compartilhe este artigo!brazilsalesforceeffectiveness@gmail.com Exponha os segredos do sistema WMI API com o VBAA API WMI ( Windows Management Instrumentation ) expoe uma grande variedade de informacoes dos PCs, incluindo aqueles computadores e servidores que estao remotos. Expor tais tecnicas pretende automatizar o WMI como um meio de automatizar as tarefas administrativas nos computadores remotos. Segue uma lista curta de coisas que o WMI pode fazer.Inicia um processo em um computador remoto.Agenda um processo para ser executado em horarios especificos em dias especificos.Reinicia um computador remotamente.Consulta os logs de eventos do Windows em um computador local ou remoto.Obtem uma lista de computadores locais ou remotos de:AplicacoesComponentes de HardwareDiscos, Capacidades e Espaco LivreUsuarios locais e de dominioImpressoras e Configuracoes de ImpressoraConfiguracoes de redeCom o VBA, o Excel pode acessar o WMI e se tornar uma ferramenta poderosa para tecnicos de PC, administradores de rede e auditores de sistemaQuer um vislumbre?Segue uma pequena rotina que lista a configuracao do adaptador de rede do seu PC. Carregue-o num modulo. Execute-o. Agora considere que olhar para o adaptador de rede WMI podera fazer muito mais do que apenas isso (e isso sim, e assustador).Sub WMI() Dim oWMISrvEx As Object 'SWbemServicesEx Dim oWMIObjSet As Object 'SWbemServicesObjectSet Dim oWMIObjEx As Object 'SWbemObjectEx Dim oWMIProp As Object 'SWbemProperty Dim sWQL As String 'WQL Statement Dim n As Long 'Generic Counter sWQL = "Select * From Win32_NetworkAdapterConfiguration" Set oWMISrvEx = GetObject("winmgmts:root/CIMV2") Set oWMIObjSet = oWMISrvEx.ExecQuery(sWQL) For Each oWMIObjEx In oWMIObjSet 'Put a STOP here then View > Locals Window to see all properties If Not IsNull(oWMIObjEx.IPAddress) Then Debug.Print "IP:"; oWMIObjEx.IPAddress(0) Debug.Print "Host name:"; oWMIObjEx.DNSHostName For Each oWMIProp In oWMIObjEx.Properties_ If IsArray(oWMIProp.Value) Then For n = LBound(oWMIProp.Value) To UBound(oWMIProp.Value) Debug.Print oWMIProp.Name & "(" & n & ")", oWMIProp.Value(n) Next Else Debug.Print oWMIProp.Name, oWMIProp.Value End If Next End If Next End SubQuer ver mais?Aqui esta uma planilha que facilita a exploracao de varias centenas de classes contendo informacoes sobre a CPU, unidades de disco, memoria, sistema operacional, aplicativos, usuarios e muito, muito mais. E pode consultar PCs e tambem servidores remotos, supondo que tenha as credenciais: WMI Query.xlsm.Usos do WMI Query.xlsmInventario de todos os PCs em uma rede incluindo todo o hardware e software usado:Win32_SystemEnclosure - Fabricante do PC