Word Dokument In Excel einfügen

[p80286]

Zitat von Nimmersatt:

Macro-Code

Code:

ActiveSheet.OLEObjects.Add(Filename:="C:\Planung.docx", Link:=False, DisplayAsIcon:=False).Select;

Delphi-Code

Code:

excel.ActiveSheet.OLEObjects.Add('Planung.docx');

Da gibt es ja kleine Unterschiede!
Hast Du das mal überprüft?

Gruß
K-H

[Chemiker]

Hallo Nimmersatt,

sollte mit Excel 2007 so funktionieren.

Delphi-Quellcode:

procedure TForm1.btWordDokumentEinbettenClick(Sender: TObject);
var
  DateiName: TFileName;
  olevEXCELoffen: OLEVariant;
begin
  try
    olevEXCELoffen := CreateOleObject('Excel.Application');
  except
    ShowMessage('Excel konnte nicht gestartet werden !');
    Exit;
  end;
  olevEXCELoffen.Visible:= TRUE;
  if ExcelOpenDialog1.Execute then
  begin
    DateiName:= ExcelOpenDialog1.FileName;
  end;
  olevEXCELoffen.Workbooks.add;
  olevEXCELoffen.range['C1','C1'].Select;
  olevEXCELoffen.ActiveSheet.OLEObjects.add(Filename:= DateiName, Link:=False, DisplayAsIcon:=False).Select;

  ShowMessage('Excel schauen !');

  if  NOT VarIsEmpty(olevEXCELoffen) then
  begin
    olevEXCELoffen.Quit;
    olevEXCELoffen:= Unassigned;
  end;
end;

Bis bald Chemiker

[Nimmersatt]

Hallo Chemiker,


Es hat alles wunderbar geklappt.

Ich will aber mehr

Ich möchte ein mehrseitiges Word-Dokument einbinden. Unter Excel wird das mit einem Doppelklick auf das Dokument realisiert, es schaltet dann in den Word-Modus um.

Wie kann ich das in Delphi realisieren ?

Und dann noch eine nächste Bitte...

Wir kann ich die Höhe und Breite des Ausschnittes festlegen, in dem das Word-Dokument sichtbar ist ?


mfg Nimmersatt

[Jumpy]

Ich poste mal nur einen Link zu msdn, da sieht man die weiteren Parameter der Add Methode:

https://msdn.microsoft.com/DE-DE/lib.../ff195728.aspx

[p80286]

Zitat von Nimmersatt:

Ich möchte ein mehrseitiges Word-Dokument einbinden. Unter Excel wird das mit einem Doppelklick auf das Dokument realisiert, es schaltet dann in den Word-Modus um.

Wenn ich mich nicht irre, reicht es das Word-Dokument in Excel einzubinden. Da hat Delphi eigentlich recht wenig mit zu tun.

Ich hab einmal ein wenig mit Excel gespielt:

Code:

 Range("A3").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "C:\Daten\Defining Parameters for reading invoices in xml format.rtf", _
        TextToDisplay:= _
        "C:\Daten\Defining Parameters for reading invoices in xml format.rtf"
    Range("A3").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Code:

Range("B10").Select
    ActiveSheet.OLEObjects.Add(Filename:= _
        "C:\Daten\Defining Parameters for reading invoices in xml format.rtf", Link:= _
        False, DisplayAsIcon:=False).Select
    Selection.Verb Verb:=xlPrimary
    ActiveSheet.Shapes.Range(Array("Object 1")).Select
    ActiveSheet.Shapes("Object 1").IncrementLeft 5.25
    ActiveSheet.Shapes("Object 1").IncrementTop 24.75

Im ersten Beispiel wird nur ein Link bzw der entsprechende Text angezeigt,
Im zwiten wird gleich Word mit dem Dateiinhalt eingeblendet, und die Größenänderungen der Anzeige sind mit dabei.

Ich hoffe das hilft Dir weiter.

Gruß
K-H

[Nimmersatt]

Ich bin jetzt ein Stück weiter

Code:

olevEXCELoffen.ActiveSheet.OLEObjects.add(Filename:='c:\eigene Dateien\Planung.docx', Link:=false, DisplayAsIcon:=False).Select; 
olevEXCELoffen.selection.Verb;

Zeigt das Word-Dokument an, springt dann aber in den alten Modus zurück.
Wie verhindere ich das ?


bei

Code:

olevEXCELoffen.selection.Verb:=Xlprimary;

Undefinierter Bezeichner: 'xlPrimary'


bei

Code:

olevEXCELoffen.selection.Verb:=1;

Meldung: Die Verb-Eigenschaft des Oleobjekts-Objekt kann nicht festgelegt werden

[mkinzler]

Definiere dir die Konstante xlPrimary als 1.

[Nimmersatt]

Hallo Mkinzler,

Code:

 olevEXCELoffen.selection.Verb:=1;

Meldung: Die Verb-Eigenschaft des Oleobjekts-Objekt kann nicht festgelegt werden