Título da Dica: Verificar se o Word esta com algum documento aberto
Postada em 20/4/2004 por Rochª Verificar se existe algum documento no word se existir mostra o nome Mostra o nome do documento do word ativo e verifica se ex
Dim word1 As Object Set word1 = CreateObject("word.application") word1.Visible = True word1.Documents.Open "c:\documento.doc" If word1.Documents.Count > 0 Then MsgBox (word1.ActiveDocument.Name) Else MsgBox ("Não tem documento aberto") End If
