ورود

نسخه کامل مشاهده نسخه کامل : ذخيره كلمه انتخاب شده در word


فردان
03-04-2010, 09:23
در قسمت ماكرو نويسي word قسمت VBA مي خواستم كلمه اي را كه در متن word انتخاب كرده ام را در يك متغير ذخيره كنم تا بتوانم بقيه برنامه مورد نظرم را بنويسم خواهشمندم مرا راهنمايي كنيد.
با تشكر فراوان
AQOUA
05-04-2010, 16:06
با سلام
من دقيقا نفهميدم منظورتون چيه؟!!!!

Private Sub Command1_Click()
Dim a As String
a = Text1.SelText
Clipboard.SetText a
End Sub

Private Sub Command2_Click()
Text2.Text = Clipboard.GetText
End Sub


با تشكر
فردان
06-04-2010, 09:31
با سلام
من دقيقا نفهميدم منظورتون چيه؟!!!!

Private Sub Command1_Click()
Dim a As String
a = Text1.SelText
Clipboard.SetText a
End Sub


Private Sub Command2_Click()
Text2.Text = Clipboard.GetText
End Sub



با تشكر




با تشكر از عنايت جنابعالي
من در word هستم و مي خواهم ماكرويي بنويسم كه متن انتخاب شده (select شده) را بگيرد و در متغيري ذخيره كند. در اين حالت نه تكس باكس دارم و نه كامند.
با تشكر فراوان
AQOUA
06-04-2010, 15:01
با تشكر از عنايت جنابعالي
من در word هستم و مي خواهم ماكرويي بنويسم كه متن انتخاب شده (select شده) را بگيرد و در متغيري ذخيره كند. در اين حالت نه تكس باكس دارم و نه كامند.
با تشكر فراوان

خوب در بخش ماكرونويسي word هم ابزار وجود داره!
شما نميخواي از هيچ ابزاري كمك بگيري يا نميدوني ابزاري وجود داره؟!
با تشكر
فردان
07-04-2010, 09:22
خوب در بخش ماكرونويسي word هم ابزار وجود داره!
شما نميخواي از هيچ ابزاري كمك بگيري يا نميدوني ابزاري وجود داره؟!
با تشكر

نمي دانم. لطفا كد مورد نظر را برايم بنويسيد.
با تشكر فراون
فردان
08-04-2010, 10:22
خوب در بخش ماكرونويسي word هم ابزار وجود داره!
شما نميخواي از هيچ ابزاري كمك بگيري يا نميدوني ابزاري وجود داره؟!
با تشكر

اگر مقصود شما قسمت ظبط ماكرو است كه بايد عرض كنم ظبط ماكرو فقط كارهايي را كه شما عملا در ورد انجام دهيد را عينا ظبط و دوباره اجرا مي كند.
در حالي كه كاري كه من مي خواهم در قسمت كد نويسي آن انجام دهم كاري نيست كه بتوانم عملا انجام دهم تا خود ورد آن را ظبط كند.
پس اشكال من در كد نويسي ورد است لطفا راهنمايي بفرماييد.
با تشكر فراوان
AQOUA
08-04-2010, 13:12
اگر مقصود شما قسمت ظبط ماكرو است كه بايد عرض كنم ظبط ماكرو فقط كارهايي را كه شما عملا در ورد انجام دهيد را عينا ظبط و دوباره اجرا مي كند.
در حالي كه كاري كه من مي خواهم در قسمت كد نويسي آن انجام دهم كاري نيست كه بتوانم عملا انجام دهم تا خود ورد آن را ظبط كند.
پس اشكال من در كد نويسي ورد است لطفا راهنمايي بفرماييد.
با تشكر فراوان

نه خير. من با Record‌ كاري ندارم.
شما وقتي يه Macro رو Create ميكني، ميتوني از منوي Insert روي گزينه ي UserForm‌ كليك كني تا يه فرم به اين قسمت اضافه بشه و بعد با استفاده از ToolBox كنترلهاي مورد نظر را به فرم خودتون اضافه كنيد.
و بعد ميتونيد برنامه نويسي كنيد:
اين برنامه متن انتخاب شده را درون متغيير a ميريزد.


Private Sub CommandButton1_Click()
Dim a As String
If TextBox1.Text <> "" Then
a = TextBox1.SelText
End If
MsgBox a
End Sub


با تشكر
Mohsen.Sh_PC
09-04-2010, 09:43
سلام.
من میخوام اطلاعاتی که در لیبل هایی برنامه وجود داره مثلا آدرس خونه, شماره تلفن و بالاخره هر چیزی که در برنامه وجود داره رو با زدن یک دکمه همه اونها توی Word Pad کپی بشه
البته به صورتی که خودم میخوام.
لطفا راهنمایی کنید.
راهنمایی 5 یا 6 خطی نه راهنمایی نیم خطی.
فردان
10-04-2010, 09:39
نه خير. من با Record‌ كاري ندارم.
شما وقتي يه Macro رو Create ميكني، ميتوني از منوي Insert روي گزينه ي UserForm‌ كليك كني تا يه فرم به اين قسمت اضافه بشه و بعد با استفاده از ToolBox كنترلهاي مورد نظر را به فرم خودتون اضافه كنيد.
و بعد ميتونيد برنامه نويسي كنيد:
اين برنامه متن انتخاب شده را درون متغيير a ميريزد.


Private Sub CommandButton1_Click()
Dim a As String
If TextBox1.Text <> "" Then
a = TextBox1.SelText
End If
MsgBox a
End Sub



با تشكر




ضمن تشكر از عنايت جنابعالي
بايد به عرض برسانم كه من نمي خواهم متني را در textbox بنويسم و آن را انتخاب كنم بلكه متن مورد نظر من در صفحه word نوشته شده و آن را انتخاب كرده ام. حالا مي خواهم در ماكرو آن را به يك متغير نسبت دهم.
لطفا راهنمايي بفرماييد.
با تشكر فراوان
AQOUA
11-04-2010, 17:48
ضمن تشكر از عنايت جنابعالي
بايد به عرض برسانم كه من نمي خواهم متني را در textbox بنويسم و آن را انتخاب كنم بلكه متن مورد نظر من در صفحه word نوشته شده و آن را انتخاب كرده ام. حالا مي خواهم در ماكرو آن را به يك متغير نسبت دهم.
لطفا راهنمايي بفرماييد.
با تشكر فراوان

اگه شما از اول همين رو گفته بوديد، منم ميگفتم:

Private Sub Document_New()
Dim a
a = Selection.Range.text
MsgBox a
End Sub


thanks
فردان
14-04-2010, 10:01
ضمن تشكر با توجه به اين كه در اين بحث ماهر مي باشيد سوال ديگري كه بي ربط هم نيست دارم
چطور مي توانم در Word به منوي فونتهاي word دسترسي داشته باشم و آنها در در يك‌ آرايه كپي كنم.
با تشكر فراوان
AQOUA
15-04-2010, 07:48
با سلام
بهتره بيشتر توضيح بدين!
ولي:

Private Sub Document_New()

Dim myarr() As String

cnt = Application.FontNames.Count

ReDim myarr(1 To cnt)

For i = 1 To cnt

myarr(i) = Application.FontNames(i)

Next


End Sub


با تشكر
blackrose2196
28-12-2010, 04:50
سلام
آیا میشه تو ورد یه نوع ماکرو تعریف کرد به صورتیکه بشه با اون اطلاعات خاصی رو از توی فایل ورد استخراج کرد و توی یک فایل دیگه ریخت.
مثلا فرض کنید فایل ورد ما 50 صفحه است که شامل 50 تا نامه است و اطلاعاتی که ما نیاز داریم بین دو کلمه "باستحضار می رساند" و "مبذول فرمایید" است. میشه یه کدی نوشت که تمام ناحیه های بین این دو کلمه انتخاب بشه و کپی بشه توی یه فایل دیگه؟