Gruppe
Feature
Bereich
Bedingt
Thema
Ersten mit einem neuen Buchstaben beginnenden Namen fett schreiben
Problem
Wie kann ich veranlassen, dass in einer Spalte der erste mit einem neuen Buchstaben beginnende Name mit dem Schriftattribut fett dargestellt wird.
Lösung
Formel für die bedingte Formatierung: =LINKS(A1;1)<>LINKS(A65536;1)
StandardModule: basMain
Sub WordImport()
Dim appWord As Object
Dim docWord As Object
Dim rngWord As Object
Dim sFile As String
sFile = Range("B1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Word-Dokument wurde nicht gefunden!"
Exit Sub
End If
Set appWord = CreateObject("Word.Application")
Set docWord = appWord.Documents.Open(sFile)
Set rngWord = docWord.Paragraphs(1).Range
rngWord.Copy
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Paste
appWord.Quit
Set rngWord = Nothing
Set docWord = Nothing
Set appWord = Nothing
End Sub