✔ Programação GLOBAL®: VBA Tips - Embutindo um Documento Word no Excel - Embed Existing Word File to Spreadsheet using Excel VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba 3 Calendários Customizáveis de 2013 em Excel

Usando Gauges em Dashboards no MS Access

Podemos inserir um documento MS Word numa planilha MS Excel através de um código VBA.

Talvez, quando lê muitos dos tópicos neste Blog, num primeiro momento talvez não consiga entender a praticidade deste. Perceba que as postagens feitas aqui atendem a pelo menos 2 aspectos básicos:

1º - Ampliar a sua visão quanto as funcionalidades possíveis com a suíte MS Office, aproveitando-se da minha experiência de décadas de desenvolvimento com o VBA.

2º - Transmitir-lhe uma perspectiva de como construir um código a partir de uma necessidade pouco comum.

Sub Insert_File_To_sheet()

Dim oWS As Worksheet ' Worksheet Object

Dim oOLEWd As OLEObject ' OLE Word Object

Dim oWD As Document ' Word Document Object (Use Microsoft Word Reference)

Set oWS = ActiveSheet

' embed Word Document

Set oOLEWd = oWS.OLEObjects.Add(Filename:="C:\VBADUD\Chapter 1.doc")

Let oOLEWd.Name = "EmbeddedWordDoc"

Let oOLEWd.Width = 400

Let oOLEWd.Height = 400

Let oOLEWd.Top = 30

' Assign the OLE Object to Word Object

Set oWD = oOLEWd.Object

oWD.Paragraphs.Add

oWD.Paragraphs(oWD.Paragraphs.Count).Range.InsertAfter "This is a sample embedded word document"

oOLEWd.Activate

End Sub