Array de Bytes para Word

Question

Olá!

Preciso criar um arquivo do Word a partir de um array de bytes. Até ai já consegui fazer o problema é que o arquivo está vindo sem os estilos que foram aplicados ao texto.

 

Alguém sabe como posso criar um arquivo contendo todos os estilos nele?

 

Obrigado!

 

Answer 1

Qual codificação usou? ASCII, UTF-16, UTF-8, UTF-7...

O texto, ao ser importado, vem apenas como texto cru?

Qual é o padrão utilizado em sua fonte? Qual formato é, XML ou TXT?

Dê mais detalhes.

---

http://www.ambienteoffice.com.br

Answer 2

Olá Raphael,

se você já conseguiu criar o arquivo do Word, então provavelmente neste momento você tenha um doc com parágrafos não formatados.

Para aplicar os estilos, você pode percorrer os parágrafos (programaticamente) e definir os estilos. Exemplo:

Dim oDoc As Word.Document
Dim prg As Word.Paragraph

Set oDoc = ThisDocument

For Each prg In oDoc.Paragraphs
  prg.Style = "Heading 2"
Next prg

---

Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br - Access FAQ: www.accessfaq.com.br

Answer 3

Entendi errado a pergunta do Raphael.

@Luiz: essa rotina que você sugeriu não é a mesma coisa que selecionar todo texto e aplicar um determinado estilo?

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 4

Olá Felipe,

 

sim, é a mesma, mas provavelmente ele terá alguma regra para aplicar parágrafo a parágrafo, então sugeri o Loop para que ele possa complementar com algum IF da regra.

---

Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br - Access FAQ: www.accessfaq.com.br