CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

h_s Forsker

11. juni 2010 - 15:36 Der er 7 kommentarer og
1 løsning

Åbning af .docx via makro

Jeg har i dag denne makro:

Private Sub ÅbnWord_Click()

Dim stinavn As String
stinavn = "winword.exe X:\Referat\" & [Listbox1] & ".doc"
MsgBox stinavn

Shell stinavn, vbMaximizedFocus
End Sub

Den åbner doc-filer. Jeg har nu fået Office 2007 hvor filen jo hedder .docx
Dem kan jeg ikke åbne. Jeg har prøvet at ændre ".doc" til ".docx" uden held.

Jeg vil gerne have at makroen kan åbne både doc og docx filer - Hvad skal laves om?

Synes godt om

h_s Forsker

11. juni 2010 - 15:41 #1

Ups at ændre til .docx virker - Jeg har brug for en hvis-sætning:

Hvis filen ikke findes som .doc så åben den i .docx

Synes godt om

kabbak Professor

11. juni 2010 - 21:01 #2

Private Sub ÅbnWord_Click()

Dim stinavn As String
if dir(X:\Referat\" & [Listbox1] & ".doc")<>"" then
stinavn = "winword.exe X:\Referat\" & [Listbox1] & ".doc"
else
stinavn = "winword.exe X:\Referat\" & [Listbox1] & ".docx"
end if
MsgBox stinavn

Shell stinavn, vbMaximizedFocus
End Sub

Synes godt om

h_s Forsker

12. juni 2010 - 08:35 #3

Hej Kabbak

Tak for svarret - Jeg ser på det sidst i næste uge, så ha´ lidt tålmodighed :-)

Synes godt om

h_s Forsker

14. juni 2010 - 10:41 #4

Kabbak> det ser ud som om der er en fejl i:

if dir(X:\Referat\" & [Listbox1] & ".doc")<>"" then

Den fejter ved ":" efter "X'et" -> Compeile error

Kan du løse det?

Synes godt om

h_s Forsker

16. juni 2010 - 14:07 #5

Kabbak> Har du glemt mig :-)

Synes godt om

h_s Forsker

17. juni 2010 - 20:32 #6

Så fandt jeg selv fejlen - Der manglede et " før stinavn. Makroen skal se således ud:

Private Sub ÅbnWord_Click()

Dim stinavn As String
if dir(X:\Referat\" & [Listbox1] & ".doc")<>"" then
stinavn = "winword.exe X:\Referat\" & [Listbox1] & ".doc"
else
stinavn = "winword.exe X:\Referat\" & [Listbox1] & ".docx"
end if
MsgBox stinavn

Shell stinavn, vbMaximizedFocus
End Sub

kabbak vil du smide et svar!

Synes godt om

h_s Forsker

24. juli 2010 - 13:03 #7

kabbak> smider du et svar :-)
Ellers lukker jeg spørgsmålet og tager pointene selv :-)

Synes godt om

h_s Forsker

18. august 2010 - 19:22 #8

Point taget selv!
Kabbak > skriv hvis du ser dette spørgsmål!

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Access kurser

Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
query calculated field ? Af fimo i Access	5	03/09/202409:23	03/09/202411:08
Fjernadgang til Access app Af per2edb i Access	5	29/08/202408:21	29/08/202415:07
Filter der lister tomme felter Af per2edb i Access	3	26/08/202421:52	27/08/202415:20
Undgå skærm Filcker Af per2edb i Access	9	21/08/202415:14	22/08/202410:57
Usynlige tabeller, forespørgsler mm i Access Af sigyn i Access	4	18/07/202407:29	18/07/202410:32

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS