Views

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













Baixe o Calendário Compacto para 2014 em Excel



O que é o fenômeno chamado BIG DATA?



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,


Tags: , , , , , ,

Nenhum comentário:

Postar um comentário

Assinar: Postar comentários (Atom)
diHITT - Notícias