https://bugs.documentfoundation.org/show_bug.cgi?id=155780
Bug ID: 155780 Summary: FileName Field displays wrong content if set to Fixed and inserted by Macro. Product: LibreOffice Version: 7.4.3.2 release Hardware: All OS: Windows (All) Status: UNCONFIRMED Severity: normal Priority: medium Component: BASIC Assignee: libreoffice-bugs@lists.freedesktop.org Reporter: donny.dan...@hotmail.com Description: When inserting a FileName Field using a macro the FileName details are displayed incorrectly if IsFixed is set to True. Steps to Reproduce: 1.Open included document #OR# CREATE and SAVE a new document, and insert the MACRO included in Other Information. 2. run the MACRO. 3. Actual Results: com.sun.star.text.FilenameDisplayFormat.NAME_AND_EXT displays a File name in the format of com.sun.star.text.FilenameDisplayFormat.NAME instead. Expected Results: com.sun.star.text.FilenameDisplayFormat.NAME_AND_EXT should display a File name in the format of com.sun.star.text.FilenameDisplayFormat.NAME_AND_EXT Reproducible: Always User Profile Reset: Yes Additional Info: Version: 7.3.4.2 (x64) / LibreOffice Community Build ID: 728fec16bd5f605073805c3c9e7c4212a0120dc5 CPU threads: 2; OS: Windows 6.1 Service Pack 1 Build 7601; UI render: Skia/Raster; VCL: win Locale: en-US (en_US); UI: en-US Calc: CL MACRO to reproduce error. REM ***** BASIC ***** Sub Main Dim tDateStruct As New com.sun.star.util.DateTime Dim oViewCursor, oFile Dim sString, sText oViewCursor = ThisComponent.CurrentController.getViewCursor() sText = "File Format = com.sun.star.text.FilenameDisplayFormat.FULL (0)" & Chr(13) & "Fixed = False" oViewCursor.Text.insertString(oViewCursor,sText & Chr(13),False) oFile = ThisComponent.createInstance("com.sun.star.text.TextField.FileName") oFile.FileFormat = com.sun.star.text.FilenameDisplayFormat.FULL oFile.IsFixed = False oViewCursor.Text.insertTextContent(oViewCursor,oFile,False) sText = Chr(13) & "File Format = com.sun.star.text.FilenameDisplayFormat.FULL (0)" & Chr(13) & "Fixed = True" oViewCursor.Text.insertString(oViewCursor,sText & Chr(13),False) oFile = ThisComponent.createInstance("com.sun.star.text.TextField.FileName") oFile.FileFormat = com.sun.star.text.FilenameDisplayFormat.FULL oFile.IsFixed = True oViewCursor.Text.insertTextContent(oViewCursor,oFile,False) REM ==================================================== sText = Chr(13) & Chr(13) & "File Format = com.sun.star.text.FilenameDisplayFormat.PATH (1)" & Chr(13) & "Fixed = False" oViewCursor.Text.insertString(oViewCursor,sText & Chr(13),False) oFile = ThisComponent.createInstance("com.sun.star.text.TextField.FileName") oFile.FileFormat = com.sun.star.text.FilenameDisplayFormat.PATH oFile.IsFixed = False oViewCursor.Text.insertTextContent(oViewCursor,oFile,False) sText = Chr(13) & "File Format = com.sun.star.text.FilenameDisplayFormat.PATH (1)" & Chr(13) & "Fixed = True" oViewCursor.Text.insertString(oViewCursor,sText & Chr(13),False) oFile = ThisComponent.createInstance("com.sun.star.text.TextField.FileName") oFile.FileFormat = com.sun.star.text.FilenameDisplayFormat.PATH oFile.IsFixed = True oViewCursor.Text.insertTextContent(oViewCursor,oFile,False) REM ==================================================== sText = Chr(13) & Chr(13) & "File Format = com.sun.star.text.FilenameDisplayFormat.NAME (2)" & Chr(13) & "Fixed = False" oViewCursor.Text.insertString(oViewCursor,sText & Chr(13),False) oFile = ThisComponent.createInstance("com.sun.star.text.TextField.FileName") oFile.FileFormat = com.sun.star.text.FilenameDisplayFormat.NAME oFile.IsFixed = False oViewCursor.Text.insertTextContent(oViewCursor,oFile,False) sText = Chr(13) & "File Format = com.sun.star.text.FilenameDisplayFormat.NAME (2)" & Chr(13) & "Fixed = True" oViewCursor.Text.insertString(oViewCursor,sText & Chr(13),False) oFile = ThisComponent.createInstance("com.sun.star.text.TextField.FileName") oFile.FileFormat = com.sun.star.text.FilenameDisplayFormat.NAME oFile.IsFixed = True oViewCursor.Text.insertTextContent(oViewCursor,oFile,False) REM ==================================================== sText = Chr(13) & Chr(13) & "File Format = com.sun.star.text.FilenameDisplayFormat.NAME_AND_EXT (3)" & Chr(13) & "Fixed = False" oViewCursor.Text.insertString(oViewCursor,sText & Chr(13),False) oFile = ThisComponent.createInstance("com.sun.star.text.TextField.FileName") oFile.FileFormat = com.sun.star.text.FilenameDisplayFormat.NAME_AND_EXT oFile.IsFixed = False oViewCursor.Text.insertTextContent(oViewCursor,oFile,False) sText = Chr(13) & "File Format = com.sun.star.text.FilenameDisplayFormat.NAME_AND_EXT (3)" & Chr(13) & "Fixed = True" oViewCursor.Text.insertString(oViewCursor,sText & Chr(13),False) oFile = ThisComponent.createInstance("com.sun.star.text.TextField.FileName") oFile.FileFormat = com.sun.star.text.FilenameDisplayFormat.NAME_AND_EXT oFile.IsFixed = True oViewCursor.Text.insertTextContent(oViewCursor,oFile,False) End Sub -- You are receiving this mail because: You are the assignee for the bug.