در قسمت ماكرو نويسي word قسمت VBA مي خواستم كلمه اي را كه در متن word انتخاب كرده ام را در يك متغير ذخيره كنم تا بتوانم بقيه برنامه مورد نظرم را بنويسم خواهشمندم مرا راهنمايي كنيد.
با تشكر فراوان
Printable View
در قسمت ماكرو نويسي word قسمت VBA مي خواستم كلمه اي را كه در متن word انتخاب كرده ام را در يك متغير ذخيره كنم تا بتوانم بقيه برنامه مورد نظرم را بنويسم خواهشمندم مرا راهنمايي كنيد.
با تشكر فراوان
با سلام
من دقيقا نفهميدم منظورتون چيه؟!!!!
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 شده) را بگيرد و در متغيري ذخيره كند. در اين حالت نه تكس باكس دارم و نه كامند.
با تشكر فراوان
خوب در بخش ماكرونويسي word هم ابزار وجود داره!نقل قول:
شما نميخواي از هيچ ابزاري كمك بگيري يا نميدوني ابزاري وجود داره؟!
با تشكر
نمي دانم. لطفا كد مورد نظر را برايم بنويسيد.نقل قول:
با تشكر فراون
اگر مقصود شما قسمت ظبط ماكرو است كه بايد عرض كنم ظبط ماكرو فقط كارهايي را كه شما عملا در ورد انجام دهيد را عينا ظبط و دوباره اجرا مي كند.نقل قول:
در حالي كه كاري كه من مي خواهم در قسمت كد نويسي آن انجام دهم كاري نيست كه بتوانم عملا انجام دهم تا خود ورد آن را ظبط كند.
پس اشكال من در كد نويسي ورد است لطفا راهنمايي بفرماييد.
با تشكر فراوان
نه خير. من با 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
با تشكر
سلام.
من میخوام اطلاعاتی که در لیبل هایی برنامه وجود داره مثلا آدرس خونه, شماره تلفن و بالاخره هر چیزی که در برنامه وجود داره رو با زدن یک دکمه همه اونها توی Word Pad کپی بشه
البته به صورتی که خودم میخوام.
لطفا راهنمایی کنید.
راهنمایی 5 یا 6 خطی نه راهنمایی نیم خطی.
ضمن تشكر از عنايت جنابعالينقل قول:
بايد به عرض برسانم كه من نمي خواهم متني را در textbox بنويسم و آن را انتخاب كنم بلكه متن مورد نظر من در صفحه word نوشته شده و آن را انتخاب كرده ام. حالا مي خواهم در ماكرو آن را به يك متغير نسبت دهم.
لطفا راهنمايي بفرماييد.
با تشكر فراوان
اگه شما از اول همين رو گفته بوديد، منم ميگفتم:نقل قول:
Private Sub Document_New()
Dim a
a = Selection.Range.text
MsgBox a
End Sub
thanks
ضمن تشكر با توجه به اين كه در اين بحث ماهر مي باشيد سوال ديگري كه بي ربط هم نيست دارم
چطور مي توانم در Word به منوي فونتهاي word دسترسي داشته باشم و آنها در در يك آرايه كپي كنم.
با تشكر فراوان
با سلام
بهتره بيشتر توضيح بدين!
ولي:
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
با تشكر
سلام
آیا میشه تو ورد یه نوع ماکرو تعریف کرد به صورتیکه بشه با اون اطلاعات خاصی رو از توی فایل ورد استخراج کرد و توی یک فایل دیگه ریخت.
مثلا فرض کنید فایل ورد ما 50 صفحه است که شامل 50 تا نامه است و اطلاعاتی که ما نیاز داریم بین دو کلمه "باستحضار می رساند" و "مبذول فرمایید" است. میشه یه کدی نوشت که تمام ناحیه های بین این دو کلمه انتخاب بشه و کپی بشه توی یه فایل دیگه؟