-- Renames styles. -- You can replace a search string (case sensitive) -- with a replacement string or prepend all styles with -- a replacement string and a space ScriptName = "msStylesRename" msStylesRename = {} function msStylesRename:Name() return "Renames all styles ... " end function msStylesRename:UILabel() return("Rename styles ... ") end function msStylesRename:Version() return "1.0" end function msStylesRename:Description() return "Renames all styles based on search string and replacement string." end function msStylesRename:Creator() return "Mitchel Soltys" end msStylesRename.searchString = "" msStylesRename.replacementString = "" msStylesRename.renameType = nil local msStylesRenameDialog = {} function msStylesRenameDialog:new(moho) local self, l = msDialog:SimpleDialog("Rename Styles", self) self.moho = moho self.renameTypeMenu = msDialog:CreateDropDownMenu("Rename Type",{"Rename by String", "Prepend with replacement string and space"}) self.searchString = msDialog:AddTextBox("Search String") self.replacementString = msDialog:AddTextBox("Replacement String") return self end function msStylesRenameDialog:UpdateWidgets() msDialog:SetMenuByLabel(self.renameTypeMenu,msStylesRename.renameType) self.searchString:SetValue(msStylesRename.searchString) self.replacementString:SetValue(msStylesRename.replacementString) end function msStylesRenameDialog:OnOK() msStylesRename.renameType = self.renameTypeMenu:FirstCheckedLabel() msStylesRename.searchString = self.searchString:Value() msStylesRename.replacementString = self.replacementString:Value(); end function msStylesRename:ReplaceStyleName() local myString = self.moho.document:StyleByID(self.styleIndex).fName:Buffer() local newString, length = string.gsub(myString, self.searchString, self.replacementString) if(length > 0) then self.moho.document:StyleByID(self.styleIndex).fName:Set(newString) end end function msStylesRename:PrependStyleNameWithSpace() local newName = self.replacementString .. " " .. self.moho.document:StyleByID(self.styleIndex).fName:Buffer() self.moho.document:StyleByID(self.styleIndex).fName:Set(newName) end function msStylesRename:RenameStyleByType() if self.renameType == "Prepend with replacement string and space" then self:PrependStyleNameWithSpace() elseif self.renameType == "Rename by String" then self:ReplaceStyleName() end end -- ************************************************** -- The guts of this script -- ************************************************** function msStylesRename:Run(moho) self.moho = moho msDialog:Display(moho, msStylesRenameDialog) if (msDialog.cancelled) then return end moho.document:SetDirty() moho.document:PrepUndo(moho.layer) for i = 0, self.moho.document:CountStyles()-1 do self.styleIndex = i self:RenameStyleByType() end end
Rename Styles
Listed
Author: strider2000
View Script
Script type: Button/Menu
Uploaded: Jan 22 2021, 21:42
Script for easily renaming styles.
This script allows you to rename styles.
This script, and all other scripts on this site are distributed as free software under the GNU General Public License 3.0 or later.
Downloads count: 30
Rename Styles
Listed
Author: strider2000
View Script
Script type: Button/Menu
Uploaded: Jan 22 2021, 21:42
Script for easily renaming styles.
This script allows you to rename styles.
This script, and all other scripts on this site are distributed as free software under the GNU General Public License 3.0 or later.
Downloads count: 30