ش | ی | د | س | چ | پ | ج |
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
برای درج تکست در فیلدهائی که در فرم تعبیه کردیم فرضا برای کپی کردن فیلد رکوردی از جدول یا کوئری اکسس
![](http://s3.picofile.com/file/8363535292/WordTextFormField.png)
"ActiveDocument.FormFields("Text1").Result = "Don Funk
باز کردن داکیومنت
از رفرنس تیک Microsoft Word را بزنید و با کالکشن های آن کار کنید
"Documents.Open FileName:="C:\MyFolder\Sample.doc
آرگومانهای بعد از نام فایل که حتمیست بقیه آپشنال یا انتخابی هستند ولی یا باید عین عبارت با دونقطه و مساوی بیان شود یا هر کدام در جای خودش آورده شود مثل بالا
,expression.Open (FileName, ConfirmConversions
ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate,
Revert, WritePasswordDocument,
WritePasswordTemplate, Format,
Encoding, Visible, OpenConflictDocument,
(OpenAndRepair, DocumentDirection, NoEncodingDialog
برای ذخیره ی داکیومنت ( آرگومان ها آپشنال هستن )
_ , Documents.Save NoPrompt:=True OriginalFormat:=wdOriginalDocumentFormat
اگر قبلا Save شده باشد با SaveAs