Makroer i Word

Hej
Har du overvejet bogmærker og felter?

Hvis du sætter et Bogmærke om teksten i tabellen kan du et andet sted bruge feltet REF til at vise det der står i bogmærket.
f.eks. {REF test }

Husk at opdatere feltet med "Vis udskrift"

Du indsætter bogmærker fra Fanen Indsæt --> Bogmærker og feltet fra Indsæt --> Hurtigdele --> Felter.

Med venlig hilsen

Birthe Lauridsen
Praktisk IT

Det havde jeg ikke overvejet, men kan det bruges når man skal vælge hvilket linie i tabellen man vil bruge?

Hvis kopiering til bogmærke så er det let via en makro.

Har du et fif til hvor man kan lære lidt om det? Jeg går ikke ud fra at jeg bare kan indspille en makro.

Prøv at søge - f.eks. her på Eksperten. Hvis du søger i Programmer / Tekstbehandling / Word / Tables+Bookmark

Hej igen
Under felter er der også et der hedder MacroButton. Den kan du sætte ind i cellen i tabellen.
(se her
http://word.mvps.org/FAQs/tblsfldsfms/usingmacrobutton.htm)

Du kan så oprette en makro der sætter et bogmærke ind (som du så kan bruge i dit REF felt). Din udfordring bliver at navngive bogmærket for de skal jo have forskellige navne. Det tror jeg ikke at du kan optage.

f.eks. ActiveDocument.Tables(1).Cell(1, 1) som er 1. celle i kolonne 1. Bliver til BmA1

(se her: https://msdn.microsoft.com/en-us/library/office/ff838362.aspx)

En anden vinkel er at indsætte bogmærker i teksten og så lade makroen finde bogmærket (Søg med F5) og sætte teksten ind der. Det bliver nok lidt mere simpelt rent kodemæssigt.

Du skal stadig rette i koden så den aflæser cellen, for at finde bogmærket.

Håber det bringer dig lidt videre.

Med venlig hilsen

Birthe Lauridsen
Praktisk IT

Tak. Jeg har ikke lige tid at kigge på det nu, men vender snarest tilbage.

#7 Har konstrueret en lille model, hvis du er interesseret.

#6: Tak for svar. Kigger på det i morgen. Børnene vågner tidligt, så må hellere hoppe i seng.
#8: Den vil jeg da meget gerne se.

Iflg. aftale: http://www.filedropper.com/udfyldbm

#10: Sidder og kigger på det nu. Kan ikke lige se at det virker, men arbejder videre:-)

Hvis man klikker på A'et i den første række udføres den makro som er defineret i relation til det felt - jfr. med billedet heraf.
Makroen er så vist for dette felt. Men den er indlagt i dokumentet.

Tilsvarende skal udføres for de øvrige rækker.

Selve VBA-koden kan godt optimeres.

Ja, ok nu fatter jeg det. Som du nok fornemmer, så er jeg ikke nogen ørn til det her. Jeg ved ikke om jeg evner at skrive VBA-koden om, men jeg tænker at jeg vel bare kan indspille nogle makroer og knytte dem til feltet.

I har begge været meget hjælpsomme. Er det ikke fair at I deler pointene?

Det er ok med deling.

ps: Hvis du er interesseret kan du give mig lidt mere info om din udfordring - så skal jeg hjælpe. Evt. send til @-adressen under min profil.

Når jeg prøver at bruge din VBA, så siger den "Det pågældende medlem af samlingen findes ikke". Hvor definerer man at tabellen er Tables(1)?

tekst1 = Tables(1).Cell(1, 2)
(1) refererer til at det er den første tabel i dokumentet.


Den korte VBA-version til den viste tabel:

Dim ræk As Integer, kol As Integer
Dim antalKol As Integer
Public Sub A_Test()
    udfyldBM 1
End Sub
Public Sub B_Test()
    udfyldBM 2
End Sub
Public Sub C_Test()
    udfyldBM 3
End Sub
Public Sub D_Test()
    udfyldBM 4
End Sub
Public Sub E_Test()
    udfyldBM 5
End Sub
Private Sub udfyldBM(Nr)
    antalKol = ActiveDocument.Tables(1).Columns.Count
       
    For kol = 2 To antalKol
        Bookmarks("bm" & kol - 1).Select
        Selection.TypeText Text:=klargørIndhold(Nr, kol)
    Next kol
End Sub
Private Function klargørIndhold(ræk, kol)
Dim tekst1, tekst2
        tekst1 = Tables(1).Cell(ræk, kol)
        tekst2 = Replace(tekst1, Chr(7), "")
        klargørIndhold = tekst2
End Function

Ok, nu går du amok. Jeg er kommet igang med din første kode. Den kunne jeg til nød gennemskue, men synes den seneste er lidt langhåret. Jeg drikker vist ikke nok cola, og har aldrig prøvet rollespil:-)

Hvis nu jeg vil i stedet for værdien i tabellen vil indsætte værdien / 3. Hvad skal jeg så skrive i VBA-koden?

Nej - jeg går ikke amok, drikker heller ikke cola eller deltager i rollespil - men har arbejdet med programmering i mange år.. :-)

Vender tilbage..

Dim tekst1, tekst2
        tekst1 = Tables(1).Cell(1, 2)
        tekst2 = Replace(tekst1, Chr(7), "")
        Bookmarks("bm1").Select
        Selection.TypeText Text:=tekst2 / 3

Jeg får ikke lige tid til at kigge mere på det i dag. Der skal laves mad til middagsgæster:-)

Ok - god fornøjelse og en god weekend..

Det begynder at dæmre for mig hvad det er du laver i koden. Lige nu bøvler jeg med at få word til at vise mig hvor mine bogmærker er. Jeg har sat flueben i "vis bogmærker", men det giver ingenting - grrrrr. Vender tilbage.

Hvilken version af Word anvender du?

Jeg forstår ikke lige hvad der sker i denne sætning:

tekst2 = Replace(tekst1, Chr(7), "")

Kan du kaste lys over sagen?

Aha, nu forstår jeg hvorfor mine bogmærker slettes i dokumentet. Jeg har åbenbart ikke forstået hvad bogmærker er. Jeg troede man kunne indsætte samme bogmærke flere steder i dokumentet, men det kan man åbenbart ikke. Jeg har brug for at samme værdi fra en tabel indsættes flere steder i dokumentet.

Jeg har egentlig fået din kode til at spille, men som ovenfor nævnt, så har jeg misforstået det med bogmærkerne. Derfor har jeg brug for at indsætte mange flere bogmærker. Jeg har brug for følgende:

bm1=kol2
bm2=kol2
bm3=kol3
bm4=kol2/2 (1 decimal)
bm5=kol3/2 (1 decimal)
bm6=kol2/3 (1 decimal)
bm7=kol3/3 (1 decimal)
bm8=kol2/3 (1 decimal)
bm9=kol3/3 (1 decimal)
bm10=kol3
bm11=kol2/3 (1 decimal)
bm12=kol2
bm13=kol2

Giver det mening?

#25 Det er for at fjerne det tegn som findes sidste i celle

Nu er jeg nået frem til følgende:

Dim ræk As Integer, kol As Integer
Public Sub A_udfyld()
    udfyldBM 1
End Sub
Public Sub B_udfyld()
    udfyldBM 2
End Sub
Public Sub C_udfyld()
    udfyldBM 3
End Sub
Public Sub D_udfyld()
    udfyldBM 4
End Sub
Public Sub E_udfyld()
    udfyldBM 5
End Sub
Public Sub F_udfyld()
    udfyldBM 6
End Sub
Public Sub G_udfyld()
    udfyldBM 7
End Sub
Public Sub H_udfyld()
    udfyldBM 8
End Sub
Public Sub I_udfyld()
    udfyldBM 9
End Sub
Private Sub udfyldBM(Nr)
    Bookmarks("bm1").Select
    Selection.TypeText Text:=klargørIndhold(Nr + 1, 2)
    Bookmarks("bm2").Select
    Selection.TypeText Text:=klargørIndhold(Nr + 1, 2)
    Bookmarks("bm3").Select
    Selection.TypeText Text:=klargørIndhold(Nr + 1, 3)
    Bookmarks("bm4").Select
    Selection.TypeText Text:=klargørIndhold(Nr + 1, 2) / 2
    Bookmarks("bm5").Select
    Selection.TypeText Text:=klargørIndhold(Nr + 1, 3) / 2
    Bookmarks("bm6").Select
    Selection.TypeText Text:=klargørIndhold(Nr + 1, 2) / 3
    Bookmarks("bm7").Select
    Selection.TypeText Text:=klargørIndhold(Nr + 1, 3) / 3
    Bookmarks("bm8").Select
    Selection.TypeText Text:=klargørIndhold(Nr + 1, 2) / 3
    Bookmarks("bm9").Select
    Selection.TypeText Text:=klargørIndhold(Nr + 1, 3) / 3
    Bookmarks("bm10").Select
    Selection.TypeText Text:=klargørIndhold(Nr + 1, 3)
    Bookmarks("bm11").Select
    Selection.TypeText Text:=klargørIndhold(Nr + 1, 2) / 3
    Bookmarks("bm12").Select
    Selection.TypeText Text:=klargørIndhold(Nr + 1, 2)
    Bookmarks("bm13").Select
    Selection.TypeText Text:=klargørIndhold(Nr + 1, 2)
End Sub
Private Function klargørIndhold(ræk, kol)
Dim tekst1, tekst2
        tekst1 = Tables(1).Cell(ræk, kol)
        tekst2 = Replace(tekst1, Chr(7), "")
        klargørIndhold = tekst2
End Function

Det er måske ikke så sexet, men det gør jobbet. Det eneste jeg savner er at få rundet af til 1 decimal. Det ville også være fedt hvis der var en "trim" funktion. Det ser ud til at der bliver indsat en masse mellemrum, kan det passe?

Der er også det problem, at der bliver indsat linieskift, der hvor der bliver indsat tal fra tabellen :-(

Nu med afrunding. Men det der linieskift driller stadig.

Dim ræk As Integer, kol As Integer
Public Sub A_udfyld()
    udfyldBM 1
End Sub
Public Sub B_udfyld()
    udfyldBM 2
End Sub
Public Sub C_udfyld()
    udfyldBM 3
End Sub
Public Sub D_udfyld()
    udfyldBM 4
End Sub
Public Sub E_udfyld()
    udfyldBM 5
End Sub
Public Sub F_udfyld()
    udfyldBM 6
End Sub
Public Sub G_udfyld()
    udfyldBM 7
End Sub
Public Sub H_udfyld()
    udfyldBM 8
End Sub
Public Sub I_udfyld()
    udfyldBM 9
End Sub
Private Sub udfyldBM(Nr)
    Bookmarks("bm1").Select
    Selection.TypeText Text:=klargørIndhold(Nr + 1, 2)
    Bookmarks("bm2").Select
    Selection.TypeText Text:=klargørIndhold(Nr + 1, 2)
    Bookmarks("bm3").Select
    Selection.TypeText Text:=klargørIndhold(Nr + 1, 3)
    Bookmarks("bm4").Select
    Selection.TypeText Text:=Round(klargørIndhold(Nr + 1, 2) / 2 + 0.000001, 1)
    Bookmarks("bm5").Select
    Selection.TypeText Text:=Round(klargørIndhold(Nr + 1, 3) / 2 + 0.000001, 1)
    Bookmarks("bm6").Select
    Selection.TypeText Text:=Round(klargørIndhold(Nr + 1, 2) / 3 + 0.000001, 1)
    Bookmarks("bm7").Select
    Selection.TypeText Text:=Round(klargørIndhold(Nr + 1, 3) / 3 + 0.000001, 1)
    Bookmarks("bm8").Select
    Selection.TypeText Text:=Round(klargørIndhold(Nr + 1, 2) / 3 + 0.000001, 1)
    Bookmarks("bm9").Select
    Selection.TypeText Text:=Round(klargørIndhold(Nr + 1, 3) / 3 + 0.000001, 1)
    Bookmarks("bm10").Select
    Selection.TypeText Text:=klargørIndhold(Nr + 1, 3)
    Bookmarks("bm11").Select
    Selection.TypeText Text:=Round(klargørIndhold(Nr + 1, 2) / 3 + 0.000001, 1)
    Bookmarks("bm12").Select
    Selection.TypeText Text:=klargørIndhold(Nr + 1, 2)
    Bookmarks("bm13").Select
    Selection.TypeText Text:=klargørIndhold(Nr + 1, 2)
End Sub
Private Function klargørIndhold(ræk, kol)
Dim tekst1, tekst2
        tekst1 = Tables(1).Cell(ræk, kol)
        tekst2 = Replace(tekst1, Chr(7), "")
        klargørIndhold = tekst2
End Function

Jeg prøver at se på din kode..

Private Function klargørIndhold(ræk, kol)
Dim tekst1, tekst2
        tekst1 = Tables(1).Cell(ræk, kol)
        tekst2 = Left(tekst1, Len(tekst1) - 2)  '<<< justering
        klargørIndhold = tekst2
End Function

Jamen for fanden da - det sparker røv! Du får julekort fremover!

fint - der er lang tid til jul - så hvis du giver lidt point i mellemtiden, så.. :-)

Birthe, håber det er OK at pointene går til supertekst.

Kan man nå at snige en sidste detalje ind? Et af tallene i tabellen er fx. 2.9. Delt med 3 rundes rigtig nok af til 1, men det bør føres ind i dokumentet som 1.0. Det er 1 decimal i min optik. Hvorfor sker det ikke?

Prøv med følgende de relevante steder:

Selection.TypeText Text:=Format(Round(klargørIndhold(Nr + 1, 2) / 3 + 0.000001, 1), "#0.0")  'klargørIndhold(Nr + 1, 2)

PS: Sidste linje skal ikke med

Jamen dog. Nu er det helt perfekt. Endnu engang tak:-)

Selv tak

Opretter lige lille bonusspg. i samme kategori.