--- ИЗМЕНИТЬ --- Слово VBA - найти «-» внутри слова и оставить слово

Question

OLD ----- Как я могу это сделать? Я пробовал с этим, но он сработал ant execute

Sub Sintesis() 

      With ActiveDocument.Content.Find 
       .Text = "([^$])" & "-^p" 
       .Replacement.Text = "\1" 
       .MatchWildcards = True 
       .Execute Replace:=wdReplaceAll 


      End With 
End sub 

Некоторая помощь? Прежде чем кто-нибудь скажет мне об этом, я предпочитаю делать это с помощью find/replace вместо Regex END OLD -----

Я видел, что частично решал свою реальную проблему. Мне действительно нужно удалить строку «-» между двумя половинами слова. Я не могу заменить «-» на «», потому что в моем тексте есть несколько правильных строк, таких как первый.

я на самом деле нужно CONVER это: "Blablablablabla" Into: "Blablablablabla"

Answer 1

Вы можете сделать это с помощью регулярных выражений. Используя следующую рекурсивную процедуру

Sub ReplaceHyphens() ' Make sure you add a reference to Microsoft VBScript Regular Expressions 5.5 
    Dim rex As New RegExp 
    rex.Pattern = "(.)-(.)" 
    rex.Global = False 
    Dim str As String: str = ActiveDocument.Content 
    Dim mtch As Object 
    If rex.Test(str) Then 
     ActiveDocument.Content = rex.Replace(ActiveDocument.Content, rex.Execute(str)(0).SubMatches(0) & ActiveDocument.Content, rex.Execute(str)(0).SubMatches(1)) 
     ReplaceHyphens 
    Else 
     Exit Sub 
    End If 
End Sub 

Answer 2

Решенные:

Sub FindDash() 
With Selection.Find 
       .Text = "([0-9A-z])- ([0-9A-z])" 
       .Replacement.Text = "\1\2" 
       .Forward = True 
       .Wrap = wdFindContinue 
       .MatchWildcards = True 
       .Execute Replace:=wdReplaceAll 
      End With 
End Sub