shoulder
31-10-2016, 16:40:50
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 := ....;
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 := ....;