edraw-max-horizontal
Guía De Usuario
¿Qué hay de nuevo?
PRUÉBALO GRATIS
COMPRAR AHORA

Método envolvente básico para automatizar Office

> Conocimientos de Edraw > Método envolvente básico para automatizar Office
Publicado por Edraw | 2023-12-05 16:20:36
El control de Office está diseñado para manejar problemas específicos que dificultan el uso de documentos ActiveX desde una ventana de anfitrión que no sea de nivel superior, y sirve como punto de partida para construir tu propio visor o editor de archivos de objetos incrustados como control ActiveX.

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#

Automatización de palabras

Desactiva el comando estándar de MS Word

Desactivar el botón de la cinta de Office

Mostrar/Ocultar la barra de menús de Office

Una navaja suiza para todas tus necesidades de diagramación

EdrawMax es la herramienta de diagramación más fácil de usar que sirve para todos tus propósitos. Proporciona un espacio de trabajo para crear más de 280 tipos de diagramas, incluyendo diagramas de flujo, diagramas de Ishikawa, diagramas UML, planos de piso y más. Acelera la comprensión e impulsa la innovación en múltiples plataformas. ¡Pruébala gratis ahora!