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



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


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