How would it be possible to display the paths of fields in footers?

jamu · #1 04-11-2022, 04:18 PM

How would it be possible to display the paths of fields in footers? I tried with ActiveDocument.Fields.ToggleShowCodes but only the paths of fields outside footers are shown. I would then replace the paths as already successfully implemented in the main document with a path I get by running a Python script. The search and replace of the path in the footer unfortunately only works when the path is visible.

Guessed · #2 04-11-2022, 08:26 PM

You should loop through all the storyranges in the document. The basic vba code structure is repeated on this forum many times. Here is one such example https://www.msofficeforums.com/159190-post2.html

macropod · #3 04-11-2022, 08:56 PM

Also, it is not necessary to show field codes to replace their contents.

jamu · #4 04-11-2022, 09:29 PM

Somehow I always get the error message "The file cannot be found" when I use the path as output of a Python script to replace the field path, but if I select the file via filepicker and specify the path or pass it as a string, the change of the path works without problems. The strange thing is that the path output by Pytohn is completely identical to these.

Does anyone have time to look at the code / know what could be the reason?

Here would be the Macors (it's actually one of yours macropod):

Code:

Sub Update_Links()
'
' Update_Link Macro

Dim Rng As Range, i As Long, vItem As Variant
Dim strPythonPath As String
    Dim strPyScript As String
    Dim strCmd As String
    strPythonPath = "C:\Users\a\python.exe"
    strPyScript = "C:\Users\a\mo\na.py"
    strCmd = fnShellOutput(strPythonPath & " " & strPyScript)
    vItem = strCmd 
    
'update fields
'
Application.ScreenUpdating = False
With ActiveDocument
  For Each Rng In .StoryRanges
    With Rng
      For i = .Fields.Count To 1 Step -1
        If .Fields(i).Type = wdFieldLink Then .Fields(i).LinkFormat.SourceFullName = vItem
      Next
      For i = .ShapeRange.Count To 1 Step -1
      If Not .ShapeRange(i).LinkFormat Is Nothing Then .ShapeRange(i).LinkFormat.SourceFullName = vItem
      Next
      For i = .InlineShapes.Count To 1 Step -1
        If Not .InlineShapes(i).LinkFormat Is Nothing Then .InlineShapes(i).LinkFormat.SourceFullName = vItem
      Next
    End With
  Next
End With
'
Application.ScreenUpdating = True
MsgBox "Done!"
End Sub

The goal would be that when opening the file, the filepath stored in the Python program would be used as replacement of the current filepath.

Or else I just have a document with many fields to an Excelfile where it has depending on the user a change ending e.g. blabla_max.xlsm and blabla_anton.xlsm and is in a different location, in Python the user is determined then the dropboxpath and then in the dropboxpath after the Excelfile where the ending is derived from the username. Does this make sense?

macropod · #5 04-11-2022, 09:37 PM

It's not apparent to me what vItem contains. In needs to contain the source file's fullname, not just the path.

jamu · #6 04-11-2022, 11:20 PM

Sorry, the actual whole filename is stored in the variable vitem, so path+filename with extension.

e.g "C:\users\a\Desktop\max.xlsm"

the macro works if I give it a string like the above or use filpicker to get a file but not if I try to pass the value from the python script altough they all are identical.

macropod · #7 04-11-2022, 11:31 PM

Have you looked at the field codes after running the macro?

jamu · #8 04-12-2022, 02:40 AM

Yes, with the Python script result the fields were not updated, it came an error message that the file could not be found. When using a string with the identical fullfilename or selecting the file the field was updated.

Otherwise how would you replace the excel sheet in the fields of the footer, (it is only 1 field) by another?

macropod · #9 04-13-2022, 12:19 AM

I asked:

Quote:

Originally Posted by macropod

Have you looked at the field codes after running the macro?

Your answer:

Quote:

Originally Posted by jamu

Yes, with the Python script result the fields were not updated, it came an error message that the file could not be found.

tells me you're not looking at the field codes.

It's hardly surprising your field might display erroneous results, since there's nothing in the code you posted to cause them to refresh.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA to display and choose merge fields	JamesWood	Word VBA	2	12-16-2020 02:17 PM
How to mimic CTRL (CMD) + 6 (remove fields) in all sections of a document (headers, footers...)	elocution	Word VBA	3	12-11-2018 02:42 PM
Word Fields and Relative Paths to External Files	macropod	Word	0	04-08-2018 05:06 PM
Pivot table - I cant display item labels when no fields in value area	differentdrummer	Excel	0	12-12-2013 05:13 PM
How to display sort fields	keith1952	Word	1	10-31-2011 05:58 AM