Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1520to1524
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1520to1524
1520to1524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bookmarks abfragen u. Werte zuweisen

Bookmarks abfragen u. Werte zuweisen
08.11.2016 10:59:26
Max2
Hallo Leute,
ich habe eine UserForm in Word, welche je nach Auswahl ein Dokument öffnet, die dort enthaltenen Bookmarks werden dann durch Variablen ersetzt.
Mein Problem: Die Dokumente haben teilweise unterschiedlich viele Bookmarks
ich mache dass mit den Bookmarks so bis jetzt: 

Dim objStrHausNr As Object
Set objStrHausNr = objDoc.Bookmarks("StrHausNr")
objStrHausNr.Range.Text = Str(i)
Es sind je nach Dokument 10-15 Bookmarks enthalten, wenn eine Bookmark nicht enthalten ist bekommen ich bei "Set obj... = ..." den Fehlercode 5941
Wie kann ich das umgehen ?
Kann ich mit "1 To Bookmarks.Count" vielleicht was machen?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bookmarks abfragen u. Werte zuweisen
08.11.2016 13:33:35
Max2
So habe ich es bis jetzt versucht: 

For a = 0 To 10
If objDoc.Bookmarks.Exists(Marken(a)) = True Then
Set rngBook = .Bookmarks(Marken(0)).Range
Set objStrHausNr = objDoc.Bookmarks(Marken(0))
objStrHausNr.Range.Text = Str(i)
.Bookmarks.Add Marken(0), rngBook
Set rngBook = Nothing
Set rngBook = .Bookmarks(Marken(1)).Range
Set objDekraTel = objDoc.Bookmarks(Marken(1))
objDekraTel.Range.Text = SekTel(i)
.Bookmarks.Add Marken(1), rngBook
Set rngBook = Nothing
Problem ist dass natürlich alles 11 mal eingefügt wird durch a = 0 To 10.
Nächstes Problem ist, dass ich Querverweise in den Dokumenten habe welche nicht mehr funktionieren da die Alte Textmarke gelöscht wurde und die neue keinen Wert mehr hat...
Wo ist mein fehler ?
Ist meine Range falsch gesetzt ?
Und wie geht das mit den Querverweisen
Anzeige
Nicht gelöst
08.11.2016 13:35:09
Max2
.
AW: Bookmarks abfragen u. Werte zuweisen
08.11.2016 15:22:48
snb
Es wäre besser Docvariables zu verwenden:
sub M_snb()
sn=array("Wezel","Max","Alexanderplatz")
for j=0 to ubound(sn)
activedocument.variables(choose(j+1,"Name","Vorname","strasse"))=sn(j)
next
activedocument.fields.update
End Sub

Danke snb
09.11.2016 10:33:09
Max2
Danke hat super geklappt.

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige