تغییر فایل Word

[alirezash]

سلام دوستان عزیز.
من یک فایل ورود دارم بصورت sample.
که در این فایل یک سری آیتم ها از قبل نوشتن .
مثلاً تاریخ و شماره و متن .
******************************************
شماره : {ُSerial}
تاریخ : {Date}
متن {Body}
******************************************
حالا می خوام سه تا input در فرم قرار بدم که کاربر بتونه شماره و تاریخ و متن را وارد کنه .
وقتی دکمه ذخیره رو زد این اطلاعات در فایل ورد به جای {ُSerial} و {Date} و {Body} ذخیره بشه .
این کارو من توی یک نرم افزار اتوماسیون اداری دیدم.
ممنون می شم کمک کنید.
فقط خواهشن با VB باشه

[raziee]

کد های زیر از این صفحه (http://stackoverflow.com/questions/19252252/c-sharp-word-interop-find-and-replace-everything) برداشته شده است.
private void FindAndReplace(Microsoft.Office.Interop.Word.Appli cation doc, object findText, object replaceWithText)
{
//options
object matchCase = false;
object matchWholeWord = true;
object matchWildCards = false;
object matchSoundsLike = false;
object matchAllWordForms = false;
object forward = true;
object format = false;
object matchKashida = false;
object matchDiacritics = false;
object matchAlefHamza = false;
object matchControl = false;
object read_only = false;
object visible = true;
object replace = 2;
object wrap = 1;
//execute find and replace
doc.Selection.Find.Execute(ref findText, ref matchCase, ref matchWholeWord,
ref matchWildCards, ref matchSoundsLike, ref matchAllWordForms, ref forward, ref wrap, ref format, ref replaceWithText, ref replace,
ref matchKashida ,ref matchDiacritics, ref matchAlefHamza, ref matchControl);
}

object fileName = Path.Combine(System.Windows.Forms.Application.Star tupPath, "document.docx");
Microsoft.Office.Interop.Word.Application wordApp = new Microsoft.Office.Interop.Word.Application { Visible = true };
Microsoft.Office.Interop.Word.Document aDoc = wordApp.Documents.Open(ref fileName, ReadOnly: false, Visible: true);
aDoc.Activate();
FindAndReplace(word, "{id}", "12345");

[alirezash]

ممنونم دوست عزیز ولی vb می خواستم

[ahmad156]

Developer Fusion (http://www.developerfusion.com/about-us/legal/) (http://www.developerfusion.com/tools/convert/csharp-to-vb/)