Thema Datum  Von Nutzer Rating
Antwort
27.02.2016 13:17:25 Timbo
NotSolved
Blau Aus Excel in Word Bookmarks setzen
 27.02.2016 17:40:16 Gast81531
NotSolved
27.02.2016 18:24:53 Timbo
NotSolved
27.02.2016 20:14:11 Gast30708
NotSolved
28.02.2016 14:57:31 Gast93554
NotSolved
28.02.2016 17:09:37 Gast89528
NotSolved
29.02.2016 09:26:37 Gast28060
NotSolved
02.03.2016 12:52:10 Gast57465
NotSolved

Ansicht des Beitrags:
Von:
Gast81531		 Datum:
27.02.2016 17:40:16		 Views:
816		 Rating:
     
Antwort:
  Ja
Thema:
Aus Excel in Word Bookmarks setzen

Hallo! Probiere es mal damit. Wobei noch das Speichern und schließen der Word Dokumente fehlt. HInweis noch die Textmarke ist dann die ganze Überschrift. VG

Sub BookmarkSetter()
Dim appWD As Object
Dim objXL As Object
Dim zeilenzahl As Integer
Dim Path As String
Dim j As Integer
Dim i As Integer
Dim aktRange As Range
Dim doc

Dim textmarke As String
Dim suchen As String
Dim inhalt


zeilenzahl = 6
Do Until ActiveWorkbook.Worksheets("Tabelle1").Cells(zeilenzahl, 2).Value = ""
    zeilenzahl = zeilenzahl + 1
    Loop
    zeilenzahl = zeilenzahl - 1
    MsgBox zeilenzahl
    'zeilenzahl - 13
For i = 1 To 1 ' 3
suchen = ActiveWorkbook.Worksheets("Tabelle1").Cells(5 + i, 5).Value
textmarke = ActiveWorkbook.Worksheets("Tabelle1").Cells(5 + i, 2).Value
Set appWD = CreateObject("Word.Application") 'Word als Object starten
appWD.Visible = True

Path = Worksheets("Tabelle1").Cells(5 + i, 3) & "\" & Worksheets("Tabelle1").Cells(5 + i, 4)
Set doc = appWD.Documents.Open(Path)


For Each absatz In doc.paragraphs

    If Len(absatz) > 2 Then inhalt = Left(absatz, Len(absatz) - 1)
    
    If inhalt = suchen And absatz.OutlineLevel = 2 Then
        absatz.Range.Select
        doc.Bookmarks.Add Name:=textmarke
    End If

Next absatz
Next


End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.02.2016 13:17:25 Timbo
NotSolved
Blau Aus Excel in Word Bookmarks setzen
 27.02.2016 17:40:16 Gast81531
NotSolved
27.02.2016 18:24:53 Timbo
NotSolved
27.02.2016 20:14:11 Gast30708
NotSolved
28.02.2016 14:57:31 Gast93554
NotSolved
28.02.2016 17:09:37 Gast89528
NotSolved
29.02.2016 09:26:37 Gast28060
NotSolved
02.03.2016 12:52:10 Gast57465
NotSolved