تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعده اريد انشاء برنانج لقنوات bein sport hima_sabry91 2 28 منذ 2 ساعة مضت
آخر رد: hima_sabry91
  الاخوة الذين يواجهون مشكلة الحفظ في قاعدة بيانات اكسسس abo ragab 1 121 منذ 5 ساعة مضت
آخر رد: alsihran
  مشكلة صغير ب geckofx 60 الطابعة sva 5 103 14-12-18, 06:04 PM
آخر رد: elgokr
  مشكلة اتصال kaiser3D 1 42 14-12-18, 05:41 PM
آخر رد: elgokr
  مشكلة الفورم فى الخلف new_programer 3 58 11-12-18, 05:58 AM
آخر رد: rmnr
  مشكلة عند الضغط على زر التخزين nooralcown 1 43 10-12-18, 03:10 PM
آخر رد: elgokr
  مشكلة فى وضع كود جلب معلومات قاعدة البينات Mohamed Magdy 6 135 09-12-18, 08:14 AM
آخر رد: asemshahen5
  مشكلة ال common items غير ظاهر new_programer 6 143 08-12-18, 03:48 AM
آخر رد: asemshahen5
  مشكلة الشراء باسعار مختلفه نبيل كونكت 8 824 07-12-18, 07:13 AM
آخر رد: atef_020
  مشكلة مع كريستال ريبورت kaiser_noori 0 41 06-12-18, 12:52 PM
آخر رد: kaiser_noori

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


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