Avatar billede ut Nybegynder
09. august 2005 - 10:48

Oprette link til fodnote i hoveddokument og fodnote i separat dok

Med brug af VBA i FrontPage har jeg lavet en formular, der opretter et link fra en fodnote samtidig med at den opretter den fodnote, som linket henviser til. Denne fodnote appendes sidst i det FrontPage-dokument, som jeg arbejder i. I formularen indtaster jeg
a) det relevante fodnotenummer
b) det sidetal, hvor fodnoten står
c) selve fodnote-teksten (pastes ind)
Den centrale del af formularkoden ser sådan ud:

Private Sub cmdOK_Click()
Dim tekst As String
Dim anker As String
Dim ankertekst As String
Dim objRange As Object
Dim objDoc As FPHTMLDocument

  If frmFodnotelink.txtFN.Text = "" Or frmFodnotelink.txtST.Text = "" Or frmFodnotelink.txtFT.Text = "" Then
    MsgBox "Udfyld alle felter, før du klikker OK"
  frmFodnotelink.hide
  frmFodnotelink.Show
  Else
      tekst = "<a target=""_self"" href=""#Fodnote " & frmFodnotelink.txtFN.Text & ", side " & frmFodnotelink.txtST.Text & """> Fodnote " & txtFN.Text & ", side " & txtST.Text & ".</a>"
      ankertekst = "Fodnote " & frmFodnotelink.txtFN.Text & ", side " & frmFodnotelink.txtST.Text & ": " & frmFodnotelink.txtFT.Text & ". Fodnote slut."
      anker = "<a name=""Fodnote " & frmFodnotelink.txtFN.Text & ", side " & frmFodnotelink.txtST.Text & """>" & ankertekst & "</a>"

      Set objRange = ActiveDocument.Selection.createRange
      Set objDoc = ActiveDocument
      objRange.pasteHTML tekst
      objDoc.body.insertAdjacentHTML where:="beforeEnd", HTML:="<p>" & anker & "</p>"
     
  frmFodnotelink.txtFN.Text = ""
  frmFodnotelink.txtST.Text = ""
  frmFodnotelink.txtFT.Text = ""
  frmFodnotelink.hide
  End If

End Sub

Men i stedet for at oprette fodnoten i hoveddokumentet har jeg brug for at oprette det i et separat dokument. Så jeg har brug for en kode, der flytter fokus tildet separate dokument med fodnoterne, paster fodnoten ind og dernæst flytter fokus tilbage til hoveddokumentet. Er der nogen, der har et forslag til, hvordan det gøres?

(Spørgsmålet har tidligere ligget under 'FrontPage' uden at der kom svar. Prøver nu i denne kategori)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester