Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1860to1864
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
Inhaltsverzeichnis

Userform Label Bookmarks

Userform Label Bookmarks
04.01.2022 20:05:48
Everlost03
Hallo zusammen,
ich habe eine Userform mit mehreren Labeln die sich dynamisch füllen. Ich würde gerne via CMDButton eine Wordvordruck öffnen und die LableCaption (aus der Userform) in Word-Formularfelder übertragen.
Z.B. Nachname.Caption = Formularfeld für den Nachnamen. Komme da allerdings nicht weiter.
LG

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform Label Bookmarks
04.01.2022 21:24:48
ralf_b
das gehört wenn überhaupt, dann so Formularfeld = Nachname.Caption
Suche dir für den Rest doch erstmal nen Codestück aus dem Netz. Und dann stell eine Beispieldatei ein. Man könnte sonst glauben du bist nur auf Einkaufstour.
AW: Userform Label Bookmarks
05.01.2022 01:52:26
Everlost03
Das meiste stand schon, halt nur auf Exeltabellen bzw. Zellen gemünzt.
Konnte es jetzt erfolgreich umbauen und es ist umsonst! ;-)
Option Explicit
Private Declare PtrSafe Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function ShowWindow Lib "user32.dll" ( _
ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
Private Declare PtrSafe Function GetWindowThreadProcessId Lib "user32.dll" ( _
ByVal hWnd As Long, _
ByRef lpdwProcessId As Long) As Long
Private Declare PtrSafe Function AllowSetForegroundWindow Lib "user32.dll" ( _
ByVal dwProcessId As Long) As Long
Private Declare PtrSafe Function SetForegroundWindow Lib "user32.dll" ( _
ByVal hWnd As Long) As Long
Private Const GC_CLASSNAMEWORD = "OpusApp"
Private Const SW_MAXIMIZE = 3

Private Sub CommandButton1_Click()
Dim appWord As Object
Dim test As Object
Set appWord = CreateObject("Word.Application")
appWord.WindowState = 1
appWord.Visible = True
Set test = appWord.Documents.Add("C:\Users\Documents\test.docx")
test.ActiveWindow.Activate
test.Bookmarks("test1").Range.Text = "Nachname.Caption"
test.Bookmarks("test2").Range.Text = "Nachname.Caption"
test.Bookmarks("test3").Range.Text = "Nachname.Caption"
test.Bookmarks("test4").Range.Text = "Nachname.Caption"
Dim lngHwnd As Long, lngProcessID As Long
lngHwnd = FindWindow(GC_CLASSNAMEWORD, vbNullString)
If lngHwnd = 0 Then Err.Raise Number:=vbObjectError, Description:= _
"Das Fensterhandle von Word kann nicht ermittelt werden."
lngProcessID = GetWindowThreadProcessId(lngHwnd, ByVal 0&)
Call AllowSetForegroundWindow(lngProcessID)
Call SetForegroundWindow(lngHwnd)
Call ShowWindow(lngHwnd, SW_MAXIMIZE)
Set test = Nothing
Set appWord = Nothing
End Sub

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige