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 ObjectDim oOLEWd As OLEObject ' OLE Word ObjectDim oWD As Document ' Word Document Object (Use Microsoft Word Reference)Set oWS = ActiveSheet' embed Word DocumentSet oOLEWd = oWS.OLEObjects.Add(Filename:="C:\VBADUD\Chapter 1.doc")Let oOLEWd.Name = "EmbeddedWordDoc"Let oOLEWd.Width = 400Let oOLEWd.Height = 400Let oOLEWd.Top = 30' Assign the OLE Object to Word ObjectSet oWD = oOLEWd.ObjectoWD.Paragraphs.AddoWD.Paragraphs(oWD.Paragraphs.Count).Range.InsertAfter "This is a sample embedded word document"oOLEWd.ActivateEnd 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,
Nenhum comentário:
Postar um comentário