Se você está desenvolvendo um aplicativo de gerenciamento de documentos em VB.Net , você pode encontrar um método de conversão de documentos do Microsoft Word para arquivos PDF por meio de automação muito útil . Se você precisa de seu aplicativo para converter os documentos para o formato PDF para evitar alterações ou edições , então a codificação de uma classe ou módulo para fazer isso vai economizar usuários do seu aplicativo muito tempo quando são necessárias conversões. Instruções
1
Crie uma classe aplicativo Word que abre um documento . Crie a classe variável para abrir um documento chamado " myfilename.doc " ou algo similar. Insira o seguinte código em um módulo em VB.Net :
palavra Dim = new ApplicationClass ();
Dim word_file = caminho como objeto
Word.Document opened_doc = palavra . Documents.Open ( word_file ref , ref nulo , nulo ref , ref nulo , nulo ref , ref nulo , nulo ref , ref nulo , nulo ref , ref nulo , nulo ref , null ref) ;
Certifique-se os valores " nulos " estão presentes no código acima para abrir o documento usando os parâmetros padrão, a menos que você precisa para abrir o documento em uma visão específica ou a necessidade de permitir que outras características especiais palavra sobre a abertura do documento .
2
Crie uma função que copia o conteúdo do documento do Word para a área de transferência do Windows. Para fazer isso , use o comando " WholeStory " VBA para simular a tarefa de pressionar as teclas "A" , ao mesmo tempo as teclas "Ctrl " e para destacar e selecionar todos os objetos e texto no documento. Use o comando "Copiar" para inserir os objetos destacados na área de transferência do Windows. Para fazer isso , insira o seguinte código no clipe = Clipboard.GetDataObject
3
Código uma variável de objeto para criar um novo conteúdo PDF e transferência do documento do Word . Cole o seguinte código para o novo objeto :
Dim mypdf As New mjwPDF
mypdf.PDFFileName = " word_transfer.pdf "
mypdf.PDFTextOut clip.ToString
4
Insira o código para fechar tanto o Word e documentos PDF , colando o seguinte código no final da função :
Set word = nada
Definir opened_doc = nada
Definir mypdf = nada