将现有样式的创建代码添加到 VBA Word

Question

I would like to make a Word template. I would also like to have use a VBA macro to edit styles of my documents. I struggle with the styling. I would like to check if the style already exists and if not then create it and later apply it. However, I struggle a lot with defining of the new styles. I would like to copy a style from different document and place a creating code in my VBA code. Is there faster way than just recreate the old one with record? I'm not sure if I would be able to recreate the style to all details and I have also a lot of styles to rewrite. I tried to find any clues or answers to my problems but can't find any. I would be glad for clues or answers and if more information will be needed, I will of course provide all I can.

Answer 1

You can check whether a Style exists and, if not, create it via code like:

With ActiveDocument
  .Styles.Add Name:="MyStyle", Type:=wdStyleTypeParagraph
  On Error GoTo 0
  With .Styles("MyStyle").ParagraphFormat
    .Alignment = wdAlignParagraphCenter
    .SpaceAfter = 0
    .SpaceBefore = 0
  End With
End With

Better still would be to use the Organizer to transfer the Styles from your source file. See: https://docs.microsoft.com/en-us/office/vba/api/word.application.organizercopy

For a stand-alone Style copier that uses the Organizer, see: https://www.msofficeforums.com/28497-post34.html .

And, if you want to update existing document Styles, simply ensure the updates are in the template upon which the documents are based and apply the 'Automatically update document styles' property (see under Developer|Document Template>Templates). This too can be automated.