کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی

متدها و پراپرتی های Word


محتویات داخل داکیومنت ( Range )

Documents.Content

برگشت  آبجکت رنج کاراکترهای شروع تا آخر

(Documents.Range(Start,End

Object در داکیومنت اکتیو ورد بسیاره وبه پاگراف ها ، بوک مارک ها و سل ها اعمال میشه و Range استارت و پایانی دارد فرضا اول پاراگراف ۲ تا پایان پاراگراف ۴ 


.(2)ActiveDocument.Range(ActiveDocument.paragraphs

(Range.Start,ActiveDocument.Paragraphs(4).Range.End


  :  Rang.Copy 

ActiveDocument.Paragraphs(1).Range.Copy

اضافه کردن به آخر داکیومنت 
"ActiveDocument.Content.InsertAfter "end of documen
برای اضافه کردن به انتهای پاراگراف باید به رنج ایجاد شده اعمال شود
1-Doc.Paragraphs(1).Range.Start,Doc.Paragraphs(1).Range.End
Set doc = ActiveDocument _ =Set rngRange
_ ,doc.Range(doc.Paragraphs(1).Start
(doc.Paragraphs(1).End - 1 _ rngRange.InsertAfter
" This is now the last sentence in paragraph one."

انتخاب پارگراف بولد کردن فونت
: Range.Select

()Sub SelectParagraph ActiveDocument.Paragraphs(1).Range.Select Selection.Font.Bold = True End Sub


درج تکست Selection.TypeText
درج پارگراف جدید یا بلنک Selecttion.TypeParagrapg



Selection.Collapse Direction:=wdCollapseStart


برای درج تکست در فیلدهائی که در فرم تعبیه کردیم
فرضا برای کپی کردن فیلد رکوردی از جدول یا کوئری اکسس



"ActiveDocument.FormFields("Text1").Result = "Don Funk

باز کردن Word


باز کردن داکیومنت 

از رفرنس تیک Microsoft Word را بزنید و با کالکشن های آن کار کنید 


"Documents.Open FileName:="C:\MyFolder\Sample.doc


آرگومانهای بعد از نام فایل که حتمیست بقیه آپشنال یا انتخابی هستند ولی یا باید عین عبارت با دونقطه و مساوی بیان شود یا هر کدام در جای خودش آورده شود مثل بالا 

,expression.Open (FileNameConfirmConversions

 ReadOnlyAddToRecentFiles

PasswordDocumentPasswordTemplate

RevertWritePasswordDocument

WritePasswordTemplateFormat

EncodingVisibleOpenConflictDocument

(OpenAndRepairDocumentDirectionNoEncodingDialog


برای ذخیره ی داکیومنت  ( آرگومان ها آپشنال هستن )

_ , Documents.Save NoPrompt:=True
OriginalFormat:=wdOriginalDocumentFormat

اگر قبلا Save شده باشد با SaveAs