Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Anders (software)

Makkelijke extensierename tool? => Word macro

Kjiratsiekoedel
5 antwoorden
  • Op mijn werk maakt het administratiesysteem (fidura) de tekstbestanden aan. Dit zijn gewoon Word (2003) bestanden, MAAR de bestandsextensie is *.dok in plaats van *.doc.
    Dit levert binnen het bedrijf natuurlijk geen probleem op, maar soms wordt er een tekstbestand gemaild naar anderen en die kunnen het *.dok bestand niet openen.
    Fidura zelf geeft ook niet erg zinnige info: LINK

    De oplossing nu is om het *.dok bestand opnieuw te openen en vervolgens op te slaan als *.doc.

    Dit lijkt een kleine handeling, maar het resultaat is gerommel in de map met ALLE documenten en per ongeluk wordt soms niet alleen de extensie, maar ook de naam van het bestand veranderd.

    Mijn vraag is of er een manier is om bijvoorbeeld met de rechtermuisknop op het bestand te klikken en vervolgens met één muisklik een kopie van het bestand als *.doc op te slaan?
    Of is het mogelijk om dit in Word zelf als optie te creeëren? Ik denk dan aan een knop die het bestand als *.doc op een ingestelde map (bureaublad) opslaat (dan hoeft er niet in de orginele map te worden gerommeld). Of nog mooier: met een knop wordt een tijdelijke kopie gemaakt van het bestand opgeslagen als *.doc en direct als bijlage in een mail verzonden.

    Mogelijk?

    Alvast bedankt voor 't meedenken.
  • Ik heb nu deze macro bij elkaar gesprokkeld:

    [code:1:be3e48dc56]Sub emailsalsdoc()
    ActiveDocument.Save

    Dim strDoc As String
    Dim intPos As Integer
    strDocName = ActiveDocument.FullName
    intPos = InStrRev(strDocName, ".")
    strDocName = Left(strDocName, intPos - 1)
    strDocName = strDocName & ".doc"
    ActiveDocument.SaveAs FileName:=strDocName, _
    FileFormat:=wdFormatDocumentDefault

    ActiveDocument.SendMail
    End Sub[/code:1:be3e48dc56]

    Nu wordt het wordbestand als .doc als bijlage verzonden. Alleen wordt het bestand als *.dok.doc verzonden in plaats van *.doc.

    Ik zoek dus nog een stukje code om óf:
    -de extensie eraf te halen (de code plakt er vervolgens ".doc" aan vast)
    -strDocName, ga naar het eind van deze string, wis nu de laatste 4 letters (nu wordt ".dok" gewist). De verdere code plakt er weer ".doc" aan vast.

    Ik weet dit alleen niet in de juiste code neer te pennen.

    Iemand wel?
  • Uit nieuwsgier: .dok? Is dat nog Wordperfect?? Grappig en reuze handig…;)

    Meedenken: Is er niet een template-document net als in word die je kan hernoemen naar .doc? Daarnaast: net getest, maar ik kan gewoon via word een .dok document openen.
  • Nee, geen WP. Al is Fidura wel uit het WP tijdperk. Dus daar zal 't idd wel vandaan komen.

    Ik heb inmiddels een macro geschreven die doet wat ik wil:

    [code:1:194b392894]Sub emailsalsdoc()

    ActiveDocument.Save

    Dim strDocName As String
    strDocName = ActiveDocument.FullName
    strDocName = Replace(strDocName, ".dok", "")
    ActiveDocument.SaveAs FileName:=strDocName, _
    FileFormat:=wdFormatDocumentDefault

    ActiveDocument.SendMail
    End Sub[/code:1:194b392894]
  • De extensie van een WP document is .wpd
    Daarnaast vraag ik me af of het niet veel makkelijker is een van de vele hernoem programma's te gebruiken die op Explorer niveau de extensie kunnen wijzigen (of maak ik daarmee het probleem te simpel :lol: ?)
    André

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.