Delphi Word 2013 vs 2010
 

Hola hay algun cambio entre el word 2013 y 2010, con 2010 el Active x me funciona perfecto, con el word 2013 me viene un mensaje de "Seleccion protegida".

Sentencias Delphi 7 - Word 2010 (Funciona Bien, no con 2013).

Código Delphi [-]
 SoloLectura:=True;
 //***** Asignamos el archivo a abrir *****//
 Fichero := form1.edit14.text + form1.edit16.text + 'ejemplo.doc';
 Fichero := Path1;
 MiDocumento:=MiWord.Documents.Open(Fichero,EmptyParam,SoloLectura,
 EmptyParam,EmptyParam,EmptyParam,
 EmptyParam,EmptyParam,EmptyParam,
 EmptyParam,EmptyParam,EmptyParam,
 EmptyParam,EmptyParam,EmptyParam);
 miWord.ActiveWindow.WindowState := wdWindowStateMaximize;
     // Hace visible la ventana de Word
 MiWord.WindowState:=wdWindowStateMaximize;
 MiWord.ActiveWindow.WindowState:=wdWindowStateMaximize;
 miWord.Visible:=False;


Marcador:= 'Marcador1';

if MiDocumento.Bookmarks.Exists(Marcador) then
  MiDocumento.Bookmarks.Item(Marcador).Range.Text := ....;

office 2013
 

encontre que el word 2013 abre los archivos en modo protegido, como lo cancelo eso por codigo?.

Hola.

Yo abro los documentos de word a partir de la versión 2000 con lo siguiente y me funciona sin problemas:

Código Delphi [-]
var
  Cero: OleVariant;
  Word: _Application;
begin
  Cero := 0;
  Word := CoWordApplication.Create;
  Word.Documents.Open(NombreDoc, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
             EmptyParam, EmptyParam, EmptyParam, EmptyParam, Cero, EmptyParam,
             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

...

Un saludo

Office 2013
 

Hola primero gracias, una pregunta en tu ejemplo me estas pasando 16 items, y me da error tengo que poner 15, me cambia en algo?.

Gracias,

Yo tengo un inconveniente con delphi xe 5 donde utilizo unas para excel, las cuales funcionan perfectamente con delphi 2007 pero con xe5 no, el error es que el archivo me aparece con vista protegida siempre y en 2007 no, alguien aun me puede ayudar?

Office 2013
 

Hasta lo que yo lei es: Toda plantilla o archivo que fue generada en una version anterior al 2013 siempre la abre como vista protegida y ahi viene el inconveniente. El delphi 7 los componentes de la paleta server que trae son hasta la version 2000 y por eso no encuentro la opcion de llevar a nill la vista protegida, tengo que probar el ejemplo de mas arriba el tema que no se en que varia los 16 items a 15 items.

Hola.

Utilizo Delphi 2010 y la libreria "Microsoft Word 12.0 Object Library" importándola desde el IDE. Ahí en la funcion Open se necesitan 16 items.

Tambien aparecen las funciones Open2000 y Open2002.

Saludos.
Adolfo.