How fixing path lengths problem in SharePoint ?

Ich hätte da auch noch etwas anzubieten.

Sub Test()

ActiveSheet.PageSetup.LeftFooter = ShortenPath(ThisWorkbook.FullName)

End Sub

Wenn Du den Pfad automatisch eintragen lassen willst, dann könntest Du im BeforeSave Ereignis eine Routine auslösen die (wenn SaveAsUI) dann nach dem Speichern anläuft, den Pfad einträgt und nochmals speichert.

Andreas.

Function ShortenPath(ByVal Path As String, Optional ByVal MaxLen As Long, _

Optional ByVal LeftBackSlashes As Integer = 1, _

Optional ByVal RightBackSlashes As Integer = 1) As String

'Shorten a path at backslashes to max. length

'"C:\Windows\System32\Speech\Common\sapi.dll" => "C:\...\sapi.dll"

Dim i As Long, LLen As Long, RLen As Long

Dim Parts, LR As Boolean

'Adjust bad inputs

If MaxLen < 0 Then MaxLen = 0

If LeftBackSlashes < 0 Then LeftBackSlashes = 0

If RightBackSlashes < 0 Then RightBackSlashes = 0

'Split the path at backslashes

Parts = Split(Path, "\")

'Path hasn't backslashes

If UBound(Parts) = 0 Then GoTo ExitPoint

'Number of backslashes in the limits?

If LeftBackSlashes + RightBackSlashes > UBound(Parts) + 1 Then

If MaxLen > 0 Then

'Scale to possible values

LeftBackSlashes = LeftBackSlashes / _

(RightBackSlashes + LeftBackSlashes) * UBound(Parts)

RightBackSlashes = UBound(Parts) - LeftBackSlashes

Else

'Return full path

GoTo ExitPoint

End If

End If

'Calculate the left and right lengths

For i = 1 To LeftBackSlashes

LLen = LLen + Len(Parts(i - 1)) + 1

Next

For i = 0 To RightBackSlashes - 1

RLen = RLen + Len(Parts(UBound(Parts) - i)) + 1

Next

'Max. length given?

If MaxLen > 0 Then

Do While LLen + RLen + 3 > MaxLen

'Shorten the left or right side if possible

LR = Not LR

If LR Then

If LeftBackSlashes > 1 Then

LLen = LLen - Len(Parts(LeftBackSlashes - 1)) - 1

LeftBackSlashes = LeftBackSlashes - 1

End If

Else

If RightBackSlashes > 1 Then

RLen = RLen - Len(Parts(UBound(Parts) - RightBackSlashes + 1)) - 1

RightBackSlashes = RightBackSlashes - 1

End If

End If

If RightBackSlashes <= 1 And LeftBackSlashes <= 1 Then Exit Do

Loop

End If

If LLen + RLen > Len(Path) Then

'Return the full path if the positions overlap

ExitPoint:

ShortenPath = Path

Else

'Return a shorten path

ShortenPath = Left(Path, LLen) & "..." & Right(Path, RLen)

End If

End Function

Hallo,

nun ja, für mich ist es eben nicht sinn- und zweckfrei, einen relativen Pfad anzugeben. In einer aktuellen Aufgabenstellung kämpfe ich mit diesem Problem halt auch ein wenig.

Ich habe ein ganzes Set von Serienbriefhauptdokumenten, die auf ein Excel-File zugreifen, welches im gleichen Ordner liegt. Dieses Set von Dateien inkl dem Excel-File wird immer wieder in einer identisch gestalteten, aber neuen Ordnerstruktur verwendet, in
der nur der Ordner auf der Obersten Ebene des Filesystems einen anderen Namen hat..

hier findest du sowohl eine VBA-Lösung als auch eine Möglichkeit, die XML-Dateien zu modifizieren:

"how to use a relative path to a data source for word mail merging (word 2007, word 2010)"

http://devblog.alexsapps.com/2011/08/how-to-use-relative-path-to-data-source.html

Viele Grüße

Lisa [MS MVP Word]

hier findest du sowohl eine VBA-Lösung als auch eine Möglichkeit, die XML-Dateien zu modifizieren:

"how to use a relative path to a data source for word mail merging (word 2007, word 2010)"

http://devblog.alexsapps.com/2011/08/how-to-use-relative-path-to-data-source.html





Wow, vielen Dank, Lisa,

die Makro-Lösung habe ich gleich auf dem relevanten Rechner - noch mit Office 2003 - ausprobiert. Klappt prima. Das Makro habe ich dann als Symbolleiste eingebunden. Das verbessert dann noch die Usability.

Die XML-Lösung werde ich mir wohlweislich für meinen eigenen Rechner mit Office 2010 merken.

Nette Grüße



Christine

Hallo,

Warum MS dieses geniale Prinzip nicht mehr verwendet - keine Ahnung. Bei jedem Laufwerkswechsel oder Umbenennen eines übergeordneten Ordners kann man nun sämtliche Dateien einzeln anfassen und den Verweis erneuern.

ein Workaround ist hier beschrieben:

"how to use a relative path to a data source for word mail merging (word 2007, word 2010)"

http://devblog.alexsapps.com/2011/08/how-to-use-relative-path-to-data-source.html

Viele Grüße

Lisa [MS MVP Word]

Hallo,

nun ja, für mich ist es eben nicht sinn- und zweckfrei, einen relativen Pfad anzugeben. In einer aktuellen Aufgabenstellung kämpfe ich mit diesem Problem halt auch ein wenig.

Ich habe ein ganzes Set von Serienbriefhauptdokumenten, die auf ein Excel-File zugreifen, welches im gleichen Ordner liegt. Dieses Set von Dateien inkl dem Excel-File wird immer wieder in einer identisch gestalteten, aber neuen Ordnerstruktur verwendet, in
der nur der Ordner auf der Obersten Ebene des Filesystems einen anderen Namen hat..

hier findest du sowohl eine VBA-Lösung als auch eine Möglichkeit, die XML-Dateien zu modifizieren:

"how to use a relative path to a data source for word mail merging (word 2007, word 2010)"

http://devblog.alexsapps.com/2011/08/how-to-use-relative-path-to-data-source.html

Viele Grüße

Lisa [MS MVP Word]

Hallo Thomas,

mein Problem konnte leider auch durch die Anwendung des vorgeschlagenen Fixing-Tools nicht gelöst werden.

Jedenfalls aber herzlichen Dank für den Lösungsvorschlag, hätte ja funktionieren können.

Bin nun auf weiterer Ursachen-Forschungsreise und dankbar für jeden weiteren Ansatz einer Lösungssuche

Mit freundlichem Gruß

Hans K