Microsoft Excel

Herbers Excel/VBA-Archiv

zu Textmarke in Word springen

Betrifft: zu Textmarke in Word springen von: Bernhard
Geschrieben am: 20.08.2014 16:00:21

Hallo zusammen,

ich möchte aus einem Marko in Excel eine Word Datei öffnen und in dieser zu einer Textmarke springen, um dann verschiedenen Texte einzufügen.
Es erscheint jedoch der Laufzeitfehler: 5102
Sie haben für eine Seite, Zeile, Fußnote, Endnote oder Anmerkung mehrere Bestimmungsorte angegeben.

Vielen Dank schon mal.

Sub zu_Textmarke_springen()

    Dim appWord As Object
    Dim docTest As Object
 
    Set appWord = CreateObject("Word.Application")
    Set docTest = appWord.Documents.Add("C:\Textdatei.docx")
    
    appWord.Visible = True
    
    With appWord
    .Selection.Goto What:=wdGoToBookmark, Name:="myTextmarke"       'hier Laufzeitfehler: 5102
    End With
        
    'Hier wird dann das Einfügen verschiedener Texte vorgenommen
        
    appWord.Activate

    Set appWord = Nothing
    Set docTest = Nothing
    
End Sub

  

Betrifft: Textmarken... von: Case
Geschrieben am: 20.08.2014 16:32:24

Hallo, :-)

... sind Elemente des Dokumentes nicht der Applikation. ;-)

Textmarken müssen nicht selektiert werden um dort reinzuschreiben.

Excel2Word in Textmarken (Bookmarks)...

Servus
Case



  

Betrifft: AW: Textmarken... von: Bernhard
Geschrieben am: 20.08.2014 17:43:02

Hallo Case,

danke für den Link. Allerdings möchte ich über eine Schleife eine Vielzahl von Texten an der Textmarke einfügen. Ist daher auch ein "Hinspringen" direkt zur Textmarke möglich, um dann über .Selection.TypeText die Texte einzufügen.

Hier das Beispiel, in welcher Form die Texte aus einem Arrays geschrieben werden sollen:

For SubPos = 1 To SubPositionen(1, 0)
With appWord
.Selection.TypeText Text:=SubPositionen(1, SubPos)
.Selection.TypeParagraph
End With
Next SubPos


  

Betrifft: AW: Textmarken... von: Bernhard
Geschrieben am: 20.08.2014 17:47:24

Vielleicht ist das auch ein "Hinspringen" direkt zur Textmarke möglich.

Danke schon mal für Tips.


  

Betrifft: Wenn Du zu einer... von: Case
Geschrieben am: 20.08.2014 21:12:52

Hallo, :-)

... Textmarke springen willst, dann so:

docTest.Bookmarks("myTextmarke").Range.Select
Zu Textmarken lies auch mal das hier:

Working with Bookmarks in VBA...

Insbesondere der letzte Absatz, wenn Du mehrere Dinge in eine Textmarke schreiben willst.

Servus
Case



  

Betrifft: Läuft - Vielen Dan von: Bernhard
Geschrieben am: 21.08.2014 10:39:48

Vielen Dank, Case. Jetzt läuft es wunderbar.


 

Beiträge aus den Excel-Beispielen zum Thema "zu Textmarke in Word springen"