Microsoft Word - Dicas e truques passo a passo

Abrindo todos os documentos de uma pasta específica

Para tal procedimento, crie a seguinte macro:

Sub abredoc()
Dim arquivos as String
Dim nomearquivo as String
Dim nomepasta as String
nomepasta = InpuBox$("Entre com o diretório que possui os documentos","Projeto Aprenda em Casa", "c:\")
if right$(nomepasta,1)<>"\" then
    arquivos=nomepasta&"\*.doc"
Else
    arquivos=nomepasta&"*.doc"
End if
nomearquivo=dir(arquivos)
if nomearquivo<>"" then
    do until nomearquivo=""
        documents.open Filename:=nomepasta&nomearquivo
        documents.application.PrintOut
        nomearquivo=dir
        loop
End if

Principal | Cursos Gratuitos | Cursos Diversos | Dicas | Promoções | Mapa do Site | QUIZ |
| Classificados | Central Currículo | Fórum | Fale Conosco