[حريف برمجة]

وعليكم السلام ورحمة الله وبركاته ،،

الحل تقلب تنسيق التاريخ وترسل البيانات للورد ثم ترجع التنسيق السابق .

الكود كامل :

كود :

TextBox1.Text = Format(CDate(TextBox1.Text), "dd/MM/yyyy")

       Dim oWord As New Word.Application
       Dim oDoc As Word.Document

       oWord.Documents.Open(FileName:=Application.StartupPath & "\sniper.doc")
       oWord.Documents("sniper.doc").Activate()

       oDoc = oWord.ActiveDocument
       oDoc.Bookmarks("Name").Range.Font.Color = Word.WdColor.wdColorBlue
       oDoc.Bookmarks("Name").Range.Text = TextBox1.Text

       oDoc.Bookmarks("Nantional").Range.Font.Color = Word.WdColor.wdColorBlue
       oDoc.Bookmarks("Nantional").Range.Text = TextBox2.Text

       oDoc.Bookmarks("Money").Range.Font.Color = Word.WdColor.wdColorBlue
       oDoc.Bookmarks("Money").Range.Text = TextBox3.Text

       oDoc.Bookmarks("Money2").Range.Font.Color = Word.WdColor.wdColorBlue
       oDoc.Bookmarks("Money2").Range.Text = TextBox4.Text

       oDoc.Bookmarks("R").Range.Font.Color = Word.WdColor.wdColorBlue
       oDoc.Bookmarks("R").Range.Text = TextBox5.Text

       oDoc.Bookmarks("S1").Range.Font.Color = Word.WdColor.wdColorBlue
       oDoc.Bookmarks("S1").Range.Text = TextBox6.Text

       oDoc.Bookmarks("S2").Range.Font.Color = Word.WdColor.wdColorBlue
       oDoc.Bookmarks("S2").Range.Text = TextBox7.Text

       oDoc.Bookmarks("asd").Range.Font.Color = Word.WdColor.wdColorBlue
       oDoc.Bookmarks("asd").Range.Text = TextBox8.Text

       oWord.WindowState = Word.WdWindowState.wdWindowStateMaximize
       oWord.Visible = True

       TextBox1.Text = Format(CDate(TextBox1.Text), "yyyy/MM/dd")