تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة انشاء ملف بصيغة معينه
#1
اخواني الكرام
محتاج انشأ ملف وورد عن طريق الكود في 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
الرد
تم الشكر بواسطة:
#2
حاليا لا تستخدم try من أجل أن تظهر رسالة الخطأ ومكانه في الكود بعدها ممكن أنت تعرف تحلها بدون ما تسأل

غير علامة + بعلامة &
الرد
تم الشكر بواسطة:
#3
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() 
لا تنسى اضافة الرفرنس واستدعاء مكتبة الوورد
الرد
تم الشكر بواسطة: ابو روضة , elgokr
#4
أولا اضف المكتبة التالية لمشروعك
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 
Don't Be The Perfect one
be the right one
الرد
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo مشكلة بعد تثبيت برنامجي في نظام التشغيل win10 بسام محمدغانم 1 72 22-01-21, 02:20 PM
آخر رد: nrkarat
  قمت بعمل مثال لإستخراج النصوص من الصورة واجهتني مشكلة اللغة العربية ماهو الحل mohamedgadain61 1 104 17-01-21, 07:54 AM
آخر رد: ابراهيم ايبو
  [سؤال] مساعدة في انشاء combobox في الداتا جريد fawazm15019797 0 61 16-01-21, 07:17 PM
آخر رد: fawazm15019797
  مشكلة تغير لون صف في داتاجريدفيو ahmed.fms 2 147 13-01-21, 02:31 PM
آخر رد: ahmed.fms
  [VB.NET] مشكلة عند عرض البيانات من الداتاجريد فيو ارهقتني محمد اسماعيل 12 444 08-01-21, 01:35 AM
آخر رد: محمد اسماعيل
  لدي مشكلة في كود تحديد مسار البرنامج أبو عبدالله الحلواني 4 310 01-01-21, 09:28 PM
آخر رد: سعود
  مشكلة استعلام textbox1 عن رقم مثل 10/20/1000/0 moodyfy 1 184 31-12-20, 09:37 PM
آخر رد: أبو عبدالله الحلواني
  مشكلة معرفة الخلية الفارغة في DataGridView mustafa mohamed 3 157 31-12-20, 04:23 AM
آخر رد: ابراهيم ايبو
Exclamation [سؤال] مشكلة في تشغيل برنامجي عند العميل بسبب الكريستال ريبورت solyH 4 2,255 21-12-20, 04:06 PM
آخر رد: Lathe1
  [سؤال] اريد ان انشاء تطبيقات في الاندرويد من اين ابدأ بسام محمدغانم 3 362 14-12-20, 11:56 PM
آخر رد: أبوبكر سويدان

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم