Member: Charles_Kenyon | Microsoft Community Hub

Recent Discussions

Re: Conditional field code
First, if you use Insert > Quick Parts > Field to insert the field, you will not get curly quotation marks. You can undo curly quotation marks using Ctrl+Z to undo autoformat. Curly braces {} cannot be typed. You can insert them using Ctrl+F9. Here are references on the conditional IF field: IF Field IF field The switch \* MERGEFORMAT is seldom helpful and can cause problems. Change Word Field Formatting Switch - MergeFormat/CharFormat by Graham Mayor, MVP Formatting fields with switches by Graham Mayor, MVP Dealing with Fields in Microsoft Word
May 01, 2026 Place Word
3Views
0likes
0Comments
Re: Conditional field code
You are using the STYLEREF field to check the content in the latest use of the Topic name style. Here are resources on the STYLEREF field: StyleRef field - Microsoft StyleRef Field - my writing Useful StyleRef tricks by Suzanne Barnhill, MVP
Apr 30, 2026 Place Word
24Views
1like
1Comment
Re: Is there a way to reset a password locked word document that I developed?
If this is a password to open, there are no hacks other than brute force. That is, try every combination you can think of. The document will not self-destruct after a certain number of failed attempts. If it is really important, you can buy programs that do this, but keep in mind you are handing over your credit card information to Russian hackers and giving them access to your computer! If anyone could come to the internet and ask how to get around it, such password protection would be worthless. If it is a document you can open and read, but you can't change, there are things you can do.
Apr 27, 2026 Place Word
12Views
0likes
0Comments
Re: Word freezes or crashes when pressing the G key in the file search
What is the exact error message? You've tried safe mode to no avail? If the error message includes an option to Repair Now and that didn't work, we never hear about it here when it does work. After assuring that your license is linked to your Microsoft account, run an Online Repair. Sign into your account: https://account.microsoft.com/account Repair an Office Application: https://support.office.com/article/7821d4b6-7c1d-4205-aa0e-a6b40c5bb88b If you cannot find that your license is connected to your account, please write back in a comment.
Apr 26, 2026 Place Word
44Views
0likes
1Comment
Re: My Word table is messed up.
Version of Word? Operating System? Desktop application? Could you save a copy of your document, with the problems but with anything confidential or proprietary replaced with dummy text? Save on OneDrive or DropBox and post a share link here. References: Tables The different programs called Word offered by Microsoft - a pdf
Apr 24, 2026 Place Word
34Views
0likes
0Comments
Re: Large text which repeats more than 500 times in a document - how can I delete it?
I'm sorry. The Find part cannot handle that large a block. In a copy of your document, try the following. Copy the first part of what it is you want to delete. Use Find, to find that text in your document. If you look in the Navigation Pane results you will see how many instances there are. Go to the start of the first instance, and select down to the end of what you want to delete and press the Delete key. In the results you should see one fewer result. Go to the next result and repeat the process. ---------- If when you say you cannot use macros, you mean that you are forbidden or blocked from using macros that is fine. You will just have to do this manually. If you mean you do not know how to use macros, then try it. Before you go to the next result, start recording a macro. Stop recording after you press the Delete key. Run your macro until you run out of found instances.
Apr 23, 2026 Place Word
17Views
0likes
0Comments
Re: Formatting issues in Word Microsoft 365 Copilot online.
You should not be writing or editing any important documents in Word online if you can avoid it. Especially not one as complex as a thesis. It simply is not designed to handle it and will mess things up. You must use the desktop application. If you do not have direct access, perhaps on a library computer. See The different programs called Word offered by Microsoft - a pdf Resources: Quick Reference Card for Headers, Footers and Page Numbers - a pdf Numbering Front Matter by Suzanne Barnhill, MVP Page Numbers in Word 2007-2024 (365) How to create a table of contents in Microsoft Word by Shauna Kelly TOC Tips and Tricks by Suzanne Barnhill, MVP That everything is showing as page 8 tells me that it is a typed number, not a PAGE field.
Apr 19, 2026 Place Word
30Views
0likes
0Comments
Re: Large text which repeats more than 500 times in a document - how can I delete it?
Use a copy of your document. Select the first instance of the part you want to delete. Press Ctrl+H to call up the replace dialog Leave the Replace With box empty Click on the Replace All button. If asked if you want to continue in the rest of the document, say yes. Should you need to put multiple instances of the same thing in a document in the future, see: Repeating Data Using Document Property Content Controls and Other Mapped Content Controls and Repeating Data (Populating Multiple Like Fields) by Greg Maxey
Apr 19, 2026 Place Word
52Views
1like
3Comments
Re: Differences in Word for Mac and Word for Windows
There are real and significant differences between the two programs, but you might not have a problem with them. The different programs called Word offered by Microsoft - a pdf Most keyboard shortcuts are available on the Mac; some may be a bit different. Mac Keyboard shortcuts in Word - Office Support Content Controls work on the Mac, but are not something you can easily insert or edit. Content Controls for macOS by John Korchok The Mac interface uses AutoText for everything handled by Building Blocks in Windows. AutoText - Custom Content in AutoText Gallery by John Korchok
Apr 16, 2026 Place Word
29Views
1like
0Comments
Re: List Styles & Style Sets
Since you already have such code, this is more for others who may stumble across this question. Here is revised code from my Add-In. Sub OutlineStyleCopy1() ' ' StyleCopy Macro written by Charles Kyle Kenyon 14 November 2001, revised 12 March 2017, revised April 2026 ' ' Copies all Built-In Heading Styles and the List Style using them to the current document ' If the numbering is attached to styles other than the Built-In Headings, the style names need to be set below ' Copyright 2001, 2017, 2026 All rights reserved ' Copies styles from stylesheet global template to active document ' keyboard shortcut Ctrl+Shift+Alt+3 ' Thank you to Hans Vogel for the assistance with the workaround needed for a false alert about changes to the attached template ' (often the normal template) ' This is set to copy a numbering list style "Headings" and associated paragraph styles using the Organizer Method ' This method could be used to create a StyleSheet to transfer non-numbered styles (like the BodyStyleCopy1 procedure)but ' in Word 2007 and later the [Quick] Style Sets do this very nicely. A List Style, though, can not be part of such a set. ' ' Updated to declare and use variable names for the Styles being copied to make for easier changes. ' As set, this uses the built-in heading styles associated with a List style. ' The headings can have different local names, which are associated with a .NameLocal. ' If using other paragraph level styles, the styles must exist in this Add-In template before running the macro. ' If a List Style is involved, it must be set up using the procedures shown in Shauna Kelly's page. The variable ' sListStyle must be changed if using a different List Style. ' If not transfering a List Style, comment out the last Organizer line dealing with a List Style. ' Dim sThisTemplate As String, sTargetDoc As String, sListStyle As String Dim sStyle1 As String, sStyle2 As String, sStyle3 As String, sStyle4 As String, sStyle5 As String ' Style Names Dim sStyle6 As String, sStyle7 As String, sStyle8 As String, sStyle9 As String ' Style Names Dim i As Integer ' Counter 1 - use for copying styles three times Dim iCount As Integer ' Counter 2 - use to loop copying of heading styles Dim rResponse As Variant ' can be vbMsgBoxResult in Word 2000 or later Dim bSaved As Boolean ' Hans Vogel ' Let bSaved = ActiveDocument.AttachedTemplate.Saved ' Let sListStyle = "Headings" ' change if List Style is different name ' ' ASSIGN Names for styles attached to List - must be exact! ' The ones below give the names for the Built-In Heading Styles Let sStyle1 = ThisDocument.Styles(wdStyleHeading1).NameLocal Let sStyle2 = ThisDocument.Styles(wdStyleHeading2).NameLocal Let sStyle3 = ThisDocument.Styles(wdStyleHeading3).NameLocal Let sStyle4 = ThisDocument.Styles(wdStyleHeading4).NameLocal Let sStyle5 = ThisDocument.Styles(wdStyleHeading5).NameLocal Let sStyle6 = ThisDocument.Styles(wdStyleHeading6).NameLocal Let sStyle7 = ThisDocument.Styles(wdStyleHeading7).NameLocal Let sStyle8 = ThisDocument.Styles(wdStyleHeading8).NameLocal Let sStyle9 = ThisDocument.Styles(wdStyleHeading9).NameLocal ' Error Handler set On Error GoTo NoDocument ' Call when no document is open. ' Define This Template and Target Document variables sThisTemplate = ThisDocument.FullName ' name and path of global template sTargetDoc = ActiveDocument.FullName 'generates error if no document open ' If any other errors, continue on On Error Resume Next rResponse = MsgBox(Prompt:="This command redefines your " _ & vbCrLf & "Heading Styles 1-9. Are you sure you want to do this?" _ & vbCrLf & vbCrLf & "If you are not sure, answer 'No' and make a backup of your document." _ & vbCrLf & "Then run the command to copy the styles again.", _ Title:="Are you sure you want to redefine your styles?", _ Buttons:=vbYesNo + vbExclamation) If rResponse = vbNo Then Exit Sub ' Copy Heading Styles to Active Document and Headings List Style For i = 1 To 3 With Application ' Changed to use Word constants to make language independent ' .OrganizerCopy Source:=sThisTemplate, _ ' Destination:=sTargetDoc, Name:=ThisDocument.Styles("Headings").NameLocal, _ ' Object:=wdOrganizerObjectStyles ' Headings List Style .OrganizerCopy Source:=sThisTemplate, _ Destination:=sTargetDoc, Name:=sStyle1, Object:=wdOrganizerObjectStyles ' Level 1 Style .OrganizerCopy Source:=sThisTemplate, _ Destination:=sTargetDoc, Name:=sStyle2, Object:=wdOrganizerObjectStyles ' Level 2 Style .OrganizerCopy Source:=sThisTemplate, _ Destination:=sTargetDoc, Name:=sStyle3, Object:=wdOrganizerObjectStyles ' Level 3 Style .OrganizerCopy Source:=sThisTemplate, _ Destination:=sTargetDoc, Name:=sStyle4, Object:=wdOrganizerObjectStyles ' Level 4 Style .OrganizerCopy Source:=sThisTemplate, _ Destination:=sTargetDoc, Name:=sStyle5, Object:=wdOrganizerObjectStyles ' Level 5 Style .OrganizerCopy Source:=sThisTemplate, _ Destination:=sTargetDoc, Name:=sStyle6, Object:=wdOrganizerObjectStyles ' Level 6 Style .OrganizerCopy Source:=sThisTemplate, _ Destination:=sTargetDoc, Name:=sStyle7, Object:=wdOrganizerObjectStyles ' Level 7 Style .OrganizerCopy Source:=sThisTemplate, _ Destination:=sTargetDoc, Name:=sStyle8, Object:=wdOrganizerObjectStyles ' Level 8 Style .OrganizerCopy Source:=sThisTemplate, _ Destination:=sTargetDoc, Name:=sStyle9, Object:=wdOrganizerObjectStyles ' Level 9 Style .OrganizerCopy Source:=sThisTemplate, _ Destination:=sTargetDoc, Name:=sListStyle, Object:=wdOrganizerObjectStyles ' ListStyle End With Next i rResponse = MsgBox(Prompt:="Do you also want to copy the accompanying Body Text Styles?", _ Buttons:=vbYesNo, Title:="Body Text) Styles Too?") If rResponse = vbNo Then Exit Sub Call BodyStyleCopy1 Exit Sub ' Skip error handler routine NoDocument: ' Error Handler - Will be called if there is not an open document MsgBox Prompt:="Sorry, this command is only available when you have a document open.", _ Title:="No document open!", Buttons:=vbExclamation End Sub It copies a List Style set in the template with the associated paragraph styles. While I believe that the [Quick] Style sets can reliably transfer numbering, they do not transfer the list style, while this macro does. This mimics what happens if you use the Organizer to copy a list style. When you do that, Word asks before copying each of the associated paragraph styles. In the macro, you are asked once. For your purposes, it has surplus at the end about the Body Text styles. The Add-In has a Body Text style available for a following style for each of the Heading Styles. The code for adding those is a separate procedure in the Add-In. You could delete that from the macro, just answer "No," or create the Body Text styles. If you create the Body Text Styles, you would need that macro as well. This will be on my downloads page in a few days. I added substantial commenting and set it so the Style names are set as variables at the beginning of the macro.
Apr 12, 2026 Place Word
1View
0likes
0Comments
Re: List Styles & Style Sets
You are welcome to vent here and in other forums. I understand your frustration. Microsoft never sees what you write here, though. Forums are user-to-user. As you know, the dialog launcher (little arrow) at the bottom right of the [Quick] Styles Gallery opens the Styles Pane. I have a free Add-In that lets you set a preference for Styles Pane appearance and size (as well as Navigation Pane). Navigation Pane and Style Pane visibility Settings Control I display the Styles and Navigation Panes by default when using Word. I have another free (and macro-free) Add-In that puts many Styles controls on the QAT. Styles QAT Add-In (gives you access to many style features regardless of which ribbon tab is displayed) It includes a button for the Styles Pane (Third control). The legacy dropdown (showing Title above) does include list and table styles. Styles are shown in preview mode and in the order set by user preferences. (I keep mine set for Alphabetical.) The Add-In can be modified by the user to show fewer controls or to add one for the Apply Styles dialog. I did not include that because it has a keyboard shortcut and is available at the bottom of the [Quick] Styles Gallery (first control). This Add-In is not needed to add these commands to the QAT; it is fairly easy. Modifying the Quick Access Toolbar (QAT) in Microsoft Word Styles in the [Quick] Styles Gallery are shown in the priority order set in Manage Styles, never in Alphabetical Order. This is by design, and, in my opinion, the way it should be given the limits on how many can be displayed in that gallery. References: Managing Word Styles by Suzanne Barnhill, MVP [Quick] Style Sets Styles QAT Add-In (gives you access to many style features regardless of which ribbon tab is displayed) Navigation Pane and Style Pane visibility Settings Control Security Risk Warning - dealing with Mark of the Web Quick Style Sets and Themes in Microsoft Word Be the squeaky wheel. Use the Feedback mechanism. Encourage your clients to use it. Microsoft developers do read it (as do their supervisors) and sometimes do make changes in response. There is virtually never a direct response, though. It is wait and see.
Apr 12, 2026 Place Word
2Views
2likes
0Comments
Re: List Styles & Style Sets
So long as the list style can be transferred using the Organizer, you should be able to do this with a macro. A Global StyleSheet in Microsoft Word? [Quick] Style Sets do not require macros, though, and may work for you if each level is attached to a unique paragraph style and all of the styles are in the set. A drawback to [Quick] Style Sets is that they usually include styles that are not relevant to the numbering scheme. You also have to be careful that none of the numbered styles are based on styles not in the set. Were your list styles set up following Shauna Kelly's methods? Mine were, and the transfer through using the [Quick] Style Sets has worked without any problems. There have not been large scale tests but I've been giving that advice for many years without having anyone tell me that I'm wrong. Take a look at my sample [Quick] Style Sets. Try them. If they do not reliably pass on the numbering scheme please let me know. List Styles do show up in the Apply Styles dialog and in the drop-down Style List. If you simply import the styles (not using a set but using the Organizer) it is vital that you import all related styles and that you do so three times. I do not work for MS. The problems with automatic numbering have persisted since Word 97, at least. They were laid out by John McGhie (Word Numbering Explained by John McGhie, MVP) and Shauna Kelly gave us step by step instructions for getting past them. Neither List Styles nor Table Styles can be part of a Quick Style Set. Both can be manipulated in the Organizer. I do not expect Word to change how it works.
Apr 10, 2026 Place Word
67Views
0likes
2Comments
Re: List Styles & Style Sets
See: [Quick] Style Sets can include multilevel numbering attached to styles. List styles cannot be a part of a [Quick] Style Set. You can use a set to transfer the numbering scheme, though, which can be edited. The numbering needs to be attached to discrete paragraph styles which have to be in the set. Automatic Numbering in Word - my 5-page pdf Quick Style Sets and Themes in Microsoft Word [Quick] Style Sets with MultiLevel Numbering attached to paragraph styles (There is a zip folder containing 100+ [Quick] Style Sets with numbering and a ReadMe document.) It is also possible to set up a macro that uses the Organizer method, but your client would have to install the template as an Add-In and allow macros to run. A Global StyleSheet in Microsoft Word?
Apr 09, 2026 Place Word
42Views
0likes
4Comments
Re: Style for Heading - Adding a straight line on the second row of the text
Kidd_Ip is correct. You would want to modify the paragraph/linked style to include a bottom border. Troublesome Lines - Borders by Suzanne Barnhill, MVP Modifying Existing Styles When you are in the Modify Style dialog, click on the Format button/menu and choose Border. You can modify the thickness and the distance from the text. Make sure that the border is set to be for the paragraph.
Apr 08, 2026 Place Word
39Views
0likes
0Comments
Re: Word VBA, Unreachable table style setting?
I do not know that this will help, but here is a sample that I recorded when creating a new Table Style following John Korchok's directions on my Tables page. https://answers.microsoft.com/en-us/msoffice/forum/all/editing-word-table-styles/92207096-eaa7-4ebf-81b2-7bc9f64d4c40 Table Styles Complete by John Korchok Sub StyleTableStyleCreate() ' ' StyleTableStyleCreate Macro ' ' ActiveDocument.Styles.Add Name:="Table Style Custom Grid 1", Type:= _ wdStyleTypeTable With ActiveDocument.Styles("Table Style Custom Grid 1").Font .Name = "+Body" .Size = 11 .Bold = False .Italic = False .Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic .StrikeThrough = False .DoubleStrikeThrough = False .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = False .AllCaps = False .Color = wdColorAutomatic .Engrave = False .Superscript = False .Subscript = False .Scaling = 100 .Kerning = 0 .Animation = wdAnimationNone .Ligatures = wdLigaturesStandardContextual .NumberSpacing = wdNumberSpacingDefault .NumberForm = wdNumberFormDefault .StylisticSet = wdStylisticSetDefault .ContextualAlternates = 0 End With With ActiveDocument.Styles("Table Style Custom Grid 1").ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("Table Style Custom Grid 1").ParagraphFormat. _ TabStops.ClearAll ActiveDocument.Styles("Table Style Custom Grid 1").Frame.Delete With ActiveDocument.Styles("Table Style Custom Grid 1").Table .TableDirection = 1 .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) .Alignment = wdAlignRowLeft .Spacing = 0 .AllowPageBreaks = True .AllowBreakAcrossPage = True .LeftIndent = InchesToPoints(0) .RowStripe = 1 .ColumnStripe = 1 End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = wdColorAutomatic End With With .Borders(wdBorderLeft) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderRight) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderBottom) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderHorizontal) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderVertical) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstRow) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstRow) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577537 End With With .Borders(wdBorderLeft) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderRight) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstRow).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstRow).Font .Name = "" .Bold = True .Color = -603914241 End With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstRow).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastRow) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastRow) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577537 End With With .Borders(wdBorderLeft) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderRight) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With .Borders(wdBorderTop).LineStyle = wdLineStyleNone With .Borders(wdBorderBottom) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastRow).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastRow).Font .Name = "" .Bold = True .Color = -603914241 End With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastRow).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstColumn) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstColumn) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577537 End With With .Borders(wdBorderLeft) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With .Borders(wdBorderRight).LineStyle = wdLineStyleNone With .Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderBottom) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstColumn).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstColumn).Font .Name = "" .Bold = True .Color = -603914241 End With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstColumn).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastColumn) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastColumn) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577537 End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone With .Borders(wdBorderRight) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderBottom) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastColumn).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastColumn).Font .Name = "" .Bold = True .Color = -603914241 End With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastColumn).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddColumnBanding) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddColumnBanding) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577690 End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddColumnBanding).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddColumnBanding).Font.Name = "" ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddColumnBanding).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenColumnBanding) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenColumnBanding) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577741 End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenColumnBanding).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenColumnBanding).Font.Name = "" ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenColumnBanding).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddRowBanding) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddRowBanding) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577690 End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders(wdBorderVertical).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddRowBanding).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddRowBanding).Font.Name = "" ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddRowBanding).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenRowBanding) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenRowBanding) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577741 End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders(wdBorderVertical).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenRowBanding).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenRowBanding).Font.Name = "" ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenRowBanding).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNECell) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNECell) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577741 End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNECell).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNECell).Font.Name = "" ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNECell).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNWCell) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNWCell) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577741 End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNWCell).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNWCell).Font.Name = "" ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNWCell).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSECell) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSECell) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577741 End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSECell).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSECell).Font.Name = "" ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSECell).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSWCell) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSWCell) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577741 End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSWCell).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSWCell).Font.Name = "" ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSWCell).ParagraphFormat.TabStops.ClearAll End Sub Does that address the attributes you want to change? See the links in my previous reply.
Apr 04, 2026 Place Word
0Views
0likes
2Comments
Re: Word VBA, Unreachable table style setting?
Like Doug Robbins, I am not sure why you would be trying to use VBA to create a Style. {I've done this to create character styles without many characteristics like the font so only on characteristic like the language is changed.) Have you tried recording a macro setting up your table style. This may be completely a waste of time, or it may give you insight into otherwise undocumented or poorly documented parts of the object model. Creating a macro with no programming experience using the recorder How to modify a recorded macro Getting to grips with VBA basics in 15 minutes
Apr 04, 2026 Place Word
25Views
0likes
0Comments
Re: Word VBA, Unreachable table style setting?
There is a lot missing from the vba object model and there are some things that are just quirky. Table styles and vba have long had problems. See https://shaunakelly.com/word/tag/table-styles.html I think that developers have given up on updating it. I'm just glad that they have not completely removed vba. I agree with Doug that you should use Feedback. The simplest way to create a new style is to create it in a template and create new documents based on the template within the UI. I do not know whether or not a custom Table Style gets brought into a document through a Quick Table that uses it, but it would be worth a try. Quick Tables
Apr 02, 2026 Place Word
29Views
1like
0Comments
Re: change background color on just ONE page
JanWillem_Aikens You can simply create a shaded rectangle set to be behind text. This will be anchored to text though, so if the text moves to a different page, the background will as well. Size the rectangle to fill the entire page. This does not need to be in the header, but is subject to being dislocated by moving text. Word Doesn't Know What a Page Is by Daiya Mitchell, MVP( https://wordmvp.com/Mac/PagesInWord.html) That was written some time ago, and is still true. As far as I can tell, the page color setting under the Design tab is for the entire document.
Apr 01, 2026 Place Word
1.3KViews
1like
0Comments
Re: Word documents suddenly take several minutes to open after March 22 Office update
I have not noticed the problem with opening documents, but generally my documents are less than 1MB. I have noticed delays in the Q&A: Word forums. You could try rolling back to 2602. For large documents, use of Style-based formatting becomes very important. The Importance of Styles in Microsoft Word. Here is a link to four very similar documentsi n a zip folder. Two each in .doc and .docx format, one is formatted primarily using styles, the other using direct formatting. The performance differences are noticeable.
Mar 31, 2026 Place Word
223Views
1like
0Comments
Re: Document Headers
Although it is late, it is time for you to learn about Styles: The Importance of Styles in Microsoft Word Understanding Styles in Microsoft Word Why Use Word's Built-In Heading Styles? by Shauna Kelly The formatting of a Table of Contents is primarily controlled by the nine TOC # styles. Generally this allows for uniform appearance of TOC entries divorced from how the text appears in the document. However, direct formatting of the referenced text being pulled into the TOC may be what is happening to you. Effect of Direct Formatting How to create a table of contents in Microsoft Word by Shauna Kelly Make sure that the headings (not headers) are formatted using paragraph styles, not by directly applying Bold or other formatting to them. Take a look at the definitions of your TOC 1, TOC 2, TOC 3, etc. styles. If you want save a sample document with the problem on OneDrive or DropBox and post a share link here so that we can look at it. The sample should include your TOC with the problem as well as two or three of the headings giving you problems. It should not include any proprietary or confidential information. What is the difference between headings and headers? Quick Reference Card for Headers, Footers and Page Numbers
Mar 31, 2026 Place Word
11Views
1like
0Comments

User Profile

Charles_Kenyon

User Widgets

Recent Discussions

Re: Conditional field code

Re: Conditional field code

Re: Is there a way to reset a password locked word document that I developed?

Re: Word freezes or crashes when pressing the G key in the file search

Re: My Word table is messed up.

Re: Large text which repeats more than 500 times in a document - how can I delete it?

Re: Formatting issues in Word Microsoft 365 Copilot online.

Re: Large text which repeats more than 500 times in a document - how can I delete it?

Re: Differences in Word for Mac and Word for Windows

Re: List Styles & Style Sets

Re: List Styles & Style Sets

Re: List Styles & Style Sets

Re: List Styles & Style Sets

Re: Style for Heading - Adding a straight line on the second row of the text

Re: Word VBA, Unreachable table style setting?

Re: Word VBA, Unreachable table style setting?

Re: Word VBA, Unreachable table style setting?

Re: change background color on just ONE page

Re: Word documents suddenly take several minutes to open after March 22 Office update

Re: Document Headers

Recent Blog Articles