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