r_zamani
شنبه 08 خرداد 1389, 13:12 عصر
با سلام دوباره!!!
من یه همچین کدی نوشتم که درست کار می کنه یعنی یک فایل ورد ایجاد می کنه و داخلش می نویسه:
Dim doc As Word.Document
Dim app As Word.Application
app = CreateObject("Word.Application")
app.Visible = True
doc = app.Documents.Add
rg = doc.Range(doc.Characters.Count - 1, doc.Characters.Count - 1)
rg.Text = "متن انتخابی"
حالا می خوام این فایل ورد رو از داخل برنامه تنظیم کنم که right to left باشه . این کد ها رو نوشتم که جواب نمیده:
rg.Sections.PageSetup.SectionDirection = WdSectionDirection.wdSectionDirectionRtl
یا
rg.PageSetup.SectionDirection = WdSectionDirection.wdSectionDirectionRtl
کسی میدونه چطوری خاصیت right to left رو از داخل برنامه به ورد پاس بدم؟
من یه همچین کدی نوشتم که درست کار می کنه یعنی یک فایل ورد ایجاد می کنه و داخلش می نویسه:
Dim doc As Word.Document
Dim app As Word.Application
app = CreateObject("Word.Application")
app.Visible = True
doc = app.Documents.Add
rg = doc.Range(doc.Characters.Count - 1, doc.Characters.Count - 1)
rg.Text = "متن انتخابی"
حالا می خوام این فایل ورد رو از داخل برنامه تنظیم کنم که right to left باشه . این کد ها رو نوشتم که جواب نمیده:
rg.Sections.PageSetup.SectionDirection = WdSectionDirection.wdSectionDirectionRtl
یا
rg.PageSetup.SectionDirection = WdSectionDirection.wdSectionDirectionRtl
کسی میدونه چطوری خاصیت right to left رو از داخل برنامه به ورد پاس بدم؟