Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Sub TextAuslesen(strBookmark As String)
Dim myRange As Range
Documents("Wicklungsdiagnose UB TextBasis.doc").Activate
Set myRange = ActiveDocument.Range(Start:=ActiveDocument.Bookmarks(strBookmark).Start, _
End:=ActiveDocument.Bookmarks("RotorFehlerstrommessung5").Start)
myRange.Select
myRange.Copy
End Sub