Delphi Word 2013 vs 2010

[shoulder]

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).

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 := ....;

[shoulder]

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

[adebonis]

Hola.

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


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

[shoulder]

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,

[sefonk]

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?

[shoulder]

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.

[adebonis]

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.