בית
Top.Mail.Ru Yandeks.Metrika
פורום: "WinAPI";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למטה

פתיחת מסמך Word. (+) מצא סניפים דומים


neverbee   (2001-11-06 12:11) [0]

העובדה היא שאתה צריך לפתוח מסמך Word (לדוגמה, c: \ test.doc), ומסיבה כלשהי אינך רוצה להשתמש ב- ShellExecute, אך אתה רוצה להשתמש בשיטה TWordApplication.Documents.Open. פונקציה זו מגיעה עם קבוצת הפרמטרים הבאה (שנלקחה מ- word97.pas):
פונקציה פתוחה (var FileName: OleVariant; var ConfirmConversions: OleVariant; var ReadOnly: OleVariant; var AddToRecentFiles: OleVariant; var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; var Revert: OleVariant; var כתובPassVlewordFile : OleVariant): WordDocument; קריאה בטוחה;
זה נוזף "סוג אי התאמה" בבחירת הפרמטרים (כלומר נראה שהוא מובן). אם מישהו עבד באמצעות הפיצ'ר הזה, ספר לי מה ואיך להעביר לשם :)



Dimka Maslov   (2001-11-06 12:29) [1]

משתמש ..., OleServer, Word97; פונקציה RepairText (Ws: WideString): מחרוזת; var i: מספר שלם; Ch1, Ch2: Char; S: מחרוזת; התחל S: = Ws; תוצאה: = ""; Ch2: = # 13; עבור i: = 1 לאורך (S) -1 כן מתחילים Ch1: = S [i]; Ch2: = S [i + 1]; תוצאה: = תוצאה + Ch1; אם (Ch1 = #13) ו- (Ch2 <> #10) אז תוצאה: = תוצאה + # 10; סוף; תוצאה: = תוצאה + Ch2; אם Ch2 = chEnter אז תוצאה: = תוצאה + # 10; AnsiToOEM (PChar (תוצאה), PChar (תוצאה)); OEMToAnsi (PChar (תוצאה), PChar (תוצאה)); סוף; פונקציה ImportWordFile (const FileName: String): מחרוזת; var WordApp: TWordApplication; Doc: Variant; התחל WordApp: = TWordApplication. צור (אפסי); נסה WordApp.ConnectKind: = ckNewInstance; WordApp.Connect; נסה Doc: = WordApp.Documents; Doc.Open (שם קובץ); Doc: = לא הוקצה; WordApp.Selection.SetRange (0, $ 7FFFFFF); תוצאה: = RepairText (WordApp.Selection.Text); סוף סוף WordApp.WindowState: = 1; WordApp.Quit; WordApp. Disconnect; סוף; סוף סוף WordApp.Free; סוף; סוף;



עמודים: 1 ענף שלם

פורום: "WinAPI";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למעלה





זיכרון: 0.55 MB
זמן: 0.024 c
14-22325
אולגרד
2001-11-04 19:05
2002.01.08
משלוח


14-22318
כוויית קור
2001-10-31 17:11
2002.01.08
Rewind


4-22465
AKV
2001-11-02 10:44
2002.01.08
כיצד לקבוע את ידית החלון עליה נמצא העכבר


4-22499
יוס
2001-10-31 20:51
2002.01.08
FindWindow


4-22489
סקיב
2001-11-05 09:55
2002.01.08
גירסת תצוגה * .exe





אפריקאנס אלבני ערבי אַרְמֶנִי אזרביג'אן הבסקים בלארוסית בולגרי קטלאנית הסיני (פשוט) סינית (מסורתית) קרואטית צ'כיה דני הולנדי אנגלית אסטוני פיליפיני פיני צרפתית
גליציה גאורגיה גרמני יווני קריאולית האיטית עברי הינדי הונגרי איסלנדי אינדונזי אירי איטלקי יפני קוריאני לטבי ליטאי מקדוניה מלאית מלטזית נורבגי
פרסי פולני פורטוגזי רומנית רוסי סרבית סלובקי סלובני ספרדי סוואהילית שבדי תאילנדי תורכי אוקראיני אורדו ויאטנמית וולשית יידיש בנגלית בוסנית
קבואנו אספרנטו גוג'ראטית האוסה המונג איגבו יָאוָנִי קנאדה לחמר לאו הלטינית מאורים מרתי מונגולי נפאלית פונג'בית סומליה טמילית טלוגו יורובה
זולו
Английский Французский Немецкий Итальянский Португальский Русский Испанский