16. september 2013 - 10:54Der er
3 kommentarer og 1 løsning
Makro som henter tekst bestemt sted i dokumentet til "gemsom"
Jeg er ved at udarbejde en standard i word (dk-version) hvor brugeren har adgang til at skrive i bestemte felter, mens resten af dokumentet er låst.
De 2 første felter brugeren kan skrive i er:
Kundenummer Kundenavn
Jeg kunne rigtig godt tænke mig en makro hvor følgende sker når brugeren klikker på den.
Lad os antage brugeren i dokumentet har skrevet kundenummer 1234 og Jens Jensen A/S som navn.
Arket er bygget op med nogle tabeller. Første linje i dokumentet er "stamoplysninger" og i de næste to linjer er der 1 tabel med 2 rækker og 2 kolonner. I første linje i første række står Kundenummer (tekst låst) - og i cellen til højre herfor kan brugeren skrive kundenummeret (indtastes manuelt). Det samme for navnet i linje 2 med navnet..
Ved aktivering af makroen sker følgende:
1. Åbner "gem som dialog boksen" 2. Work henter automatisk det indtastede kundenummer og kundenavn således den foreslår gemsom: "1234 Jens Jensen A/S.doc". 3. Gem som skal gerne pege ned på en bestemt folder
Jeg har kun sparsom makro erfaring (kun fra Excel) så hvis der er nogen der er villig til at hjælpe med at pege mig i den rigtige retning vil jeg være meget taknemmelig.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Const systemSti = "C:\Users\peter\Desktop\GemDokument" 'justeres Const tabelNr = 1 Dim nr As String, navn As String Dim dlgSaveAs As FileDialog, filSti As String Sub gemDokument() nr = klargør(1, 2) navn = klargør(2, 2)
filSti = systemSti & "\" & nr & " " & navn '& ".doc" ActiveDocument.SaveAs filSti End Sub Private Function klargør(ræk, kol) Dim felt, felt1, felt2 With Tables(tabelNr) felt = ActiveDocument.Tables(tabelNr).Cell(ræk, kol) felt1 = Left(felt, Len(felt) - 2) felt2 = Replace(felt1, "/", "") End With klargør = felt2 End Function
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.
