'%3e%3cpath%20d='M8%200C12.4183%200%2016%203.58172%2016%208C16%2012.4183%2012.4183%2016%208%2016C3.58172%2016%200%2012.4183%200%208C0%203.58172%203.58172%200%208%200ZM11.6162%204.38379C11.2257%203.99337%2010.5927%203.99338%2010.2021%204.38379L8%206.58594L5.79785%204.38379C5.40732%203.99334%204.77429%203.99329%204.38379%204.38379C3.99331%204.77429%203.99335%205.40733%204.38379%205.79785L6.58594%208L4.38379%2010.2021C3.99348%2010.5927%203.99341%2011.2257%204.38379%2011.6162C4.77426%2012.0066%205.40734%2012.0065%205.79785%2011.6162L8%209.41406L10.2021%2011.6162C10.5927%2012.0066%2011.2257%2012.0067%2011.6162%2011.6162C12.0067%2011.2257%2012.0066%2010.5927%2011.6162%2010.2021L9.41406%208L11.6162%205.79785C12.0066%205.40735%2012.0066%204.77429%2011.6162%204.38379Z'%20fill='%23080E17'%20fill-opacity='0.46'/%3e%3c/g%3e%3cdefs%3e%3cclipPath%20id='clip0_3761_713'%3e%3crect%20width='16'%20height='16'%20fill='white'/%3e%3c/clipPath%3e%3c/defs%3e%3c/svg%3e)
How to Change Word Styles and Following-Paragraph Styles in Bulk
Question details
The user wants to automate the process of changing the 'Base Style' and 'Style for following paragraph' of multiple Word document styles from 'Normal' to 'Body Text'.
- Product
- Microsoft Word
- Device & OS
- not provided
- Scenario
- A user needs to restructure the style hierarchy in a document or template, ensuring that paragraph styles inherit from and flow into 'Body Text' instead of 'Normal'.
- Observed behavior
- Manually updating the BaseStyle and NextParagraphStyle for dozens of styles is highly time-consuming, requiring a programmatic solution to execute a bulk update.
Before running a macro that modifies styles globally, especially in your Normal template (Normal.dotm), create a backup copy of the template file to prevent unintended permanent changes to your future documents.
Use a VBA Macro to Bulk Update Paragraph Styles
Implement a VBA script that iterates through all paragraph styles in your active document or template and replaces 'Normal' references with 'Body Text'.
This macro is designed to open your Normal template as a document and systematically check every paragraph style. If a style's BaseStyle or NextParagraphStyle is currently set to 'Normal', the script will automatically change it to 'Body Text'.
In your Word document, press the ALT + F11 keys on your keyboard to open the Microsoft Visual Basic for Applications window.
From the top menu, click 'Insert' and select 'Module' to create a new blank code window.
Type or paste the following code: Sub StylesToBodyText() Dim sty As Style NormalTemplate.OpenAsDocument For Each sty In ActiveDocument.Styles If sty.Type = wdStyleTypeParagraph Then If sty.BaseStyle = "Normal" Then sty.BaseStyle = "Body Text" If sty.NextParagraphStyle = "Normal" Then sty.NextParagraphStyle = "Body Text" End If Next sty End Sub
Press F5 or click the 'Run' button on the toolbar to execute the code. Review your styles carefully before saving the modified template.
Manage Styles and Macros Seamlessly in WPS Writer
WPS Writer offers full support for advanced document formatting, style hierarchy management, and VBA macros. You can easily automate your document styling processes with an intuitive interface and reliable macro execution.
- 1. Open Your Document: Launch WPS Writer and open the document or template you wish to format.
- 2. Access the Developer Tools: Navigate to the 'Developer' tab on the ribbon menu. If it's not visible, enable it from the software settings.
- 3. Run Your Macro: Click on 'Macros', create a new macro, paste your style-updating VBA code, and hit run to bulk change your styles instantly.
Frequently Asked Questions
How do I back up my Normal.dotm template before running macros?
You can find your Normal template by pressing Windows Key + R, typing '%appdata%\Microsoft\Templates', and pressing Enter. Locate the 'Normal.dotm' file, right-click it, select 'Copy', and paste it in another secure folder as a backup.
What is the difference between BaseStyle and NextParagraphStyle?
BaseStyle (Style based on) determines the parent style from which the current style inherits its fonts and formatting. NextParagraphStyle (Style for following paragraph) specifies the style that will automatically be applied when you press Enter at the end of a paragraph.
Why did my macro change styles I didn't want to affect?
The provided macro loops through all available paragraph styles in the template. If you only want to modify specific styles (e.g., Heading 1, Heading 2), you need to add an 'If' condition in your VBA code to check the specific style name (e.g., If sty.NameLocal = "Heading 1" Then...) before applying the changes.
