Hello there,
Code is in corelx6
I'm still new to Corel VBA and have run into a wall with one of my macros. Turns out I don't understand strings very well and definitely don't understand how to modify them in VBA.
Here's what I'm trying to do: Add the filename to a file but remove the extension from the end of the string.
Sub docunamerAP() Dim shArtistic As Shape Dim Doc As Document Set Doc = ActiveDocument 'Creates doc name, uses Doc.Name property to insert document name Set shArtistic = Doc.ActivePage.ActiveLayer.CreateArtisticText(1.68522, 8.12906, Doc.Name, Font:="Arial", Size:=12, Bold:=cdrTrue) shArtistic.LeftX = 1.70033 shArtistic.Fill.UniformColor.CMYKAssign 0, 0, 0, 100 shArtistic.text.Story.ChangeCase (cdrTextUpperCase) ' modify string here ? Set shArtistic = Nothing Set Doc = NothingEnd Sub
Would someone be able to explain this process to me?
Thank you in advance!