systam
پنج شنبه 21 دی 1391, 22:07 عصر
سلام دوستان
من با این تکه کد میام فایل ورد رو تعداد صفحات رو بدست میارم
Dim a As String = str_masir
Dim b As String = "\"
Dim c As String = str_path
Dim st As String = Trim(str_masir) & Trim(b) & Trim(str_path)
Dim saa As New Word.Application
Dim fileName As Object = st
Dim missing As Object = System.Reflection.Missing.Value
Dim aDoc As Word.Document = saa.Documents.Open(fileName, Nothing, True)
Dim stat As Word.WdStatistic = Word.WdStatistic.wdStatisticPages
Dim num As Integer = aDoc.ComputeStatistics(stat, missing)
Label6.Text = " تعداد صفحات فایل مورد " & num & " تا "
فقط یک مشلکی پیش میاد شاید هم معلوم نشه
کد قشنگ کار میکنه به نحو احسن
موقعی که میخوای سیستم رو خاموش کنی
خطاهایی مبنی بر ذخیره نشدن فایل های وردی که شماره صفحه رو بدست آوردی توی برنامهرو
میگه دوباره ذخیره کن هر چند تایی که بوده
امیدوارم که متوجه منظورم شده باشید:لبخند::بوس:
یا علی
من با این تکه کد میام فایل ورد رو تعداد صفحات رو بدست میارم
Dim a As String = str_masir
Dim b As String = "\"
Dim c As String = str_path
Dim st As String = Trim(str_masir) & Trim(b) & Trim(str_path)
Dim saa As New Word.Application
Dim fileName As Object = st
Dim missing As Object = System.Reflection.Missing.Value
Dim aDoc As Word.Document = saa.Documents.Open(fileName, Nothing, True)
Dim stat As Word.WdStatistic = Word.WdStatistic.wdStatisticPages
Dim num As Integer = aDoc.ComputeStatistics(stat, missing)
Label6.Text = " تعداد صفحات فایل مورد " & num & " تا "
فقط یک مشلکی پیش میاد شاید هم معلوم نشه
کد قشنگ کار میکنه به نحو احسن
موقعی که میخوای سیستم رو خاموش کنی
خطاهایی مبنی بر ذخیره نشدن فایل های وردی که شماره صفحه رو بدست آوردی توی برنامهرو
میگه دوباره ذخیره کن هر چند تایی که بوده
امیدوارم که متوجه منظورم شده باشید:لبخند::بوس:
یا علی