Makro in FP 2000 um Textbaustein in HTML einzufügn

Computer: Software & Programmierung Office Software
1

Hallo zusammen!

Hab die Frage zwar schon im Programmier-Brett gestellt, denk aber, dass sie hier vielleicht besser reinpasst…

Ich will unter Frontpage 2000 mir ein Makro erstellen, dass (verknüpft mit einem Button in der Symbolleiste) mir einen Textbaustein in den HTML-Code! einfügt.
(Es geht um das automatische erstellen einer Java-Script-Tag-Struktur, damit ich die nicht immer manuell eintippen oder kopieren muss)

Programmier sonst nix in Basic und bin auch mit der Online-Hilfe nicht zurecht gekommen…

Bin Dankbar für jeden Hinweise auf eine Makro-Funktion oder andere Lösungen…

Dank im Voraus & Gruß

Benny
2

Hallo Benny

Folgender Code fügt den HTML-Code zum Einfügen einer Grafik am das Ende des Skripts ein:

Sub TestE()
ActiveDocument.body.insertAdjacentHTML _
„BeforeEnd“, „“
End Sub

Gruss
S. Widmer

3

Folgender Code fügt den HTML-Code zum Einfügen einer Grafik am
das Ende des Skripts ein:

Sub TestE()
ActiveDocument.body.insertAdjacentHTML _
„BeforeEnd“, „“
End Sub

Danke für den Tip, aber das Beispiel hat bei mir nicht so richtig funktioniert. (Ich bekam eine Runtime Error #70: Permission denied)

Vielleicht liegt es daran, dass ich mich in der HTML-Ansicht befinde, wenn ich das Makro ausführe. (Das möchte ich aber auch unbedingt sein, da ich sonst immer hin- und herwechseln müsste, wenn ich das Makro ausführe…)

Bin dankbar für weitere Hinweise!

Benny

4

hello again

Nach meinen Recherchen können Sie mittels VBA nur Text oder Code einbringen, wenn die Normal-Ansicht aktiviert ist.

Gruss
S. Widmer

5

Hmm, shit…

Kennst du zufällig nen Befehl um die Ansichten zu wechseln?

Um folgendes zu realisieren…
(Ansicht: Code -> Makro aktiviert -> dieses wechselt in Normal, fügt Text ein und wechselt wieder zurück, sofern das geht…)

thx

Benny

6

Hi Benny,

beim Aufzeichnen mit dem Makrorekorder (hilft manchmal echt weiter :smile: ) erhielt ich folgenden Code (ohne die Kommentare):

’ Umschalten in Normalansicht
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdNormalView
Else
ActiveWindow.View.Type = wdNormalView
End If

’ Hier ist Platz für eigenen Code

'Umschalten in Drucklayout

If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdPrintView
Else
ActiveWindow.View.Type = wdPrintView
End If

Ciao

Uwe

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

7

hey, perfekt, vielen Dank Uwe!

Ja ich weiß, das mit dem Aufzeichnen is ne tolle Sache!
Bei mir geht das in FP (im Gegensatz zu Word oder anderen) aber nicht !

Ich weiß nicht ob es daran liegt, dass ich die englische Version von FP 2000 drauf hab (irgend ein Installationsfehler, der REst des Office is nämlich auf Deutsch…)

Kannst du, wenn bei dir das REcord geht, mal Probieren Aufzuzeichnen während du Text in den HTML-Code einfügst?

thx

Benny

8

hello again

Gruss
S. Widmer

Sub TestH()
savView = ActivePageWindow.ViewMode
ActivePageWindow.ViewMode = fpPageViewNormal
ActiveDocument.body.insertAdjacentHTML _
„BeforeEnd“, „“
ActivePageWindow.ViewMode = savView
End Sub

9

Hallo Uwe

FP2000 verfügt leider über keinen Makro-Recorder.

Gruss
S. Widmer

10

Sorry, nicht richtig gelesen
Hi Benny,

ich habe natürlich Blödsinn geschrieben. Ich war der Meinung Ihr redet über Word. Asche auf mein Haupt.

Ciao

Uwe

11

Hallo Benny

> Situation wie gehabt. Alle Anwendeungen in Deutsch,
> Frontpage in Englisch. Die Hilfefunktionen von Frontpage
> sind hingegen in DEUTSCH. Beim Straten von setlang.exe
> kann ich nur ENGLISCH einstellen, Deutsch ist nicht vorhanden.

gehen Sie zu folgendem Schlüssel in der Registrierdatenbank:
„HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common\LanguageResources“

und ändere Sie hier den Wert (auf der rechten Fensterseite unten) "UILanguage"von „0x00000409 (1031)“ auf „0x00000407 (1031)“. Anschließend werden die Menüeinträge in Microsoft Frontpage 2000 in deutsch angezeigt.

Gruss
S. Widmer