تقييم الموضوع :
  • 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 
الرد
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند رفع قعدة البينات فى الفيجول بيسك Mohamed Magdy 2 32 منذ 1 ساعه مضت
آخر رد: Mohamed Magdy
  [سؤال] استفسار عن مشكلة في كود لايجاد العملاء الغير موجودين بجدول الدفع ahmedmansour 11 368 أمس, 10:39 PM
آخر رد: ahmedmansour
  مشكلة فى اضافة حقول جديدة فى قاعدة البيانات و ربطها بالفيجوال استوديو nabil.1710 1 39 أمس, 01:09 PM
آخر رد: nabil.1710
  مشكلة داخل البوتن Mohamed Magdy 5 43 17-10-18, 10:04 PM
آخر رد: XBOOBX
  مشكلة فى التعديل salah mansour 7 111 15-10-18, 02:39 PM
آخر رد: فراس محي
  [VB.NET] مشكلة في استخراج روابط هذه الصفحة بال HtmlAgilityPack mervandzz 2 63 13-10-18, 03:53 PM
آخر رد: mervandzz
  مشكلة فى اختفاء فورم salah mansour 0 45 12-10-18, 01:47 AM
آخر رد: salah mansour
  [VB.NET] مشكلة بكود التحديث لقاعدة البيانات محمد اسماعيل 4 101 11-10-18, 06:45 AM
آخر رد: محمد اسماعيل
  مشكلة فى تشغيل قارئ من بين جميع القراء ابو روضة 10 238 10-10-18, 12:00 AM
آخر رد: AymanRamadanSaad
  [VB.NET] مشكلة في كود تغيير لغة البرنامج ay.alhaj 13 228 09-10-18, 08:52 PM
آخر رد: ay.alhaj

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


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