Eliminar páginas de un Word con Delphi

[Neftali [Germán.Estévez]]

No se si todavía funcionará, pero yo en su día y para que sirviera de guía, lo que hacía era grabar una macro en Word/Excel con los pasos que quería hacer y luego revisar el código de la Macro.
Eso da una pista de por dónde van los métodos o de cómo hacerlo.

[pgranados]

Respuesta de ChatGPT:

Si deseas eliminar una página específica, como la tercera página, en un documento de Word utilizando Delphi, necesitas identificar la ubicación de la página y luego eliminarla. Las páginas en Word no son objetos directos que se puedan eliminar de manera sencilla, por lo que una forma común de hacerlo es mediante la selección y eliminación del contenido de la página. Aquí tienes un ejemplo de cómo hacerlo:

Código Delphi [-]
uses
  ComObj, WordXP;

var
  WordApp: _Application;
  WordDoc: _Document;
  PageNumber: Integer;
begin
  WordApp := CreateOleObject('Word.Application') as _Application;
  WordApp.Visible := True;

  WordDoc := WordApp.Documents.Open('C:\Ruta\Al\Documento.docx');

  // Define el número de la página que deseas eliminar (por ejemplo, la tercera página).
  PageNumber := 3;

  // Selecciona el contenido de la página que deseas eliminar.
  WordApp.Selection.GoTo(wdGoToPage, wdGoToAbsolute, PageNumber);
  WordApp.Selection.EndKey(wdStory, wdMove);
  WordApp.Selection.Delete;

  WordDoc.Save;
  WordDoc.Close;
  WordApp.Quit;

  WordDoc := nil;
  WordApp := nil;
end.

Asegúrate de ajustar el valor de PageNumber al número de página que deseas eliminar. Este código se encargará de seleccionar el contenido de la página específica y eliminarlo, lo que efectivamente eliminará la página. Después de realizar la operación, el documento se guarda y se cierra.