VBA: Ta fram fält man har satt in m.h.a. bokmärken

1 svar · 294 visningar · startad av GrodanBoll 13 maj 2003

GrodanBollMedlem sedan sep. 2001788 inlägg

Trådstart13 maj 2003 09:29#1

Tjo på er

Jag har gjort ett formulär som ska användas i Word. I formuläret skriver jag in text i en bunke fält, dessa fält läggs sedan in i bokmärken som jag har lagt i Wordfilen.
Men hur gör jag om jag vill få upp dessa fält i formuläret igen, för t.ex. redigering?
Det funkar ju inte att accessa dem via

ActiveDocument.Bookmarks("Bokmärksnamn").Range.Text

Ska man kanske spara ner alla fält i variabler? Men då funkar de väl inte om man sparar filen, stänger filen och sedan öppnar den igen?

Vore sketatacksam för lite hjälp.

/Grodan

GrodanBollMedlem sedan sep. 2001788 inlägg

13 maj 2003 13:35#2

Hittade efter mycket om och men grejor på nätet.
Jag beskriver lösningen nedan. Alltid hjälper det någon.

Man ska alltså se till att inte förlora bokmärket när man lägger in text i det.
Der man behöver göra e att ersätta bokmärkt med texten och sedan trixa in bokmärket igen runt texten mamn la in.

Jag hittade denna kodsnutten som gör det (som jag sedan la i en sub).

Sub UpdateBookmark(BookmarkToUpdate As String, TextToUse As String)
    Dim BMRange As Range
    Set BMRange = ActiveDocument.Bookmarks(BookmarkToUpdate).Range
    BMRange.Text = TextToUse
    ActiveDocument.Bookmarks.Add BookmarkToUpdate, BMRange
End Sub

Sen hämtar man texten via

strBokmarke = ActiveDocument.Bookmarks("NamnPaBokmarke").Range.Text

/Grodan