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');
PageNumber := 3;
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.