VB: Word Templates umziehen

  • VBScript

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von chris_lalala.

    VB: Word Templates umziehen

    Hallo ers ma,

    da ich der wahnsinns programierer bin brauch ich eure hilfe! ;)

    wir haben fast alle word dateien mit einer vorlage erstellt hat.
    diese vorlagen liegen auf serverA.

    ServerA gibt es aber nicht mehr! die vorlagen liegen jetzt auf serverB.

    jetzt brauch ich ein makro welches jede word datei öffnet, reinschaut ob pfad zu serverA angegben ist und diesen mit serverB ersetzt.

    ich hab hier auch ein skript gefunden welches die dateien öffnet und den neuen template pfad reinschreibt. jedoch gibt es unterverzeichnisse bei serverA und serverB.

    mein riesiger programierverstand sagt mir wie ich vorgehen muss:
    schneide die zeichen "\\serverA\" ab und ersetze sie mit "\\serverB\"

    wie ich das umsetzte ist mir allerdings nicht so ganz klar.

    ich zähle die zeichen von "\\serverA\" schneide diese ab und ersetze das.
    aber wie geht das in VB syntax??


    hier das bisherige skript:

    Visual Basic-Quellcode

    1. Sub AlleDateienimVerzeichnisAendern()
    2. ' Allen Dateien eines Verzeichnisses eine andere Dokumentvorlage zuweisen
    4. With Application.FileSearch
    5. .NewSearch
    6. .FileName = "*.doc"
    7. .LookIn = "\\ServerB\Templates\"
    8. .SearchSubFolders = True
    9. If .Execute() > 0 Then
    10. ReDim strdateien(.FoundFiles.Count)
    11. ReDim strZugehOrdner(.FoundFiles.Count)
    13. 'Durchläuft alle Dateien, die in dem obigen Verzeichnis vorhanden sind.
    14. For i = 1 To .FoundFiles.Count
    16. strdateien(i) = .FoundFiles(i)
    17. strZugehOrdner(i) = .FoundFiles(i)
    18. Do
    19. strdateien(i) = Right(strdateien(i), (Len(strdateien(i)) - InStr(strdateien(i), "\")))
    20. Loop While InStr(strdateien(i), "\") > 0
    22. Documents.Open FileName:=strZugehOrdner(i)
    23. With ActiveDocument
    24. .AttachedTemplate = "\\ServerB\Templates\Letter.dot" 'ordnet die Vorlage "Letter" zu
    25. .Save 'verhindert, dass Speichernachfrage kommt
    26. .Close
    27. End With
    29. Next i
    30. End If
    31. End With
    32. End Sub

    das funktioniert leider nicht so richtig.

    er schreibt dann einfach die lokale normal.dot rein.

    dann habe ich es mit dem kompletten pfad versucht also

    .AttachedTemplate = Replace(.AttachedTemplate, "\\serverA\Formulare\vorlagen\vorlage.dot", "\\serverB\Formulare\vorlagen\vorlage.dot")

    -->> leider schreibt er wieder nur die normal.dot rein.

    chris_lalala schrieb:

    mein riesiger programierverstand sagt mir wie ich vorgehen muss:
    schneide die zeichen "\\serverA\" ab und ersetze sie mit "\\serverB\"
    Die Replace-Funktion macht eigentlich genau das. Sie sucht im zu durchsuchenden Text (erstes Argument) alle Vorkommen des zu suchenden Textes (zweites Argument) und ersetzt diese mit dem zu ersetzenden Text (drittes Argument).

    Welchen Wert hat denn ActiveDocument.AttachedTemplate nach dem Öffnen der Datei? Was ich mir vorstellen könnte (reine Vermutung) wäre, dass Word die Vorlagendatei nicht findet, serverA gibt es ja nicht mehr, und dann automatisch "...\Normal.dot" als Vorlage zuweist. Wenn man dann die Ersetzung vornimmt, kommt ja "\\serverA\" im Pfad nicht vor, und somit bleibt es auch nach der Ersetzung bei "...\Normal.dot".

    Kann man am Dateinamen oder am Verzeichnis, in dem die Datei abgespeichert ist, erkennen, welche Vorlage dazugehört oder vielleicht am Inhalt der Datei (Text im Dokument, Textmarken etc.)? Dann könnte man ja daraus vielleicht etwas machen.



    EDIT:

    Wenn das, was ich oben beschrieben habe nicht das Problem ist, kann ein Versuch hiermit nicht schaden:

    Visual Basic-Quellcode

    1. .AttachedTemplate.Path = Replace(.AttachedTemplate.Path, "\\serverA\", "\\serverB\")

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „roddy“ ()

    juhu das forum geht wieder .... ;)


    es ist echt sau komisch. warum nimmt er die lokale vorlage????

    ich hab jetzt extra nochmal ein pc mit dem alten namen erstellt, die freigabe usw. aber immer wieder nimmt er die lokale vorlage.

    ActiveDocument.AttachedTemplate=>>> c:\dokumente ...\Vorlagen\normal.dot

    hier die lösung!

    das problem war dabei den alten template pfad zu öffnen.

    ---> das funktioniert so

    ' Dialog "Tools -> Templates and Addins" öffnen und "Document Template" auslesen
    Set dlgTemplate = Dialogs(wdDialogToolsTemplates)
    strPath = dlgTemplate.Template
    msgbox strPath

    wen das ganze skript interessiert:

    Visual Basic-Quellcode

    1. Sub AlleDateienimVerzeichnisAendern()
    2. ' Allen Dateien eines Verzeichnisses eine andere Dokumentvorlage zuweisen
    4. 'Variablen declaration
    5. strServerAlt = "\\SERVERA\"
    6. strServerNeu = "\\SERVERB\"
    7. strVerzeichnis = "C:\blabla\"
    9. With Application.FileSearch
    10. .NewSearch
    11. .FileName = "*.doc"
    12. .LookIn = strVerzeichnis
    13. .SearchSubFolders = True
    15. If .Execute() > 0 Then
    16. ReDim strDateien(.FoundFiles.Count)
    17. ReDim strZugehOrdner(.FoundFiles.Count)
    19. 'Durchläuft alle Dateien, die in dem obigen Verzeichnis vorhanden
    20. ' sind.
    21. For i = 1 To .FoundFiles.Count
    22. strDateien(i) = .FoundFiles(i)
    23. strZugehOrdner(i) = .FoundFiles(i)
    25. Do
    26. strDateien(i) = Right(strDateien(i), (Len(strDateien(i)) - _
    27. InStr(strDateien(i), "\")))
    28. Loop While InStr(strDateien(i), "\") > 0
    30. Documents.Open FileName:=strZugehOrdner(i)
    32. 'Dialog "Tools -> Templates and Addins" öffnen und "Document" & _
    33. "Template" auslesen
    34. Set dlgTemplate = Dialogs(wdDialogToolsTemplates)
    35. strPath = dlgTemplate.Template
    38. If strPath = "Normal" Then
    39. ActiveDocument.Close
    40. ElseIf Left(strPath, 3) = "C:\" Then
    41. ActiveDocument.Close
    42. ElseIf Left(strPath, 9) = "\\SERVERB" Then
    43. ActiveDocument.Close
    44. Else
    45. strPath = Right(strPath, Len(strPath) - Len(strServerAlt)) _
    46. 'hier wird die angegebene Anzahl der Zeichen
    47. ' abgeschnitten!!!!
    48. strPath = strServerNeu + strPath
    51. With ActiveDocument
    52. .AttachedTemplate = strPath
    53. .Save 'verhindert, dass Speichernachfrage kommt
    54. .Close
    55. End With
    56. End If
    57. Next i
    58. End If
    59. End With
    60. End Sub

Facebook
Telefonspende