Thema: Ersten mit einem neuen Buchstaben beginnenden Namen fett schreiben

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

Beiträge aus dem Excel-Forum zu den Themen Feature und Bedingt