documentos do Word estão abertos para qualquer um editar e apagar o conteúdo . Por esta razão , os desenvolvedores têm a tarefa de conversão de documentos do Word para PDF para a distribuição aberta. Os documentos do Word são convertidos em PDF , para que a empresa pode distribuir o PDF na web sem que seja copiado ou alterado. O código pode ser implementado usando o Basic (VB) linguagem Visual . Isso é benéfico para qualquer programador que precisa de converter documentos de um desktop ou aplicação web. Instruções
1
Abra o documento do Word . Você abre um documento do Word por inicializar a classe de aplicativo Word, que é uma variável que contém todas as propriedades e métodos para a manipulação de arquivo do Word. O código a seguir abre um arquivo chamado " myfile.doc " :
palavra Dim = new ApplicationClass ();
Dim word_file = caminho como objeto
Word.Document opened_doc = word.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) ;
A valores " nulos " são todos necessários , porque a função "Open" tem vários parâmetros necessários para abrir um documento. Definindo esses parâmetros para "null" abre o documento apenas com as propriedades padrão.
2
Copie o conteúdo do arquivo do Word para a área de transferência . Isso é feito usando o " WholeStory " e funções "copiar" . A função " WholeStory " é semelhante ao destacar manualmente todo o conteúdo do arquivo e "Copiar" transfere a parte destacada para a área de transferência . Os seguintes códigos de cópias do arquivo do Word clipe = Clipboard.GetDataObject
3
Criar a variável de objeto PDF e transferir o conteúdo do Word. O código a seguir transfere o conteúdo para PDF:
Dim mypdf As New mjwPDF
mypdf.PDFFileName = " word_transfer.pdf "
mypdf.PDFTextOut clip.ToString
4
Feche os documentos. Uma vez que o PDF é criado , tanto os documentos do Word e PDF estão fechadas para liberar os recursos de memória dedicados às variáveis :
Set word = nada
Definir opened_doc = nada
Definir mypdf = nada