Ver Mensaje Individual
  #1  
Antiguo 31-10-2016
shoulder shoulder is offline
Miembro
 
Registrado: abr 2008
Posts: 441
Reputación: 17
shoulder Va por buen camino
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 := ....;
Responder Con Cita