Wie VBA zu dem Extrahieren von Text in einer Zeichenfolge zwischen zwei Zeichen verwandt wird?

Question

Ich arbeite an einem Dokument der Pressemitteilung Artikel und versuchen, die Firmennamen aus dieser Word-Datei in Excel-Arbeitsblatt zu extrahieren.

zum Beispiel: aus diesem kurzen Absatz unten, ich will MI Developments Inc

^{AURORA, ON, den 29. März/PRNewswire/bekommen - MI Developments Inc. (TSX: MIM. A, MIM.B; NYSE: MIM) ("MID" oder die "Gesellschaft") heute.}

Im Moment habe ich ein Muster um den Namen zu identifizieren gefunden, ist der Name zwischen „/ -„und ‚(‘

Zum Beispiel, wenn ich an den nächsten Eigenschaften sieht nur vor und nach der Name im Zusammenhang wird der Name von MI Developments Inc gezeigt werden, wie fließt:

/ - MI Developments Inc. (

aber ich bin nicht sicher, wie ein Recht VBA-Code auf Wort laufen, den Namen von Unternehmen zu extrahieren Arbeitsblatt zu übertreffen

Answer 1

Sie können Microsoft Office-Platzhaltersuche verwenden. https://support.office.com/en-gb/article/Replace-text-using-wildcards-5cda8b1b-2feb-45a6-af0e-824173d3d6e4 http://word.mvps.org/faqs/general/usingwildcards.htm

Ich bekam Antwort von Gemeinschaft. Versuchen Sie, dies zu optimieren.

Sub demo() 
With ActiveDocument 
Dim StrOut As String, DocNew As Document 
    With .Range 
    With .Find 
     .ClearFormatting 
     .Replacement.ClearFormatting 
     .Forward = True 
     .Format = False 
     .MatchWildcards = True 
     .Wrap = wdFindStop 
     .Text = "\/ - * \(" 
     .Replacement.Text = "" 
     .Execute 
    End With 
    Do While .Find.Found 
     StrOut = StrOut & Replace(Replace(.Text, "/ - ", ""), " (", "") & vbCr 
     .Collapse wdCollapseEnd 
     .Find.Execute 
    Loop 
    End With 
End With 
'Do whatever yo want to do with strOut. 
'I don't have excel experience. 
'I generally save it as text and chnge the ext from .txt to .csv which will open ok with excel. 
Set DocNew = Documents.Add 
With DocNew 
    .Range.Text = StrOut 
    .SaveAs2 FileName:="C:\Users\" & Environ("Username") & "\Desktop\i.txt", _ 
    FileFormat:=wdFormatText, AddToRecentFiles:=False 
    .Close 
End With 
Set DocNew = Nothing 
End Sub 

Answer 2

Suchen InStr:

https://www.google.co.uk/url?sa=t&source=web&rct=j&url=https://msdn.microsoft.com/en-us/library/8460tsh1(v%3Dvs.90).aspx&ved=0ahUKEwi8jpqgoczLAhUDthQKHeJOCt0QFggbMAA&usg=AFQjCNFYY7KkIa4AWNr35OghC--C7GJeVQ&sig2=0vAixZ8y8x9zlX_lNz6I4g

Und Mid nachschauen:

https://msdn.microsoft.com/en-us/library/05e63829(v=vs.90).aspx

Und sehen die Trim mich thoden:

https://msdn.microsoft.com/en-us/library/h9wz3dez(v=vs.90).aspx

Verwenden InStr die erste Zeichenposition zu finden - und (.

Ermitteln Sie die Anzahl der Zeichen zwischen zwei Positionen.

Verwenden Sie jetzt Mid, um den Text in eine andere Variable zu extrahieren.

Ich würde dann Trim verwenden, um Whitespace loszuwerden.