Hi,
I solved the problem! The code is correct:
procedure OpenSubFolder(FolderName: String);
var
EbookPath, MyFolder: String;
begin
EbookPath := GetGlobalVar("HEPublicationPath", "");
MyFolder := EbookPath + "Word/Fragen/00_Einleitung.doc";
OpenFile(MyFolder, "", SW_SHOWNORMAL);
End;
I forgot...