Hallo, I need help in my bible study.
I must format a text in this form:
1) Where there is a word write in bold characters. I must write before <g> space Txt space and after </g>
Example:[Mat 1,6]
<g> Daui.dto.n </g>
<g> Dabi.dto.n </g> j
<g> Daui.dde. </g> Biz WH
<g> Dabi.dde. </g>
<g> de.evge,nnhsen </g> p<sup>1</sup> ? B G f1 f13 579 700 pc it<sup>g1,k</sup> vg<sup>mss</sup> sir<sup>s,c,p</sup> cop arm
<g> de.o`basileu=jevge,nnhsen </g> C L W D P 33 157 892 1071 Biz vg sir<sup>h</sup> geo j; ND,Dio
I hope that you read Greek.
I had this previous Macro that works only with All UCase. How can be able modify this macro???
Selection.HomeKey wdStory
With Selection.Find
.ClearFormatting
.Font.Bold = True
.Text = "<*>"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
While Selection.Find.Execute
If Selection.Text = UCase(Selection.Text) Then
Do
If Selection.End = ActiveDocument.Range.End Then Exit Do
If Not Selection.Next(wdWord, 1).Font.Bold Then Exit Do
If Selection.Next(wdWord, 1).Text <> UCase(Selection.Next(wdWord, 1).Text) Then Exit Do
Selection.MoveEnd wdWord, 1
Loop
Selection.InsertBefore "<p><b>"
Selection.InsertAfter "</b>"
End If
Selection.Collapse wdCollapseEnd
Wend
Pasquale