ش | ی | د | س | چ | پ | ج |
1 | 2 | 3 | 4 | 5 | 6 | 7 |
8 | 9 | 10 | 11 | 12 | 13 | 14 |
15 | 16 | 17 | 18 | 19 | 20 | 21 |
22 | 23 | 24 | 25 | 26 | 27 | 28 |
29 | 30 |
محتویات داخل داکیومنت ( 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