2016年7月25日月曜日

Wordマクロ docファイルを互換性なしのdocxファイルで保存する

Save .doc file as .docx file with VBA to remove compatibility flag.
https://groups.google.com/forum/#!topic/microsoft.public.word.vba.general/-8tg95tixXc



Sub Macro1()
ActiveDocument.SaveAs FileName:="Test Doc 1.docx", FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="",
AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveDocument.Convert 'Added this line.
End Sub

Wordマクロ すべてのスタイル名と書式定義を出力する



Wordマクロ すべてのスタイル書式を出力する

How can I export Style names and definitions from MS-Word 2010 QuickStyle Set or Template?




Sub describeAllStylesWeCareAbout()
'  by Jessica Weissman
Dim docActive As Document
Dim docNew As Document
Dim styleLoop As Style
Set docActive = ActiveDocument
Set docNew = Documents.Add
For Each styleLoop In docActive.Styles

   If styleLoop.Type < 3 Then
  ' show only character and paragraph styles, not list or table styles
     With docNew.Range
            .InsertAfter Text:=styleLoop.NameLocal & Chr(9) _
                & styleLoop.Description
            .InsertParagraphAfter
            .InsertParagraphAfter
    End With
    End If
Next styleLoop
End Sub  

Wordマクロ 使用されていないスタイルを削除する

Sub DeleteUnusedStyles()
    Dim oStyle As Style

    For Each oStyle In ActiveDocument.Styles
        'Only check out non-built-in styles
        If oStyle.BuiltIn = False Then
            With ActiveDocument.Content.Find
                .ClearFormatting
                .Style = oStyle.NameLocal
                .Execute FindText:="", Format:=True
                If .Found = False Then oStyle.Delete
            End With
        End If
    Next oStyle
End Sub

Removing Unused Styles