+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة انشاء ملف بصيغة معينه (/showthread.php?tid=26592)
مشكلة انشاء ملف بصيغة معينه - engmedomech - 22-09-18
اخواني الكرام
محتاج انشأ ملف وورد عن طريق الكود في 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
RE: مشكلة انشاء ملف بصيغة معينه - r49 - 22-09-18
حاليا لا تستخدم try من أجل أن تظهر رسالة الخطأ ومكانه في الكود بعدها ممكن أنت تعرف تحلها بدون ما تسأل
غير علامة + بعلامة &
RE: مشكلة انشاء ملف بصيغة معينه - aljzazy - 22-09-18
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()
RE: مشكلة انشاء ملف بصيغة معينه - boudyonline - 22-09-18
أولا اضف المكتبة التالية لمشروعك
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