soft-c
چهارشنبه 24 دی 1393, 13:54 عصر
سلام
من می خوام با کدهای زیر یک متن را در ورد پیدا کرده و جایگزین کنم . منتها بعد از جایگزین کردن و ذخیره کردن فایل ، وقتی در محل ذخیره شده فایل ورد را باز می کنم پیغام file conversion می دهد و کاراکترها را نمی شناسد.
Wordapp.selection.find.clearformatting;
Wordapp.selection.find.text:=searchstring;
Wordapp.selection.find.replacement.text:=replacest ring;
Wordapp.selection.find.forward:=true;
WordApp.Selection.Find.Wrap := wdFindContinue;
WordApp.Selection.Find.Format := False;
WordApp.Selection.Find.MatchCase := wrfMatchCase in Flags;
WordApp.Selection.Find.MatchWholeWord := False;
WordApp.Selection.Find.MatchWildcards := wrfMatchWildcards in Flags;
WordApp.Selection.Find.MatchSoundsLike := False;
WordApp.Selection.Find.MatchAllWordForms := False;
Wordapp.selection.find.clearformatting;
Wordapp.selection.find.text:=searchstring;
Wordapp.selection.find.replacement.text:=replacest ring;
Wordapp.selection.find.forward:=true;
WordApp.Selection.Find.Wrap := wdFindContinue;
WordApp.Selection.Find.Format := False;
WordApp.Selection.Find.MatchCase := wrfMatchCase in Flags;
WordApp.Selection.Find.MatchWholeWord := False;
WordApp.Selection.Find.MatchWildcards := wrfMatchWildcards in Flags;
WordApp.Selection.Find.MatchSoundsLike := False;
WordApp.Selection.Find.MatchAllWordForms := False;
من می خوام با کدهای زیر یک متن را در ورد پیدا کرده و جایگزین کنم . منتها بعد از جایگزین کردن و ذخیره کردن فایل ، وقتی در محل ذخیره شده فایل ورد را باز می کنم پیغام file conversion می دهد و کاراکترها را نمی شناسد.
Wordapp.selection.find.clearformatting;
Wordapp.selection.find.text:=searchstring;
Wordapp.selection.find.replacement.text:=replacest ring;
Wordapp.selection.find.forward:=true;
WordApp.Selection.Find.Wrap := wdFindContinue;
WordApp.Selection.Find.Format := False;
WordApp.Selection.Find.MatchCase := wrfMatchCase in Flags;
WordApp.Selection.Find.MatchWholeWord := False;
WordApp.Selection.Find.MatchWildcards := wrfMatchWildcards in Flags;
WordApp.Selection.Find.MatchSoundsLike := False;
WordApp.Selection.Find.MatchAllWordForms := False;
Wordapp.selection.find.clearformatting;
Wordapp.selection.find.text:=searchstring;
Wordapp.selection.find.replacement.text:=replacest ring;
Wordapp.selection.find.forward:=true;
WordApp.Selection.Find.Wrap := wdFindContinue;
WordApp.Selection.Find.Format := False;
WordApp.Selection.Find.MatchCase := wrfMatchCase in Flags;
WordApp.Selection.Find.MatchWholeWord := False;
WordApp.Selection.Find.MatchWildcards := wrfMatchWildcards in Flags;
WordApp.Selection.Find.MatchSoundsLike := False;
WordApp.Selection.Find.MatchAllWordForms := False;