[engmedomech]

اخواني الكرام
محتاج انشأ ملف وورد عن طريق الكود في vb.net داخل مجلد معين
لانى جربت ه الكود لكن الملف بيطلع بامتداد مختلف

Try
Dim fileLoc As String = "\\192.168.42.58\d$\ '" & PationtMobile.Text.Trim + ".docx" & "'"
Dim fs As FileStream = Nothing
If (Not File.Exists(fileLoc)) Then
fs = File.Create(fileLoc)
Using fs
End Using
End If
Catch ex As Exception
End Try

[r49]

حاليا لا تستخدم try من أجل أن تظهر رسالة الخطأ ومكانه في الكود بعدها ممكن أنت تعرف تحلها بدون ما تسأل

---

غير علامة + بعلامة &

[aljzazy]

PHP كود :

Dim objWord As Word.Application
        Dim objDoc As Word.Document

        objWord = CreateObject("Word.Application")
        objWord.Visible = True
        objDoc = objWord.Documents.Add
        'Insert some text in document
        Dim objPara As Word.Paragraph
        objPara = objDoc.Content.Paragraphs.Add
        objPara.Range.Text = "ضع العنوان الذي تريده"
        objPara.Range.Font.Bold = True
        objPara.Format.SpaceAfter = 30
        objPara.Range.InsertParagraphAfter() 


لا تنسى اضافة الرفرنس واستدعاء مكتبة الوورد

[boudyonline]

أولا اضف المكتبة التالية لمشروعك
Microsoft.Office.Interop.word

ثانيا استدعي المكتبة واليك مثال لبناء الملف

PHP كود :

Imports Word = Microsoft.Office.Interop.Word
Public Class Form1


    Private Sub CreateWordDocument()
        Dim objWord As Word.Application
        Dim objDoc As Word.Document

        objWord = CreateObject("Word.Application")
        objWord.Visible = True
        objDoc = objWord.Documents.Add
        'Insert some text in document
        Dim objPara As Word.Paragraph
        objPara = objDoc.Content.Paragraphs.Add
        objPara.Range.Text = "Welcome to Author Code"
        objPara.Range.Font.Bold = True
        objPara.Format.SpaceAfter = 30
        objPara.Range.InsertParagraphAfter()

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        CreateWordDocument()
    End Sub
End Class