VBA Tips - Embutindo um Documento Word no Excel - Embed Existing Word File to Spreadsheet using Excel VBA

|Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES

Contate desenvolvedores VBA

Perguntas, Questões e Esclarecimentos

O que é o fenômeno chamado BIG DATA?

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

Se você desejar incluir um outro tipo de documento, tal como um arquivo PDF, etc, você poderá utilizar o mesmo código abaixo:

ActiveSheet.OLEObjects.Add Filename:= "C:\Bernardes\A&A_Doce_CH01.pdf", Link:=False, DisplayAsIcon:= False

Caso deseje que ao invés do documento ser mostrado, apenas apareça um ícone, poderá mudar o parâmetro DisplayAsIcon para True.

Tags: VBA, Word, Excel, embed, PDF, DOC, XLS,