עזרה ב-visual basic של word
יש לי קוד כזה:
(מדובר בקובץ וורד בעל שורה אחת עם הטקסט "some text").
Dim range1 As Range
Set range1 = ActiveDocument.Range
Set range1 = range1.Paragraphs(1).Range
'מוסיף את אותו הטקסט לשורה השנייה, ומחזיר את הטווח לשורה הראשונה.
range1.InsertParagraphAfter
range1.InsertAfter ("some text")
Set range1 = range1.Paragraphs(1).Range
If range1.Text = range1.Paragraphs(1).Next.Range.Text Then
MsgBox ("true1")
End If
If range1.Text = "some text" Then
MsgBox ("true2")
End If
מישהו יכול להסביר לי למה התנאי הראשון עובד והשני לא? הרי זה אותו דבר בעצם...
תודה!
יש לי קוד כזה:
(מדובר בקובץ וורד בעל שורה אחת עם הטקסט "some text").
Dim range1 As Range
Set range1 = ActiveDocument.Range
Set range1 = range1.Paragraphs(1).Range
'מוסיף את אותו הטקסט לשורה השנייה, ומחזיר את הטווח לשורה הראשונה.
range1.InsertParagraphAfter
range1.InsertAfter ("some text")
Set range1 = range1.Paragraphs(1).Range
If range1.Text = range1.Paragraphs(1).Next.Range.Text Then
MsgBox ("true1")
End If
If range1.Text = "some text" Then
MsgBox ("true2")
End If
מישהו יכול להסביר לי למה התנאי הראשון עובד והשני לא? הרי זה אותו דבר בעצם...
תודה!