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

[فردان]

در قسمت ماكرو نويسي word قسمت VBA مي خواستم كلمه اي را كه در متن word انتخاب كرده ام را در يك متغير ذخيره كنم تا بتوانم بقيه برنامه مورد نظرم را بنويسم خواهشمندم مرا راهنمايي كنيد.
با تشكر فراوان

[AQOUA]

با سلام
من دقيقا نفهميدم منظورتون چيه؟!!!!

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

با تشكر

[فردان]

با سلام
من دقيقا نفهميدم منظورتون چيه؟!!!!

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]

با تشكر از عنايت جنابعالي
من در word هستم و مي خواهم ماكرويي بنويسم كه متن انتخاب شده (select شده) را بگيرد و در متغيري ذخيره كند. در اين حالت نه تكس باكس دارم و نه كامند.
با تشكر فراوان

خوب در بخش ماكرونويسي word هم ابزار وجود داره!
شما نميخواي از هيچ ابزاري كمك بگيري يا نميدوني ابزاري وجود داره؟!
با تشكر

[فردان]

خوب در بخش ماكرونويسي word هم ابزار وجود داره!
شما نميخواي از هيچ ابزاري كمك بگيري يا نميدوني ابزاري وجود داره؟!
با تشكر

نمي دانم. لطفا كد مورد نظر را برايم بنويسيد.
با تشكر فراون

[فردان]

خوب در بخش ماكرونويسي word هم ابزار وجود داره!
شما نميخواي از هيچ ابزاري كمك بگيري يا نميدوني ابزاري وجود داره؟!
با تشكر

اگر مقصود شما قسمت ظبط ماكرو است كه بايد عرض كنم ظبط ماكرو فقط كارهايي را كه شما عملا در ورد انجام دهيد را عينا ظبط و دوباره اجرا مي كند.
در حالي كه كاري كه من مي خواهم در قسمت كد نويسي آن انجام دهم كاري نيست كه بتوانم عملا انجام دهم تا خود ورد آن را ظبط كند.
پس اشكال من در كد نويسي ورد است لطفا راهنمايي بفرماييد.
با تشكر فراوان

[AQOUA]

اگر مقصود شما قسمت ظبط ماكرو است كه بايد عرض كنم ظبط ماكرو فقط كارهايي را كه شما عملا در ورد انجام دهيد را عينا ظبط و دوباره اجرا مي كند.
در حالي كه كاري كه من مي خواهم در قسمت كد نويسي آن انجام دهم كاري نيست كه بتوانم عملا انجام دهم تا خود ورد آن را ظبط كند.
پس اشكال من در كد نويسي ورد است لطفا راهنمايي بفرماييد.
با تشكر فراوان

نه خير. من با 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]

سلام.
من میخوام اطلاعاتی که در لیبل هایی برنامه وجود داره مثلا آدرس خونه, شماره تلفن و بالاخره هر چیزی که در برنامه وجود داره رو با زدن یک دکمه همه اونها توی Word Pad کپی بشه
البته به صورتی که خودم میخوام.
لطفا راهنمایی کنید.
راهنمایی 5 یا 6 خطی نه راهنمایی نیم خطی.

[فردان]

نه خير. من با 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]

ضمن تشكر از عنايت جنابعالي
بايد به عرض برسانم كه من نمي خواهم متني را در textbox بنويسم و آن را انتخاب كنم بلكه متن مورد نظر من در صفحه word نوشته شده و آن را انتخاب كرده ام. حالا مي خواهم در ماكرو آن را به يك متغير نسبت دهم.
لطفا راهنمايي بفرماييد.
با تشكر فراوان

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

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

thanks