once i asked in this forum, how could I select the text between 2 marks, The
marks were the first asteristic and the paragraph mark
I wrote an example;
with this text:
P*1.1*Antecedentes*Hasta la fecha actual*
x*a1* este es el anexo primero**17
A*a1* este es el apendice primero
and with the macro that Helmut Weber provided me, I was able to extract, for
example, this text: "1.1*Antecedentes*Hasta la fecha actual*"
I remembered the macro:
--------------------------------------------------
Sub Macro7()
Dim rTMp As Range
Set rTMp = selection.Paragraphs(1).Range
If rTMp.Characters(1) = "x" Then
rTMp.start = rTMp.start + 1
rTMp.End = rTMp.End - 1
rTMp.Select
' which is redundant
' for retrieving the text
MsgBox rTMp
Else
Exit Sub
End If
End Sub
--------------------------------------
it was ok, but now I need that the macro be more general. For example ->the
text between 2 asteristic.
i know to do it with the firs part (that only has a word), but when it has
more than a word, i don't know how to do it.
dim uno as string
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "*"
.Replacement.Text = " * "
End With
Selection.Find.Execute Replace:=wdReplaceOne
uno = ActiveDocument.Paragraphs(3).Range.Words(2)
Can you help me please?thanks!