AddIn funktioniert nicht richtig (Word2003)

[mjenke]

Guten Morgen, alle miteinander!


Ich habe in den letzten Wochen ein Word-AddIn geschrieben, das in Word2000 auch wunderbar funktioniert. Je nachdem, welche DOT im Hintergrund an dem Dokument hängt, wird der Benutzer über einen Dialog aufgefordert, Einstellungen vorzunehmen und dann werden Formate und CommandBars etc. dynamisch erzeugt, damit genau die Arbeitsumgebungen vorhanden sind, die der Benutzer benötigt.

Wie gesagt, in Word 2000 funktioniert alles wunderbar. Ein Installer ist gebaut, auf mehreren Geräten getestet - und nirgends gab es Problem.

Anders in Word 2003.

Ich habe den Installer an einem Gerät mit Word 2003 ausprobiert. Die DLL ist installiert und registriert und wird von Word auch geladen. Beim Erzeugen der Formatvorlagen hängt Word2003 sich allerdings auf. Und zwar an folgender Stelle:

Delphi-Quellcode:

function TWordSettings.Style_Create(Format: TFormat): Style;
var
  My_Font: WordFont;
  [...]
begin

  Result := nil;
  _Type  := 1;

  if Assigned ( Format ) then begin

    if HasActiveDocument then begin

      Result := Style_GetStyle ( Format.StyleInfoAF.Name );
      if Result = nil then
        Result := FWord.ActiveDocument.Styles.Add ( Format.StyleInfoAF.Name, _Type );

      // In Result können jetzt die Werte eingetragen werden...

      with Format.StyleInfoAF do begin
        // Allgemein
          Result.Set_LanguageID ( LanguageID );
        // Link 2 List
          if Format.Link2ListSet then begin
            try
              LG          := FWord.ListGalleries.item(LinkToList.GalleryIdx.Value);
              LevelIdx    := LinkToList.LevelIdx.Value;
              TemplateIdx := LinkToList.TemplateIdx.Value;
              Result.LinkToListTemplate ( LG.ListTemplates.item(TemplateIdx), LevelIdx );
              // Und in die Listgallery eintragen
              LG.ListTemplates.item(TemplateIdx).ListLevels.Item(LevelIdx).Set_LinkedStyle ( Name );
            except
            end;
          end;
        // Font
          My_Font := Result.Get_Font;
          with Font do begin

            //  Hier:
            //
            //  bei My_Font.Set_Name
            //
            //  hängt Word2003 sich auf, während es in Word2000 KEINERLEI
            //  Probleme gibt... Wenn die Zeile auskommentiert ist, hängt Word
            //  sich entsprechend bei Set_Size auf etc. Ein Zugriff auf das WordFont-
            //  Objekt bereitet also die Probleme

            My_Font.Set_Name ( Name.Value );
            My_Font.Set_Size ( Size.Value );
            if Bold.Value                then My_Font.Set_Bold ( 1 ) else My_Font.Set_Bold ( 0 );
            if Italic.Value              then My_Font.Set_Italic ( 1 ) else My_Font.Set_Italic ( 0 );
        [...]

Hatte jemand schon einmal ein ähnliches Problem und dazu eine Lösung gefunden? Ich weiß, dass einige unserer Kunden mit Word2003 arbeiten, ich kann es also leider nicht auf sich beruhen lassen...



Matthias