Exemplo de macro para imprimir todos os documentos do Word encontrados em uma pasta

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 306346
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Para uma versão deste artigo do Microsoft Word 2000, consulte 201993.
Para uma versão deste artigo do Microsoft Word 98, consulte 183867.
Para uma versão deste artigo do Microsoft Word 97, consulte 180513.
Sumário
Este artigo contém um exemplo Microsoft Visual Basic para aplicativos rotina (macro) que pode ser usado para imprimir todos os documentos são encontrados na pasta especificada do Microsoft Word.
Mais Informações
Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades.
A macro de exemplo a seguir imprime todos os documentos do Word encontrados na pasta especificada.
Sub ListDocNamesInFolder()   Dim sMyDir As String   Dim sDocName As String   ' The path to obtain the files.   sMyDir = "C:\My Documents\"   sDocName = Dir(sMyDir & "*.DOC")   While sDocName <> ""      ' Print the file.      Application.PrintOut FileName: = sMyDir & sDocName      ' Get next file name.      sDocName = Dir()   WendEnd Sub				
Referências
Para obter mais informações sobre como usar o código de exemplo neste artigo, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
290140Como executar o código de exemplo para programas do Office XP a partir de artigos da Base de dados de Conhecimento
Para obter mais informações sobre como obter ajuda com o Visual Basic for Applications, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
305326Lista de recursos de programação para o Visual Basic for Applications
VB vbe inf VBA localizar arquivos pastas WD2002 WD2003

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 306346 - Última Revisão: 12/06/2015 04:58:01 - Revisão: 4.2

Microsoft Office Word 2003, Microsoft Word 2002 Standard Edition

  • kbnosurvey kbarchive kbmt kbdtacode kbhowto kbmacroexample kbprogramming KB306346 KbMtpt
Comentários