مقاله های Microsoft Word بایگانی

تنظیمات پنجره Paragraph در Microsoft Word

تصویر زیر بدون هیچ توضیح اضافه ای تنظیمات پنجره Paragraph در Microsoft Word را نشان می دهد.

ماکروی ایجاد انعکاس و درخشندگی در Word

یک ماکروی زیبا و مهیج :

Sub TestGlowAndReflection()
On Error Resume Next
With Selection.Range
With .Font
.Size = 24
.ColorIndex = wdRed
With .Glow
.Color.ObjectThemeColor = wdThemeColorAccent1
.Radius = 10
.Transparency = 0.8
End With
With .Reflection
.Offset = 2.4
.Blur = 0.5
.Size = 100
.Transparency = 0.5
End With
End With
End With
End Sub

۱۰

۱۱

۱۲

۱۳

۱۴

۱۵

۱۶

۱۷

۱۸

۱۹

۲۰

Sub TestGlowAndReflection()

On Error Resume Next

With Selection.Range

With .Font

.Size = ۲۴

.ColorIndex = wdRed

With .Glow

.Color.ObjectThemeColor = wdThemeColorAccent1

.Radius = ۱۰

.Transparency = ۰.۸

End With

With .Reflection

.Offset = ۲.۴

.Blur = ۰.۵

.Size = ۱۰۰

.Transparency = ۰.۵

End With

End Sub

حال بخشی از یک متن را انتخاب کرده و ماکروی بالا را اجرا کنید. نتیجه ای شبیه پاراگراف دوم تصویر زیر را مشاهده خواهید کرد :

ماکروی ارسال فایل ورد توسط ایمیل

یک ماکروی بسیار جالب و مهم که می توانید در محیط برنامه نویسی Word از آن استفاده کنید. این ماکرو در زمان اجرا پنجره ارسال ایمیل نرم افزار Outlook را باز کرده و یک ایمیل که فایل جاری Word به صورت پیوست در آن وجود دارد را به یک آدرس ارسال می کند.

Sub SendDocumentAsAttachment()
Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem
On Error Resume Next
If Len(ActiveDocument.Path) = 0 Then
ActiveDocument.Save
End If
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If
Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem
.To = " someone@somewhere.com"
.Subject = "New subject"
.Body = "See attached document"
.Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue
.Display
End With
Set oItem = Nothing
Set oOutlookApp = Nothing
End Sub

۱۰

۱۱

۱۲

۱۳

۱۴

۱۵

۱۶

۱۷

۱۸

۱۹

۲۰

۲۱

۲۲

۲۳

۲۴

Sub SendDocumentAsAttachment()

Dim bStarted As Boolean

Dim oOutlookApp As Outlook.Application

Dim oItem As Outlook.MailItem

On Error Resume Next

If Len(ActiveDocument.Path) = ۰ Then

ActiveDocument.Save

End If

Set oOutlookApp = GetObject(, "Outlook.Application")

If Err <> ۰ Then

Set oOutlookApp = CreateObject("Outlook.Application")

bStarted = True

End If

Set oItem = oOutlookApp.CreateItem(olMailItem)

With oItem

.To = " someone@somewhere.com"

.Subject = "New subject"

.Body = "See attached document"

.Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue

.Display

End With

Set oItem = Nothing

Set oOutlookApp = Nothing

End Sub

اگر در برنامه نویسی Word… »

تهیه خروجی PDF با لینک های فعال در Word

نرم افزار های مخصوص ساختن pdf معمولا لینک های فایل Word را درون پی دی اف ایجاد نمی کنند. Word 2010 این قابلیت را دارد که خروجی پی دی اف همراه با لینک ها و بوک مارک های تعریف شده را در ایجاد کند. برای انجام دادن این کار از منوی File گزینه Save as را انتخاب کنید. سپس در… »

تغییر تنظیمات پیش فرض در Word

برای تغییر تنظیمات پیش فرض در Word دو روش وجود دارد. روش اول : فرض کنید که می خواهید در زمان باز کردن Word، اندازه فونت روی ۱۴ و نوع آن nazanin باشد. برای انجام این کار پنجره Font را باز کنید. بعد از انجام تغییرات دلخواه روی دکمه Set as default در پایین پنجره کلیک کنید. در… »

ارسال ایمیل گروهی توسط mail merge

ارسال ایمیل گروهی توسط mail merge ویژگی Mail Merge یا ادغام پستی از ابزار های مهم نرم افزار Word می باشد که از آن می توان برای ارسال سندی برای مخاطبین گروهی استفاده کرد به طوری که سند هر شخص علاوه بر محتوای عمومی بخش های اختصاصی مانند نام یا نمره را دارا باشد. می خواهیم با استفاده از این… »

ماکروی نمایش اطلاعات سند در Wor

ماکروی نمایش اطلاعات سند در Wor مثال های کمی در موضوع کاربرد ماکرو نویسی در Word وجود داردو به همین دلیل نکات ساده ای که پیدا می شود را به شما معرفی می کنیم. ماکروی زیر اطلاعاتی از سند شامل تعداد صفحه ها، تعداد پاراگراف ها و شماره صفحه جاری را توسط سه دستور MsgBox اعلان می کند.

Sub ShowInformation()
Dim NumberOfPages, NumberOfParagraohs, CurrentPageNumber As Integer
NumberOfPages = Selection.Information(wdNumberOfPagesInDocument)
MsgBox NumberOfPages
'-------------------------------
NumberOfParagraohs = ActiveDocument.Paragraphs.Count
MsgBox NumberOfParagraohs
'-------------------------------
CurrentPageNumber = Selection.Information(wdActiveEndPageNumber)
MsgBox CurrentPageNumber
End Sub

۱۰

۱۱

Sub ShowInformation()

Dim NumberOfPages, NumberOfParagraohs, CurrentPageNumber As Integer

NumberOfPages = Selection.Information(wdNumberOfPagesInDocument)

MsgBox NumberOfPages

'-------------------------------

NumberOfParagraohs = ActiveDocument.Paragraphs.Count

MsgBox NumberOfParagraohs

'-------------------------------

CurrentPageNumber = Selection.Information(wdActiveEndPageNumber)

MsgBox CurrentPageNumber

End Sub

… »

Username
Password
Continue with Google
	Remember Me Lost your password? Register

18 قسمت

470 دقیقه

50 هزار تومان

10 قسمت

200 دقیقه

28 هزار تومان

18 قسمت

520 دقیقه

80 هزار تومان

آخرین مقاله های آموزشی

آخرین محصولات

آرشیو: مقاله های Microsoft Word

تنظیمات پنجره Paragraph در Microsoft Word

ماکروی ایجاد انعکاس و درخشندگی در Word

ماکروی ارسال فایل ورد توسط ایمیل

تهیه خروجی PDF با لینک های فعال در Word

تغییر تنظیمات پیش فرض در Word

ارسال ایمیل گروهی توسط mail merge

ماکروی نمایش اطلاعات سند در Wor

آخرین نوشته ها

ورود به سایت

سبد خرید

زرین پال

دوره های آموزشی

18 قسمت

470 دقیقه

50 هزار تومان

10 قسمت

200 دقیقه

28 هزار تومان

18 قسمت

520 دقیقه

80 هزار تومان

آخرین مقاله های آموزشی

آخرین محصولات

آرشیو: مقاله های Microsoft Word

تنظیمات پنجره Paragraph در Microsoft Word

ماکروی ایجاد انعکاس و درخشندگی در Word

ماکروی ارسال فایل ورد توسط ایمیل

تهیه خروجی PDF با لینک های فعال در Word

تغییر تنظیمات پیش فرض در Word

ارسال ایمیل گروهی توسط mail merge

ماکروی نمایش اطلاعات سند در Wor

آخرین نوشته ها

ورود به سایت

Register For This Site

سبد خرید

زرین پال

دوره های آموزشی