Выполнение действия с использованием VBA

У меня есть блок текста в текстовом файле MS, как показано ниже:

[[ul]]
•   For the near term, all Cendoc content will be ingested into the NextBook_Cendoc_June2011 database. 
•   You must navigate to and open this database before you can ingest Cendoc XML. 
•   You can locate this database for the first time by selecting the DATABASE option from the blue navigation bar at the top of the screen. Select the “Browse all database/choose a database” option. Select the “NextBook_Cendoc_June2011” link from the menu. 
[[/ul]]

И мне нужен вывод, как показано ниже, используя VBA


For the near term, all Cendoc content will be ingested into the NextBook_Cendoc_June2011 database.
You must navigate to and open this database before you can ingest Cendoc XML.
You can locate this database for the first time by selecting the DATABASE option from the blue navigation bar at the top of the screen. Select the “Browse all database/choose a database” option. Select the “NextBook_Cendoc_June2011” link from the menu.

Что мне делать?

1
nl ja de
Поиск и замена? Вы можете записать действие поиска и замены в качестве макроса VBA и изменить его, чтобы вы могли снова использовать его.
добавлено автор Olle Sjögren, источник
Что вы подразумеваете под не происходит ? Не ищет [[ul]] и заменяет его на , или это то, что вы не хотите так поступать?
добавлено автор Olle Sjögren, источник
Не путем поиска и замены. Это не так.
добавлено автор Umesh Kahali, источник
Дорогой сэр, я хочу, чтобы блок действий был настроен не индивидуально. Поскольку в документе больше таких списков.
добавлено автор Umesh Kahali, источник

1 ответы

Ну, я сделал то, что предложил, и записал для вас поиск и замену макроса, и именно это я и придумал.

Option Explicit

Sub SearchAndReplace()

    Selection.HomeKey Unit:=wdStory

    With Selection.Find
        .Text = "[[ul]]"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


    With Selection.Find
        .Text = "•   "
        .Replacement.Text = _
            ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


    With Selection.Find
        .Text = "[[/ul]]"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub
1
добавлено
Также см. Следующий ответ: stackoverflow.com/questions/13465709/…
добавлено автор Olle Sjögren, источник