Método envolvente básico para automatizar Office
Edraw Office Viewer Component contiene un control ActiveX estándar que actúa como contenedor de documentos ActiveX para alojar MS Word, MS Excel y MS PowerPoint en un formulario personalizado o página Web. El control es ligero y flexible, y ofrece a los desarrolladores nuevas posibilidades para utilizar el programa Office en una solución personalizada.
Descargar el componente Visor de Office y ver proyectos de ejemplo
Boolean CreateNew(BSTR ProgID)
Crea un nuevo documento vacío.
ProgID: Word.Application, Excel.Application, PowerPoint.Application.
Ejemplo
El siguiente comando VB muestra cómo abrir Word.
Sub NewDoc_Example()
EDOffice.CreateNew "Word.Application"
End Sub
Boolean Open(BSTR FileName, [in, optional] VARIANT ProgID)
Abre el documento especificado.
FileName: El nombre del documento (necesita las rutas completas o url)
ProgID: Word.Application, Excel.Application, PowerPoint.Application.
Ejemplo
El siguiente comando VB muestra cómo abrir un archivo de Word.
Sub LoadFile_Example()
EDOffice.Open "c:\test.xlsx", "Excel.Application"
End Sub
Sub LoadURL_Example()
EDOffice.Open "http://www.ocxt.com/demo/samples/sample.xls", "Excel.Application"
End Sub
Boolean Save()
Guarda el documento especificado. Si el documento no se ha guardado antes, el cuadro de diálogo Guardar solicita al usuario un nombre de archivo.
boolean SaveAs([in] BSTR FilePath, [in, optional] VARIANT FileFormat)
Guarda el documento en la ubicación especificada con el formato especificado.
FilePath: El nombre para el documento. Si ya existe un documento con el nombre de archivo especificado, el documento se sobrescribe sin que se pregunte antes al usuario.
FileFormat: El formato en el que se guarda el documento. Puede ser cualquier constante WdSaveFormat.
enum WdSaveFormat
{
wdFormatDocument = 0,
wdFormatTemplate = 1,
wdFormatText = 2,
wdFormatTextLineBreaks = 3,
wdFormatDOSText = 4,
wdFormatDOSTextLineBreaks = 5,
wdFormatRTF = 6,
wdFormatUnicodeText = 7,
wdFormatEncodedText = 7,
wdFormatHTML = 8,
wdFormatWebArchive = 9,
wdFormatFilteredHTML = 10,
wdFormatXML = 11
}WdSaveFormat;
enum XlFileFormat
{
xlAddIn = 18,
xlCSV = 6,
xlCSVMac = 22,
xlCSVMSDOS = 24,
xlCSVWindows = 23,
xlDBF2 = 7,
xlDBF3 = 8,
xlDBF4 = 11,
xlDIF = 9,
xlExcel2 = 16,
xlExcel2FarEast = 27,
xlExcel3 = 29,
xlExcel4 = 33,
xlExcel5 = 39,
xlExcel7 = 39,
xlExcel9795 = 43,
xlExcel4Workbook = 35,
xlIntlAddIn = 26,
xlIntlMacro = 25,
xlWorkbookNormal = -4143,
xlSYLK = 2,
xlTemplate = 17,
xlCurrentPlatformText = -4158,
xlTextMac = 19,
xlTextMSDOS = 21,
xlTextPrinter = 36,
xlTextWindows = 20,
xlWJ2WD1 = 14,
xlWK1 = 5,
xlWK1ALL = 31,
xlWK1FMT = 30,
xlWK3 = 15,
xlWK4 = 38,
xlWK3FM3 = 32,
xlWKS = 4,
xlWorks2FarEast = 28,
xlWQ1 = 34,
xlWJ3 = 40,
xlWJ3FJ3 = 41,
xlUnicodeText = 42,
xlHtml = 44
}XlFileFormat;
enum PpSaveAsFileType
{
ppSaveAsPresentation = 1,
ppSaveAsPowerPoint7 = 2,
ppSaveAsPowerPoint4 = 3,
ppSaveAsPowerPoint3 = 4,
ppSaveAsTemplate = 5,
ppSaveAsRTF = 6,
ppSaveAsShow = 7,
ppSaveAsAddIn = 8,
ppSaveAsPowerPoint4FarEast = 10,
ppSaveAsDefault = 11,
ppSaveAsHTML = 12,
ppSaveAsHTMLv3 = 13,
ppSaveAsHTMLDual = 14,
ppSaveAsMetaFile = 15,
ppSaveAsGIF = 16,
ppSaveAsJPG = 17,
ppSaveAsPNG = 18,
ppSaveAsBMP = 19,
ppSaveAsOpenXMLPresentation = 24,
ppSaveAsOpenXMLPresentationMacroEnabled = 25,
ppSaveAsOpenXMLShow = 28,
ppSaveAsOpenXMLShowMacroEnabled = 29,
ppSaveAsOpenXMLTemplate = 26,
ppSaveAsOpenXMLTemplateMacroEnabled = 27,
}PpSaveAsFileType;
Ejemplo
La siguiente secuencia de comandos de VB muestra cómo guardar como documento de Word.
Sub SaveAs_Example()
EDOffice.SaveAs "c:\test.xls"
End Sub
Boolean CloseDoc([in, optional] VARIANT SaveChanges)
Cierra el documento o documentos especificados.
SaveChanges: Especifica la acción de guardar el documento.
Boolean IsDirty()
Devuelve Verdadero/Falso si el archivo ha sido alterado o necesita ser guardado.
Boolean IsOpened()
Devuelve True/Fase si se ha abierto el archivo.
Boolean OpenFileDialog([in, optional] VARIANT Filter)
Llama al diálogo de archivo estándar para abrir el documento de Office.
Filtro: La cadena de filtro del archivo.
String.Example
El siguiente comando VB muestra cómo abrir solo el diálogo de archivo docx.
Sub OpenFileDialog_Example()
EDOffice.OpenFileDialog "Microsoft Excel Files(*.xl;*.xlsx;*.xlsb;*.xlam;*.xltx;*.xltm;*.xls;*.xlt;*.xla;*.xlm;*.xlw)|*.xl;*.xlsx;*.xlsb;*.xlam;*.xltx;*.xltm;*.xls;*.xlt;*.xla;*.xlm;*.xlw||"
End Sub
Boolean SaveFileDialog([in, optional] VARIANT Filter)
Llama al diálogo de archivo estándar para guardar el documento de Office.
Filter: La cadena de filtro del archivo.
Boolean PrintDialog()
Abre el diálogo de impresión.
Boolean PrintOut(WdPrintOutRange PrintRange, [in, optional] VARIANT FromPage, [in, optional] VARIANT ToPage, [in, optional] VARIANT Pages, [in, optional] VARIANT Copies)
Imprime todo o parte del documento especificado con la configuración.
PrintRange: Objeto opcional. El rango de páginas. Puede ser cualquier constante WdPrintOutRange.
FromPage: Objeto opcional. El número de página de inicio cuando Rango se establece en wdPrintFromTo.
ToPage: Objeto opcional. El número de página final cuando el Rango se establece en wdPrintFromTo.
Pages: Objeto opcional. Los números de página y los rangos de páginas a imprimir, separados por comas. Por ejemplo, "2, 6-10" imprime la página 2 y las páginas 6 a 10.
Copies: Objeto opcional. El número de copias a imprimir.
enum WdPrintOutRange
{
wdPrintAllDocument = 0,
wdPrintSelection = 1,
wdPrintCurrentPage = 2,
wdPrintFromTo = 3,
wdPrintRangeOfPages = 4
};
Ejemplo
El siguiente comando VB muestra cómo imprimir las páginas 3-6 en un documento.
Sub PrintOut_Example()
EDOffice.PrintOut 3, 3, 6
End Sub
Boolean PrintPreview()
Inicia una vista previa de impresión.
Boolean PrintPreviewExit()
Sale de la vista previa de impresión actual.
Te puede interesar
Automatización de Office con C#
Desactiva el comando estándar de MS Word
