Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Du verwendest einen veralteten Browser. Es ist möglich, dass diese oder andere Websites nicht korrekt angezeigt werden. Du solltest ein Upgrade durchführen oder einen alternativen Browser verwenden.
Diskutiere Fusszeile selektieren im Microsoft Office Suite Forum im Bereich Office-Produkte; Hallo Zusammen
PANIK! :o :'(
Hat jemand von euch schon ein Makro geschrieben dass beim öffnen des Worddokument aufgeht und mit einem Radiobutton...
#1
T
trollchen
Guest
Hallo Zusammen
PANIK! :'(
Hat jemand von euch schon ein Makro geschrieben dass beim öffnen des Worddokument aufgeht und mit einem Radiobutton die gewünschte Fusszeile selektiert werden kann (Auswahl aus drei Adressen)...
bin für JEDE Hilfe dankbar!
Liebe Grüsse Trollchen
#2
M
Matjes
Bekanntes Mitglied
Dabei seit
22.08.2001
Beiträge
2.308
Reaktionspunkte
0
Hallo trollchen,
das müßtest du etwas genauer beschreiben.
Etwa so:
Beim Öffnen eines neuen Dokumentes soll eine Userform aufgehen, auf der 3 verschiedene Fußzeilen beschrieben sind. Der Nutzer kann eine von dreien per Radio-button auswählen. Wenn der Bestätigunsbutton OK betätigt wird, wird im neuen Dokument die ausgewählte Fußzeile eingetragen.
2.Frage: Woher sollen die Fußzeilen bezogen werden ?
Gruß Matjes
#3
T
trollchen
Guest
Hallo Matjes
genau so ist es angedacht...
Die Fusszeilen können direkt in der Source des Makros hinterlegt sein. Oder was auch immer am einfachsten ist... ???
Diese bleiben eigentlich fix.
Hast du eine Idee wie ich das realisieren kann? evt. schon etwas ähnliches gemacht?
Liebe Grüsse Trolli
#4
T
trollchen
Guest
also...
Bis hier bin ich gekommen...
Private Sub CommandButton1_Click()
Hier soll die entsprechende Adresse ausgelesen werden und eingetragen werden...
Danach das Fenster geschlossen....
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
Selection.TypeText Text:=Line1Wass muss hier stehen?
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Selection.TypeParagraph
Selection.TypeText Text:=Line2Wass muss hier stehen?
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Selection.TypeParagraph End Sub
Private Sub Label1_Click()
End Sub
Private Sub OptionButton1_Click()
Line1 = Zeile 1 der Adresse 1
Line2 = Zeile 2 der Adresse 1
End Sub
Private Sub OptionButton2_Click()
Line1 = Zeile 1 der Adresse 2
Line2 = Zeile 2 der Adresse 1
End Sub
Private Sub OptionButton3_Click()
Line1 = Zeile 1 der Adresse 3
Line2 = Zeile 2 der Adresse 3