Word VBA Application ActiveWindow ActiveDocument Optionsの設定の出力を試みるマクロ

#Excelを使います
Excelに公式のページから貼り付けます。
このとき、Ja-jpでもいいのですが、英語で読むにします。
特にプロパティの項目です。メソッドやイベントは不要です。
下記のマクロを実行して、式をB列に貼り付けます。値と、
オブジェクトごとに、シートを分けてください。
解説がついている場合は、D列にします。
そして、式を付加するようにします。
srはAdodb.StreamでWord側で使います。
互換性、アプリケーション、文書（Document）、Window、オプション
また、ActiveDocument.WebOptionもいくつか拾います
これにページセットアップ、Styleがありますが、今回は省略します。

```vb
Sub ShowWordDocumentSettings()
' Word 2013 Later
' Application Option Window Documentの設定をテキストファイルに出力
' 出力Directoryは C:\hogeにしているので書き換えてください。
'
Const tgPath = "C:\hoge"
Const OutPutFileName = "wordOptionsResult.txt"
Const adWriteChar = 0, adWriteLine = 1
Dim wDoc As Word.Document: Set wDoc = ThisDocument
Dim buf As String
'Dim sr As New ADODB.Stream
Dim sr: Set sr = CreateObject("ADODB.Stream")
Dim wBM As Word.Bookmark, wBms As Bookmarks
With sr
.Mode = 3
.Charset = "UTF-8"
.LineSeparator = -1 ' adCRLF
.Type = 2 'adTypeText
.Open
End With

'On Error Resume Next
With Word.Application
buf = "": buf = "Application"
buf = buf & vbCrLf & ".ActiveDocument" & vbTab & .ActiveDocument 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.activedocument
buf = buf & vbCrLf & ".ActiveEncryptionSession" & vbTab & .ActiveEncryptionSession 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.activeencryptionsession
buf = buf & vbCrLf & ".ActivePrinter" & vbTab & .ActivePrinter 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.activeprinter
'buf = buf & vbCrLf & ".ActiveProtectedViewWindow" & vbTab & .ActiveProtectedViewWindow 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.activeprotectedviewwindow
buf = buf & vbCrLf & ".ActiveWindow" & vbTab & .ActiveWindow 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.activewindow
buf = buf & vbCrLf & ".AddIns.count" & vbTab & .AddIns.Count 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.addins
buf = buf & vbCrLf & ".Application" & vbTab & .Application 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.application
buf = buf & vbCrLf & ".ArbitraryXMLSupportAvailable" & vbTab & .ArbitraryXMLSupportAvailable 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.arbitraryxmlsupportavailable
'buf = buf & vbCrLf & ".Assistance" & vbTab & .Assistance 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.assistance
buf = buf & vbCrLf & ".AutoCaptions.Count" & vbTab & .AutoCaptions.Count 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.autocaptions
'buf = buf & vbCrLf & ".AutoCorrect" & vbTab & .AutoCorrect 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.autocorrect
'buf = buf & vbCrLf & ".AutoCorrectEmail" & vbTab & .AutoCorrectEmail 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.autocorrectemail
buf = buf & vbCrLf & ".AutomationSecurity" & vbTab & .AutomationSecurity 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.automationsecurity
buf = buf & vbCrLf & ".BackgroundPrintingStatus" & vbTab & .BackgroundPrintingStatus 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.backgroundprintingstatus
buf = buf & vbCrLf & ".BackgroundSavingStatus" & vbTab & .BackgroundSavingStatus 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.backgroundsavingstatus
'buf = buf & vbCrLf & ".Bibliography" & vbTab & .Bibliography 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.bibliography
buf = buf & vbCrLf & ".BrowseExtraFileTypes" & vbTab & .BrowseExtraFileTypes 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.browseextrafiletypes
'buf = buf & vbCrLf & ".Browser" & vbTab & .Browser 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.browser
buf = buf & vbCrLf & ".Build" & vbTab & .Build 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.build
buf = buf & vbCrLf & ".CapsLock" & vbTab & .CapsLock 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.capslock
buf = buf & vbCrLf & ".Caption" & vbTab & .Caption 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.caption
buf = buf & vbCrLf & ".CaptionLabels.Count" & vbTab & .CaptionLabels.Count 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.captionlabels
buf = buf & vbCrLf & ".ChartDataPointTrack" & vbTab & .ChartDataPointTrack 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.chartdatapointtrack
buf = buf & vbCrLf & ".CheckLanguage" & vbTab & .CheckLanguage 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.checklanguage
buf = buf & vbCrLf & ".COMAddIns.Count" & vbTab & .COMAddIns.Count 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.comaddins
'buf = buf & vbCrLf & ".CommandBars" & vbTab & .CommandBars 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.commandbars
buf = buf & vbCrLf & ".Creator" & vbTab & .Creator 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.creator
'buf = buf & vbCrLf & ".CustomDictionaries" & vbTab & .CustomDictionaries 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.customdictionaries
buf = buf & vbCrLf & ".CustomizationContext" & vbTab & .CustomizationContext 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.customizationcontext
buf = buf & vbCrLf & ".DefaultLegalBlackline" & vbTab & .DefaultLegalBlackline 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.defaultlegalblackline
buf = buf & vbCrLf & ".DefaultSaveFormat" & vbTab & .DefaultSaveFormat 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.defaultsaveformat
buf = buf & vbCrLf & ".DefaultTableSeparator" & vbTab & .DefaultTableSeparator 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.defaulttableseparator
'buf = buf & vbCrLf & ".Dialogs" & vbTab & .Dialogs 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.dialogs
buf = buf & vbCrLf & ".DisplayAlerts" & vbTab & .DisplayAlerts 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.displayalerts
buf = buf & vbCrLf & ".DisplayAutoCompleteTips" & vbTab & .DisplayAutoCompleteTips 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.displayautocompletetips
buf = buf & vbCrLf & ".DisplayDocumentInformationPanel" & vbTab & .DisplayDocumentInformationPanel 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.displaydocumentinformationpanel
buf = buf & vbCrLf & ".DisplayRecentFiles" & vbTab & .DisplayRecentFiles 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.displayrecentfiles
buf = buf & vbCrLf & ".DisplayScreenTips" & vbTab & .DisplayScreenTips 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.displayscreentips
buf = buf & vbCrLf & ".DisplayScrollBars" & vbTab & .DisplayScrollBars 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.displayscrollbars
'buf = buf & vbCrLf & ".Documents" & vbTab & .Documents 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.documents
buf = buf & vbCrLf & ".DontResetInsertionPointProperties" & vbTab & .DontResetInsertionPointProperties 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.dontresetinsertionpointproperties
'buf = buf & vbCrLf & ".EmailOptions" & vbTab & .EmailOptions 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.emailoptions
buf = buf & vbCrLf & ".EmailTemplate" & vbTab & .EmailTemplate 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.emailtemplate
buf = buf & vbCrLf & ".EnableCancelKey" & vbTab & .EnableCancelKey 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.enablecancelkey
buf = buf & vbCrLf & ".FeatureInstall" & vbTab & .FeatureInstall 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.featureinstall
'buf = buf & vbCrLf & ".FileConverters" & vbTab & .FileConverters 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.fileconverters
'buf = buf & vbCrLf & ".FileDialog" & vbTab & .FileDialog 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.filedialog
buf = buf & vbCrLf & ".FileValidation" & vbTab & .FileValidation 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.filevalidation
'buf = buf & vbCrLf & ".FindKey" & vbTab & .FindKey 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.findkey
buf = buf & vbCrLf & ".FocusInMailHeader" & vbTab & .FocusInMailHeader 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.focusinmailheader
buf = buf & vbCrLf & ".FontNames.Count" & vbTab & .FontNames.Count 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.fontnames
'buf = buf & vbCrLf & ".HangulHanjaDictionaries" & vbTab & .HangulHanjaDictionaries 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.hangulhanjadictionaries
buf = buf & vbCrLf & ".Height" & vbTab & .Height 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.height
'buf = buf & vbCrLf & ".International" & vbTab & .International 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.international
'buf = buf & vbCrLf & ".IsObjectValid" & vbTab & .IsObjectValid 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.isobjectvalid
buf = buf & vbCrLf & ".IsSandboxed" & vbTab & .IsSandboxed 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.issandboxed
'buf = buf & vbCrLf & ".KeyBindings" & vbTab & .KeyBindings 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.keybindings
'buf = buf & vbCrLf & ".KeysBoundTo" & vbTab & .KeysBoundTo 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.keysboundto
'buf = buf & vbCrLf & ".LandscapeFontNames" & vbTab & .LandscapeFontNames 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.landscapefontnames
buf = buf & vbCrLf & ".Language" & vbTab & .Language 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.language
'buf = buf & vbCrLf & ".Languages" & vbTab & .Languages 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.languages
'buf = buf & vbCrLf & ".LanguageSettings" & vbTab & .LanguageSettings 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.languagesettings
buf = buf & vbCrLf & ".Left" & vbTab & .Left 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.left
'buf = buf & vbCrLf & ".ListGalleries" & vbTab & .ListGalleries 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.listgalleries
buf = buf & vbCrLf & ".MacroContainer" & vbTab & .MacroContainer 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.macrocontainer
'buf = buf & vbCrLf & ".MailingLabel" & vbTab & .MailingLabel 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.mailinglabel
'buf = buf & vbCrLf & ".MailMessage" & vbTab & .MailMessage 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.mailmessage
buf = buf & vbCrLf & ".MailSystem" & vbTab & .MailSystem 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.mailsystem
buf = buf & vbCrLf & ".MAPIAvailable" & vbTab & .MAPIAvailable 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.mapiavailable
buf = buf & vbCrLf & ".MathCoprocessorAvailable" & vbTab & .MathCoprocessorAvailable 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.mathcoprocessoravailable
buf = buf & vbCrLf & ".MouseAvailable" & vbTab & .MouseAvailable 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.mouseavailable
buf = buf & vbCrLf & ".Name" & vbTab & .Name 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.name
'buf = buf & vbCrLf & ".NewDocument" & vbTab & .NewDocument 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.newdocument(property)
buf = buf & vbCrLf & ".NormalTemplate" & vbTab & .NormalTemplate 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.normaltemplate
buf = buf & vbCrLf & ".NumLock" & vbTab & .NumLock 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.numlock
'buf = buf & vbCrLf & ".OMathAutoCorrect" & vbTab & .OMathAutoCorrect 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.omathautocorrect
buf = buf & vbCrLf & ".OpenAttachmentsInFullScreen" & vbTab & .OpenAttachmentsInFullScreen 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.openattachmentsinfullscreen
'buf = buf & vbCrLf & ".Options" & vbTab & .Options 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.options
buf = buf & vbCrLf & ".Parent" & vbTab & .Parent 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.parent
buf = buf & vbCrLf & ".Path" & vbTab & .Path 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.path
buf = buf & vbCrLf & ".PathSeparator" & vbTab & .PathSeparator 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.pathseparator
'buf = buf & vbCrLf & ".PickerDialog" & vbTab & .PickerDialog 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.pickerdialog
'buf = buf & vbCrLf & ".PortraitFontNames" & vbTab & .PortraitFontNames 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.portraitfontnames
buf = buf & vbCrLf & ".PrintPreview" & vbTab & .PrintPreview 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.printpreview
'buf = buf & vbCrLf & ".ProtectedViewWindows" & vbTab & .ProtectedViewWindows 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.protectedviewwindows
'buf = buf & vbCrLf & ".RecentFiles" & vbTab & .RecentFiles 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.recentfiles
buf = buf & vbCrLf & ".RestrictLinkedStyles" & vbTab & .RestrictLinkedStyles 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.restrictlinkedstyles
buf = buf & vbCrLf & ".ScreenUpdating" & vbTab & .ScreenUpdating 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.screenupdating
buf = buf & vbCrLf & ".Selection" & vbTab & .Selection 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.selection
buf = buf & vbCrLf & ".ShowAnimation" & vbTab & .ShowAnimation 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.showanimation
buf = buf & vbCrLf & ".ShowStartupDialog" & vbTab & .ShowStartupDialog 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.showstartupdialog
buf = buf & vbCrLf & ".ShowStylePreviews" & vbTab & .ShowStylePreviews 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.showstylepreviews
buf = buf & vbCrLf & ".ShowVisualBasicEditor" & vbTab & .ShowVisualBasicEditor 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.showvisualbasiceditor
'buf = buf & vbCrLf & ".SmartArtColors" & vbTab & .SmartArtColors 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.smartartcolors
'buf = buf & vbCrLf & ".SmartArtLayouts" & vbTab & .SmartArtLayouts 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.smartartlayouts
'buf = buf & vbCrLf & ".SmartArtQuickStyles" & vbTab & .SmartArtQuickStyles 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.smartartquickstyles
buf = buf & vbCrLf & ".SpecialMode" & vbTab & .SpecialMode 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.specialmode
buf = buf & vbCrLf & ".StartupPath" & vbTab & .StartupPath 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.startuppath
'buf = buf & vbCrLf & ".StatusBar" & vbTab & .StatusBar 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.statusbar
'buf = buf & vbCrLf & ".SynonymInfo" & vbTab & .SynonymInfo 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.synonyminfo
buf = buf & vbCrLf & ".System.Version" & vbTab & .System.Version 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.system7
buf = buf & vbCrLf & ".System.OperatingSystem" & vbTab & .System.OperatingSystem
buf = buf & vbCrLf & ".System.CountryRegion" & vbTab & .System.CountryRegion
buf = buf & vbCrLf & ".System.MathCoprocessorInstalled数値演算プロセッサがあるか" & vbTab & .System.MathCoprocessorInstalled 'https://docs.microsoft.com/ja-jp/office/vba/api/word.system.mathcoprocessorinstalled
buf = buf & vbCrLf & ".System.Cursor(wdCursorType.wdCursorNormal = 2)" & vbTab & .System.Cursor
buf = buf & vbCrLf & ".System.FreeDiskSpace" & vbTab & .System.FreeDiskSpace
buf = buf & vbCrLf & ".System.HorizontalResolution" & vbTab & .System.HorizontalResolution
buf = buf & vbCrLf & ".System.VerticalResolution" & vbTab & .System.VerticalResolution
'TaskPane k
buf = buf & vbCrLf & ".TaskPanes(wdTaskPaneApplyStyles )" & vbTab & .TaskPanes(wdTaskPaneApplyStyles).Visible  'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.taskpanes
buf = buf & vbCrLf & ".TaskPanes(wdTaskPaneDocumentActions)" & vbTab & .TaskPanes(wdTaskPaneDocumentActions).Visible 'https://docs.microsoft.com/ja-jp/office/vba/api/word.wdtaskpanes
buf = buf & vbCrLf & ".TaskPanes(wdTaskPaneDocumentProtection):編集の制限ウィンド" & vbTab & .TaskPanes(wdTaskPaneDocumentProtection).Visible
buf = buf & vbCrLf & ".TaskPanes(wdTaskPaneHelp):公式のオンラインの機械翻訳以前に列挙体の値も日本語がおかしくてあまり役立たないサイトにつなぐだけのヘルプウィンド" & vbTab & .TaskPanes(wdTaskPaneHelp).Visible
buf = buf & vbCrLf & ".TaskPanes(wdTaskPaneFormatting):スタイルウィンド" & vbTab & .TaskPanes(wdTaskPaneFormatting).Visible
buf = buf & vbCrLf & ".TaskPanes(wdTaskPaneMailMerge):差し込み印刷ウィンド" & vbTab & .TaskPanes(wdTaskPaneMailMerge).Visible
buf = buf & vbCrLf & ".TaskPanes(wdTaskPaneNav):ナヴィゲーションウィンド" & vbTab & .TaskPanes(wdTaskPaneNav).Visible
buf = buf & vbCrLf & ".TaskPanes(wdTaskPaneSearch):検索と置換ウィンド" & vbTab & .TaskPanes(wdTaskPaneSearch).Visible
buf = buf & vbCrLf & ".TaskPanes(wdTaskPaneSignature):署名ウィンド" & vbTab & .TaskPanes(wdTaskPaneSignature).Visible
buf = buf & vbCrLf & ".TaskPanes(wdTaskPaneStyleInspector):スタイルの詳細情報" & vbTab & .TaskPanes(wdTaskPaneStyleInspector).Visible
buf = buf & vbCrLf & ".TaskPanes(wdTaskPaneThesaurus):類義語辞典ウィンド" & vbTab & .TaskPanes(wdTaskPaneThesaurus).Visible
buf = buf & vbCrLf & ".TaskPanes(wdTaskPaneTranslate):翻訳ウィンドウ" & vbTab & .TaskPanes(wdTaskPaneTranslate).Visible

'buf = buf & vbCrLf & ".Tasks" & vbTab & .Tasks 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.tasks
'buf = buf & vbCrLf & ".Templates" & vbTab & .Templates 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.templates
buf = buf & vbCrLf & ".Top" & vbTab & .Top 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.top
'buf = buf & vbCrLf & ".UndoRecord" & vbTab & .UndoRecord 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.undorecord
buf = buf & vbCrLf & ".UsableHeight" & vbTab & .UsableHeight 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.usableheight
buf = buf & vbCrLf & ".UsableWidth" & vbTab & .UsableWidth 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.usablewidth
buf = buf & vbCrLf & ".UserAddress" & vbTab & .UserAddress 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.useraddress
buf = buf & vbCrLf & ".UserControl" & vbTab & .UserControl 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.usercontrol
buf = buf & vbCrLf & ".UserInitials" & vbTab & .UserInitials 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.userinitials
buf = buf & vbCrLf & ".UserName" & vbTab & .UserName 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.username
'buf = buf & vbCrLf & ".VBE" & vbTab & .VBE 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.vbe
buf = buf & vbCrLf & ".Version" & vbTab & .Version 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.version
buf = buf & vbCrLf & ".Visible" & vbTab & .Visible 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.visible
buf = buf & vbCrLf & ".Width" & vbTab & .Width 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.width
'buf = buf & vbCrLf & ".Windows" & vbTab & .Windows 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.windows
buf = buf & vbCrLf & ".WindowState" & vbTab & .WindowState 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.windowstate
'buf = buf & vbCrLf & ".WordBasic" & vbTab & .WordBasic 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.wordbasic
'buf = buf & vbCrLf & ".XMLNamespaces" & vbTab & .XMLNamespaces 'https://docs.microsoft.com/ja-jp/office/vba/api/word.application.xmlnamespaces
End With
sr.WriteText buf, adWriteLine

With Options
buf = "": buf = "Options"
buf = buf & vbCrLf & ".AddBiDirectionalMarksWhenSavingTextFile" & vbTab & .AddBiDirectionalMarksWhenSavingTextFile 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.addbidirectionalmarkswhensavingtextfile
buf = buf & vbCrLf & ".AddControlCharacters" & vbTab & .AddControlCharacters 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.addcontrolcharacters
buf = buf & vbCrLf & ".AddHebDoubleQuote" & vbTab & .AddHebDoubleQuote 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.addhebdoublequote
buf = buf & vbCrLf & ".AlertIfNotDefault" & vbTab & .AlertIfNotDefault 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.alertifnotdefault
buf = buf & vbCrLf & ".AllowAccentedUppercase" & vbTab & .AllowAccentedUppercase 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.allowaccenteduppercase
buf = buf & vbCrLf & ".AllowClickAndTypeMouse" & vbTab & .AllowClickAndTypeMouse 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.allowclickandtypemouse
buf = buf & vbCrLf & ".AllowCombinedAuxiliaryForms" & vbTab & .AllowCombinedAuxiliaryForms 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.allowcombinedauxiliaryforms
buf = buf & vbCrLf & ".AllowCompoundNounProcessing" & vbTab & .AllowCompoundNounProcessing 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.allowcompoundnounprocessing
buf = buf & vbCrLf & ".AllowDragAndDrop" & vbTab & .AllowDragAndDrop 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.allowdraganddrop
buf = buf & vbCrLf & ".AllowOpenInDraftView" & vbTab & .AllowOpenInDraftView 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.allowopenindraftview
buf = buf & vbCrLf & ".AllowPixelUnits" & vbTab & .AllowPixelUnits 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.allowpixelunits
buf = buf & vbCrLf & ".AllowReadingMode" & vbTab & .AllowReadingMode 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.allowreadingmode
buf = buf & vbCrLf & ".AnimateScreenMovements" & vbTab & .AnimateScreenMovements 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.animatescreenmovements
buf = buf & vbCrLf & ".Application" & vbTab & .Application 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.application
buf = buf & vbCrLf & ".ApplyFarEastFontsToAscii" & vbTab & .ApplyFarEastFontsToAscii 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.applyfareastfontstoascii
buf = buf & vbCrLf & ".ArabicMode" & vbTab & .ArabicMode 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.arabicmode
buf = buf & vbCrLf & ".ArabicNumeral" & vbTab & .ArabicNumeral 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.arabicnumeral
buf = buf & vbCrLf & ".AutoCreateNewDrawings" & vbTab & .AutoCreateNewDrawings 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autocreatenewdrawings
buf = buf & vbCrLf & ".AutoFormatApplyBulletedLists" & vbTab & .AutoFormatApplyBulletedLists 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatapplybulletedlists
buf = buf & vbCrLf & ".AutoFormatApplyFirstIndents" & vbTab & .AutoFormatApplyFirstIndents 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatapplyfirstindents
buf = buf & vbCrLf & ".AutoFormatApplyHeadings" & vbTab & .AutoFormatApplyHeadings 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatapplyheadings
buf = buf & vbCrLf & ".AutoFormatApplyLists" & vbTab & .AutoFormatApplyLists 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatapplylists
buf = buf & vbCrLf & ".AutoFormatApplyOtherParas" & vbTab & .AutoFormatApplyOtherParas 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatapplyotherparas
buf = buf & vbCrLf & ".AutoFormatAsYouTypeApplyBorders" & vbTab & .AutoFormatAsYouTypeApplyBorders 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypeapplyborders
buf = buf & vbCrLf & ".AutoFormatAsYouTypeApplyBulletedLists" & vbTab & .AutoFormatAsYouTypeApplyBulletedLists 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypeapplybulletedlists
buf = buf & vbCrLf & ".AutoFormatAsYouTypeApplyClosings" & vbTab & .AutoFormatAsYouTypeApplyClosings 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypeapplyclosings
buf = buf & vbCrLf & ".AutoFormatAsYouTypeApplyDates" & vbTab & .AutoFormatAsYouTypeApplyDates 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypeapplydates
buf = buf & vbCrLf & ".AutoFormatAsYouTypeApplyFirstIndents" & vbTab & .AutoFormatAsYouTypeApplyFirstIndents 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypeapplyfirstindents
buf = buf & vbCrLf & ".AutoFormatAsYouTypeApplyHeadings" & vbTab & .AutoFormatAsYouTypeApplyHeadings 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypeapplyheadings
buf = buf & vbCrLf & ".AutoFormatAsYouTypeApplyNumberedLists" & vbTab & .AutoFormatAsYouTypeApplyNumberedLists 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypeapplynumberedlists
buf = buf & vbCrLf & ".AutoFormatAsYouTypeApplyTables" & vbTab & .AutoFormatAsYouTypeApplyTables 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypeapplytables
buf = buf & vbCrLf & ".AutoFormatAsYouTypeAutoLetterWizard" & vbTab & .AutoFormatAsYouTypeAutoLetterWizard 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypeautoletterwizard
buf = buf & vbCrLf & ".AutoFormatAsYouTypeDefineStyles" & vbTab & .AutoFormatAsYouTypeDefineStyles 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypedefinestyles
buf = buf & vbCrLf & ".AutoFormatAsYouTypeDeleteAutoSpaces" & vbTab & .AutoFormatAsYouTypeDeleteAutoSpaces 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypedeleteautospaces
buf = buf & vbCrLf & ".AutoFormatAsYouTypeFormatListItemBeginning" & vbTab & .AutoFormatAsYouTypeFormatListItemBeginning 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypeformatlistitembeginning
buf = buf & vbCrLf & ".AutoFormatAsYouTypeInsertClosings" & vbTab & .AutoFormatAsYouTypeInsertClosings 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypeinsertclosings
buf = buf & vbCrLf & ".AutoFormatAsYouTypeInsertOvers" & vbTab & .AutoFormatAsYouTypeInsertOvers 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypeinsertovers
buf = buf & vbCrLf & ".AutoFormatAsYouTypeMatchParentheses" & vbTab & .AutoFormatAsYouTypeMatchParentheses 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypematchparentheses
buf = buf & vbCrLf & ".AutoFormatAsYouTypeReplaceFarEastDashes" & vbTab & .AutoFormatAsYouTypeReplaceFarEastDashes 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypereplacefareastdashes
buf = buf & vbCrLf & ".AutoFormatAsYouTypeReplaceFractions" & vbTab & .AutoFormatAsYouTypeReplaceFractions 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypereplacefractions
buf = buf & vbCrLf & ".AutoFormatAsYouTypeReplaceHyperlinks" & vbTab & .AutoFormatAsYouTypeReplaceHyperlinks 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypereplacehyperlinks
buf = buf & vbCrLf & ".AutoFormatAsYouTypeReplaceOrdinals" & vbTab & .AutoFormatAsYouTypeReplaceOrdinals 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypereplaceordinals
buf = buf & vbCrLf & ".AutoFormatAsYouTypeReplacePlainTextEmphasis" & vbTab & .AutoFormatAsYouTypeReplacePlainTextEmphasis 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypereplaceplaintextemphasis
buf = buf & vbCrLf & ".AutoFormatAsYouTypeReplaceQuotes" & vbTab & .AutoFormatAsYouTypeReplaceQuotes 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypereplacequotes
buf = buf & vbCrLf & ".AutoFormatAsYouTypeReplaceSymbols" & vbTab & .AutoFormatAsYouTypeReplaceSymbols 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatasyoutypereplacesymbols
buf = buf & vbCrLf & ".AutoFormatDeleteAutoSpaces" & vbTab & .AutoFormatDeleteAutoSpaces 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatdeleteautospaces
buf = buf & vbCrLf & ".AutoFormatMatchParentheses" & vbTab & .AutoFormatMatchParentheses 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatmatchparentheses
buf = buf & vbCrLf & ".AutoFormatPlainTextWordMail" & vbTab & .AutoFormatPlainTextWordMail 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatplaintextwordmail
buf = buf & vbCrLf & ".AutoFormatPreserveStyles" & vbTab & .AutoFormatPreserveStyles 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatpreservestyles
buf = buf & vbCrLf & ".AutoFormatReplaceFarEastDashes" & vbTab & .AutoFormatReplaceFarEastDashes 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatreplacefareastdashes
buf = buf & vbCrLf & ".AutoFormatReplaceFractions" & vbTab & .AutoFormatReplaceFractions 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatreplacefractions
buf = buf & vbCrLf & ".AutoFormatReplaceHyperlinks" & vbTab & .AutoFormatReplaceHyperlinks 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatreplacehyperlinks
buf = buf & vbCrLf & ".AutoFormatReplaceOrdinals" & vbTab & .AutoFormatReplaceOrdinals 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatreplaceordinals
buf = buf & vbCrLf & ".AutoFormatReplacePlainTextEmphasis" & vbTab & .AutoFormatReplacePlainTextEmphasis 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatreplaceplaintextemphasis
buf = buf & vbCrLf & ".AutoFormatReplaceQuotes" & vbTab & .AutoFormatReplaceQuotes 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatreplacequotes
buf = buf & vbCrLf & ".AutoFormatReplaceSymbols" & vbTab & .AutoFormatReplaceSymbols 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autoformatreplacesymbols
buf = buf & vbCrLf & ".AutoKeyboardSwitching" & vbTab & .AutoKeyboardSwitching 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autokeyboardswitching
buf = buf & vbCrLf & ".AutoWordSelection" & vbTab & .AutoWordSelection 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.autowordselection
buf = buf & vbCrLf & ".BackgroundSave" & vbTab & .BackgroundSave 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.backgroundsave
buf = buf & vbCrLf & ".BibliographySort" & vbTab & .BibliographySort 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.bibliographysort
buf = buf & vbCrLf & ".BibliographyStyle" & vbTab & .BibliographyStyle 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.bibliographystyle
buf = buf & vbCrLf & ".BrazilReform" & vbTab & .BrazilReform 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.brazilreform
buf = buf & vbCrLf & ".ButtonFieldClicks" & vbTab & .ButtonFieldClicks 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.buttonfieldclicks
buf = buf & vbCrLf & ".CheckGrammarAsYouType" & vbTab & .CheckGrammarAsYouType 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.checkgrammarasyoutype
buf = buf & vbCrLf & ".CheckGrammarWithSpelling" & vbTab & .CheckGrammarWithSpelling 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.checkgrammarwithspelling
buf = buf & vbCrLf & ".CheckHangulEndings" & vbTab & .CheckHangulEndings 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.checkhangulendings
buf = buf & vbCrLf & ".CheckSpellingAsYouType" & vbTab & .CheckSpellingAsYouType 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.checkspellingasyoutype
buf = buf & vbCrLf & ".CloudSignInOption" & vbTab & .CloudSignInOption 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.cloudsigninoption
buf = buf & vbCrLf & ".CommentsColor" & vbTab & .CommentsColor 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.commentscolor
buf = buf & vbCrLf & ".ConfirmConversions" & vbTab & .ConfirmConversions 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.confirmconversions
buf = buf & vbCrLf & ".ContextualSpeller" & vbTab & .ContextualSpeller 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.contextualspeller
buf = buf & vbCrLf & ".ConvertHighAnsiToFarEast" & vbTab & .ConvertHighAnsiToFarEast 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.converthighansitofareast
buf = buf & vbCrLf & ".CreateBackup" & vbTab & .CreateBackup 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.createbackup
buf = buf & vbCrLf & ".Creator" & vbTab & .Creator 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.creator
buf = buf & vbCrLf & ".CtrlClickHyperlinkToOpen" & vbTab & .CtrlClickHyperlinkToOpen 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.ctrlclickhyperlinktoopen
buf = buf & vbCrLf & ".CursorMovement" & vbTab & .CursorMovement 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.cursormovement
buf = buf & vbCrLf & ".DefaultBorderColor" & vbTab & .DefaultBorderColor 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.defaultbordercolor
buf = buf & vbCrLf & ".DefaultBorderColorIndex" & vbTab & .DefaultBorderColorIndex 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.defaultbordercolorindex
buf = buf & vbCrLf & ".DefaultBorderLineStyle" & vbTab & .DefaultBorderLineStyle 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.defaultborderlinestyle
buf = buf & vbCrLf & ".DefaultBorderLineWidth" & vbTab & .DefaultBorderLineWidth 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.defaultborderlinewidth
'buf = buf & vbCrLf & ".DefaultEPostageApp" & vbTab & .DefaultEPostageApp 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.defaultepostageapp
buf = buf & vbCrLf & ".DefaultFilePath(wdAutoRecoverPath)" & vbTab & .DefaultFilePath(wdAutoRecoverPath) 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.defaultfilepath
buf = buf & vbCrLf & ".DefaultFilePath(wdCurrentFolderPath)" & vbTab & .DefaultFilePath(wdCurrentFolderPath) 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.defaultfilepath
buf = buf & vbCrLf & ".DefaultFilePath(wdStartupPath)" & vbTab & .DefaultFilePath(wdStartupPath) 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.defaultfilepath
buf = buf & vbCrLf & ".DefaultFilePath(wdProgramPath)" & vbTab & .DefaultFilePath(wdProgramPath) 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.defaultfilepath
buf = buf & vbCrLf & ".DefaultFilePath(wdUserOptionsPath)" & vbTab & .DefaultFilePath(wdUserOptionsPath) 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.defaultfilepathbuf = buf & vbCrLf & ".DefaultOpenFormat" & vbTab & .DefaultOpenFormat 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.defaultopenformat
buf = buf & vbCrLf & ".DefaultFilePath(wdUserTemplatesPath)" & vbTab & .DefaultFilePath(wdUserTemplatesPath) 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.defaultfilepathbuf = buf & vbCrLf & ".DefaultOpenFormat" & vbTab & .DefaultOpenFormat 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.defaultopenformat
buf = buf & vbCrLf & ".DefaultHighlightColorIndex" & vbTab & .DefaultHighlightColorIndex 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.defaulthighlightcolorindex
buf = buf & vbCrLf & ".DefaultTextEncoding" & vbTab & .DefaultTextEncoding 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.defaulttextencoding
buf = buf & vbCrLf & ".DefaultTray" & vbTab & .DefaultTray 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.defaulttray
buf = buf & vbCrLf & ".DefaultTrayID" & vbTab & .DefaultTrayID 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.defaulttrayid
buf = buf & vbCrLf & ".DeletedCellColor" & vbTab & .DeletedCellColor 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.deletedcellcolor
buf = buf & vbCrLf & ".DeletedTextColor" & vbTab & .DeletedTextColor 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.deletedtextcolor
buf = buf & vbCrLf & ".DeletedTextMark" & vbTab & .DeletedTextMark 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.deletedtextmark
buf = buf & vbCrLf & ".DiacriticColorVal" & vbTab & .DiacriticColorVal 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.diacriticcolorval
buf = buf & vbCrLf & ".DisableFeaturesbyDefault" & vbTab & .DisableFeaturesbyDefault 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.disablefeaturesbydefault
buf = buf & vbCrLf & ".DisableFeaturesIntroducedAfterbyDefault" & vbTab & .DisableFeaturesIntroducedAfterbyDefault 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.disablefeaturesintroducedafterbydefault
buf = buf & vbCrLf & ".DisplayAlignmentGuides" & vbTab & .DisplayAlignmentGuides 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.displayalignmentguides
buf = buf & vbCrLf & ".DisplayGridLines" & vbTab & .DisplayGridLines 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.displaygridlines
buf = buf & vbCrLf & ".DisplayPasteOptions" & vbTab & .DisplayPasteOptions 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.displaypasteoptions
buf = buf & vbCrLf & ".DocumentViewDirection" & vbTab & .DocumentViewDirection 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.documentviewdirection
buf = buf & vbCrLf & ".DoNotPromptForConvert" & vbTab & .DoNotPromptForConvert 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.donotpromptforconvert
buf = buf & vbCrLf & ".EnableHangulHanjaRecentOrdering" & vbTab & .EnableHangulHanjaRecentOrdering 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.enablehangulhanjarecentordering
buf = buf & vbCrLf & ".EnableLegacyIMEMode" & vbTab & .EnableLegacyIMEMode 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.enablelegacyimemode
buf = buf & vbCrLf & ".EnableLiveDrag" & vbTab & .EnableLiveDrag 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.enablelivedrag
buf = buf & vbCrLf & ".EnableLivePreview" & vbTab & .EnableLivePreview 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.enablelivepreview
buf = buf & vbCrLf & ".EnableMisusedWordsDictionary" & vbTab & .EnableMisusedWordsDictionary 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.enablemisusedwordsdictionary
buf = buf & vbCrLf & ".EnableProofingToolsAdvertisement" & vbTab & .EnableProofingToolsAdvertisement 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.enableproofingtoolsadvertisement
buf = buf & vbCrLf & ".EnableSound" & vbTab & .EnableSound 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.enablesound
buf = buf & vbCrLf & ".EnvelopeFeederInstalled" & vbTab & .EnvelopeFeederInstalled 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.envelopefeederinstalled
buf = buf & vbCrLf & ".ExpandHeadingsOnOpen" & vbTab & .ExpandHeadingsOnOpen 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.expandheadingsonopen
buf = buf & vbCrLf & ".FormatScanning" & vbTab & .FormatScanning 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.formatscanning
buf = buf & vbCrLf & ".FrenchReform" & vbTab & .FrenchReform 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.frenchreform
buf = buf & vbCrLf & ".GridDistanceHorizontal" & vbTab & .GridDistanceHorizontal 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.griddistancehorizontal
buf = buf & vbCrLf & ".GridDistanceVertical" & vbTab & .GridDistanceVertical 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.griddistancevertical
buf = buf & vbCrLf & ".GridOriginHorizontal" & vbTab & .GridOriginHorizontal 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.gridoriginhorizontal
buf = buf & vbCrLf & ".GridOriginVertical" & vbTab & .GridOriginVertical 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.gridoriginvertical
buf = buf & vbCrLf & ".HangulHanjaFastConversion" & vbTab & .HangulHanjaFastConversion 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.hangulhanjafastconversion
buf = buf & vbCrLf & ".HebrewMode" & vbTab & .HebrewMode 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.hebrewmode
buf = buf & vbCrLf & ".IgnoreInternetAndFileAddresses" & vbTab & .IgnoreInternetAndFileAddresses 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.ignoreinternetandfileaddresses
buf = buf & vbCrLf & ".IgnoreMixedDigits" & vbTab & .IgnoreMixedDigits 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.ignoremixeddigits
buf = buf & vbCrLf & ".IgnoreUppercase" & vbTab & .IgnoreUppercase 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.ignoreuppercase
buf = buf & vbCrLf & ".IMEAutomaticControl" & vbTab & .IMEAutomaticControl 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.imeautomaticcontrol
buf = buf & vbCrLf & ".InlineConversion" & vbTab & .InlineConversion 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.inlineconversion
buf = buf & vbCrLf & ".InsertedCellColor" & vbTab & .InsertedCellColor 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.insertedcellcolor
buf = buf & vbCrLf & ".InsertedTextColor" & vbTab & .InsertedTextColor 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.insertedtextcolor
buf = buf & vbCrLf & ".InsertedTextMark" & vbTab & .InsertedTextMark 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.insertedtextmark
buf = buf & vbCrLf & ".INSKeyForOvertype" & vbTab & .INSKeyForOvertype 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.inskeyforovertype
buf = buf & vbCrLf & ".INSKeyForPaste" & vbTab & .INSKeyForPaste 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.inskeyforpaste
buf = buf & vbCrLf & ".InterpretHighAnsi" & vbTab & .InterpretHighAnsi 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.interprethighansi
buf = buf & vbCrLf & ".LocalNetworkFile" & vbTab & .LocalNetworkFile 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.localnetworkfile
buf = buf & vbCrLf & ".MapPaperSize" & vbTab & .MapPaperSize 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.mappapersize
buf = buf & vbCrLf & ".MarginAlignmentGuides" & vbTab & .MarginAlignmentGuides 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.marginalignmentguides
buf = buf & vbCrLf & ".MatchFuzzyAY" & vbTab & .MatchFuzzyAY 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.matchfuzzyay
buf = buf & vbCrLf & ".MatchFuzzyBV" & vbTab & .MatchFuzzyBV 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.matchfuzzybv
buf = buf & vbCrLf & ".MatchFuzzyByte" & vbTab & .MatchFuzzyByte 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.matchfuzzybyte
buf = buf & vbCrLf & ".MatchFuzzyCase" & vbTab & .MatchFuzzyCase 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.matchfuzzycase
buf = buf & vbCrLf & ".MatchFuzzyDash" & vbTab & .MatchFuzzyDash 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.matchfuzzydash
buf = buf & vbCrLf & ".MatchFuzzyDZ" & vbTab & .MatchFuzzyDZ 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.matchfuzzydz
buf = buf & vbCrLf & ".MatchFuzzyHF" & vbTab & .MatchFuzzyHF 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.matchfuzzyhf
buf = buf & vbCrLf & ".MatchFuzzyHiragana" & vbTab & .MatchFuzzyHiragana 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.matchfuzzyhiragana
buf = buf & vbCrLf & ".MatchFuzzyIterationMark" & vbTab & .MatchFuzzyIterationMark 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.matchfuzzyiterationmark
buf = buf & vbCrLf & ".MatchFuzzyKanji" & vbTab & .MatchFuzzyKanji 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.matchfuzzykanji
buf = buf & vbCrLf & ".MatchFuzzyKiKu" & vbTab & .MatchFuzzyKiKu 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.matchfuzzykiku
buf = buf & vbCrLf & ".MatchFuzzyOldKana" & vbTab & .MatchFuzzyOldKana 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.matchfuzzyoldkana
buf = buf & vbCrLf & ".MatchFuzzyProlongedSoundMark" & vbTab & .MatchFuzzyProlongedSoundMark 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.matchfuzzyprolongedsoundmark
buf = buf & vbCrLf & ".MatchFuzzyPunctuation" & vbTab & .MatchFuzzyPunctuation 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.matchfuzzypunctuation
buf = buf & vbCrLf & ".MatchFuzzySmallKana" & vbTab & .MatchFuzzySmallKana 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.matchfuzzysmallkana
buf = buf & vbCrLf & ".MatchFuzzySpace" & vbTab & .MatchFuzzySpace 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.matchfuzzyspace
buf = buf & vbCrLf & ".MatchFuzzyTC" & vbTab & .MatchFuzzyTC 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.matchfuzzytc
buf = buf & vbCrLf & ".MatchFuzzyZJ" & vbTab & .MatchFuzzyZJ 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.matchfuzzyzj
buf = buf & vbCrLf & ".MeasurementUnit" & vbTab & .MeasurementUnit 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.measurementunit
buf = buf & vbCrLf & ".MergedCellColor" & vbTab & .MergedCellColor 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.mergedcellcolor
buf = buf & vbCrLf & ".MonthNames" & vbTab & .MonthNames 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.monthnames
buf = buf & vbCrLf & ".MoveFromTextColor" & vbTab & .MoveFromTextColor 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.movefromtextcolor
buf = buf & vbCrLf & ".MoveFromTextMark" & vbTab & .MoveFromTextMark 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.movefromtextmark
buf = buf & vbCrLf & ".MoveToTextColor" & vbTab & .MoveToTextColor 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.movetotextcolor
buf = buf & vbCrLf & ".MoveToTextMark" & vbTab & .MoveToTextMark 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.movetotextmark
buf = buf & vbCrLf & ".MultipleWordConversionsMode" & vbTab & .MultipleWordConversionsMode 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.multiplewordconversionsmode
buf = buf & vbCrLf & ".OMathAutoBuildUp" & vbTab & .OMathAutoBuildUp 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.omathautobuildup
buf = buf & vbCrLf & ".OMathCopyLF" & vbTab & .OMathCopyLF 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.omathcopylf
buf = buf & vbCrLf & ".OptimizeForWord97byDefault" & vbTab & .OptimizeForWord97byDefault 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.optimizeforword97bydefault
buf = buf & vbCrLf & ".Overtype" & vbTab & .Overtype 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.overtype
buf = buf & vbCrLf & ".PageAlignmentGuides" & vbTab & .PageAlignmentGuides 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.pagealignmentguides
buf = buf & vbCrLf & ".Pagination" & vbTab & .Pagination 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.pagination
buf = buf & vbCrLf & ".ParagraphAlignmentGuides" & vbTab & .ParagraphAlignmentGuides 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.paragraphalignmentguides
buf = buf & vbCrLf & ".Parent" & vbTab & .Parent 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.parent
buf = buf & vbCrLf & ".PasteAdjustParagraphSpacing" & vbTab & .PasteAdjustParagraphSpacing 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.pasteadjustparagraphspacing
buf = buf & vbCrLf & ".PasteAdjustTableFormatting" & vbTab & .PasteAdjustTableFormatting 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.pasteadjusttableformatting
buf = buf & vbCrLf & ".PasteAdjustWordSpacing" & vbTab & .PasteAdjustWordSpacing 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.pasteadjustwordspacing
buf = buf & vbCrLf & ".PasteFormatBetweenDocuments" & vbTab & .PasteFormatBetweenDocuments 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.pasteformatbetweendocuments
buf = buf & vbCrLf & ".PasteFormatBetweenStyledDocuments" & vbTab & .PasteFormatBetweenStyledDocuments 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.pasteformatbetweenstyleddocuments
buf = buf & vbCrLf & ".PasteFormatFromExternalSource" & vbTab & .PasteFormatFromExternalSource 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.pasteformatfromexternalsource
buf = buf & vbCrLf & ".PasteFormatWithinDocument" & vbTab & .PasteFormatWithinDocument 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.pasteformatwithindocument
buf = buf & vbCrLf & ".PasteMergeFromPPT" & vbTab & .PasteMergeFromPPT 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.pastemergefromppt
buf = buf & vbCrLf & ".PasteMergeFromXL" & vbTab & .PasteMergeFromXL 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.pastemergefromxl
buf = buf & vbCrLf & ".PasteMergeLists" & vbTab & .PasteMergeLists 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.pastemergelists
buf = buf & vbCrLf & ".PasteOptionKeepBulletsAndNumbers" & vbTab & .PasteOptionKeepBulletsAndNumbers 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.pasteoptionkeepbulletsandnumbers
buf = buf & vbCrLf & ".PasteSmartCutPaste" & vbTab & .PasteSmartCutPaste 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.pastesmartcutpaste
buf = buf & vbCrLf & ".PasteSmartStyleBehavior" & vbTab & .PasteSmartStyleBehavior 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.pastesmartstylebehavior
buf = buf & vbCrLf & ".PictureEditor" & vbTab & .PictureEditor 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.pictureeditor
buf = buf & vbCrLf & ".PictureWrapType" & vbTab & .PictureWrapType 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.picturewraptype
buf = buf & vbCrLf & ".PortugalReform" & vbTab & .PortugalReform 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.portugalreform
buf = buf & vbCrLf & ".PrecisePositioning" & vbTab & .PrecisePositioning 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.precisepositioning
buf = buf & vbCrLf & ".PreferCloudSaveLocations" & vbTab & .PreferCloudSaveLocations 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.prefercloudsavelocations
buf = buf & vbCrLf & ".PrintBackground" & vbTab & .PrintBackground 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.printbackground
buf = buf & vbCrLf & ".PrintBackgrounds" & vbTab & .PrintBackgrounds 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.printbackgrounds
buf = buf & vbCrLf & ".PrintComments" & vbTab & .PrintComments 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.printcomments
buf = buf & vbCrLf & ".PrintDraft" & vbTab & .PrintDraft 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.printdraft
buf = buf & vbCrLf & ".PrintDrawingObjects" & vbTab & .PrintDrawingObjects 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.printdrawingobjects
buf = buf & vbCrLf & ".PrintEvenPagesInAscendingOrder" & vbTab & .PrintEvenPagesInAscendingOrder 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.printevenpagesinascendingorder
buf = buf & vbCrLf & ".PrintFieldCodes" & vbTab & .PrintFieldCodes 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.printfieldcodes
buf = buf & vbCrLf & ".PrintHiddenText" & vbTab & .PrintHiddenText 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.printhiddentext
buf = buf & vbCrLf & ".PrintOddPagesInAscendingOrder" & vbTab & .PrintOddPagesInAscendingOrder 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.printoddpagesinascendingorder
buf = buf & vbCrLf & ".PrintProperties" & vbTab & .PrintProperties 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.printproperties
buf = buf & vbCrLf & ".PrintReverse" & vbTab & .PrintReverse 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.printreverse
buf = buf & vbCrLf & ".PrintXMLTag" & vbTab & .PrintXMLTag 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.printxmltag
buf = buf & vbCrLf & ".PromptUpdateStyle" & vbTab & .PromptUpdateStyle 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.promptupdatestyle
buf = buf & vbCrLf & ".RepeatWord" & vbTab & .RepeatWord 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.repeatword
buf = buf & vbCrLf & ".ReplaceSelection" & vbTab & .ReplaceSelection 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.replaceselection
buf = buf & vbCrLf & ".RevisedLinesColor" & vbTab & .RevisedLinesColor 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.revisedlinescolor
buf = buf & vbCrLf & ".RevisedLinesMark" & vbTab & .RevisedLinesMark 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.revisedlinesmark
buf = buf & vbCrLf & ".RevisedPropertiesColor" & vbTab & .RevisedPropertiesColor 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.revisedpropertiescolor
buf = buf & vbCrLf & ".RevisedPropertiesMark" & vbTab & .RevisedPropertiesMark 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.revisedpropertiesmark
buf = buf & vbCrLf & ".RevisionsBalloonPrintOrientation" & vbTab & .RevisionsBalloonPrintOrientation 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.revisionsballoonprintorientation
buf = buf & vbCrLf & ".RTFInClipboard" & vbTab & .RTFInClipboard 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.rtfinclipboard
buf = buf & vbCrLf & ".SaveInterval" & vbTab & .SaveInterval 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.saveinterval
buf = buf & vbCrLf & ".SaveNormalPrompt" & vbTab & .SaveNormalPrompt 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.savenormalprompt
buf = buf & vbCrLf & ".SavePropertiesPrompt" & vbTab & .SavePropertiesPrompt 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.savepropertiesprompt
buf = buf & vbCrLf & ".SendMailAttach" & vbTab & .SendMailAttach 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.sendmailattach
buf = buf & vbCrLf & ".SequenceCheck" & vbTab & .SequenceCheck 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.sequencecheck
buf = buf & vbCrLf & ".ShortMenuNames" & vbTab & .ShortMenuNames 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.options.shortmenunames
buf = buf & vbCrLf & ".ShowControlCharacters" & vbTab & .ShowControlCharacters 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.showcontrolcharacters
buf = buf & vbCrLf & ".ShowDevTools" & vbTab & .ShowDevTools 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.showdevtools
buf = buf & vbCrLf & ".ShowDiacritics" & vbTab & .ShowDiacritics 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.showdiacritics
buf = buf & vbCrLf & ".ShowFormatError" & vbTab & .ShowFormatError 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.showformaterror
buf = buf & vbCrLf & ".ShowMarkupOpenSave" & vbTab & .ShowMarkupOpenSave 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.showmarkupopensave
buf = buf & vbCrLf & ".ShowMenuFloaties" & vbTab & .ShowMenuFloaties 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.showmenufloaties
buf = buf & vbCrLf & ".ShowReadabilityStatistics" & vbTab & .ShowReadabilityStatistics 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.showreadabilitystatistics
buf = buf & vbCrLf & ".ShowSelectionFloaties" & vbTab & .ShowSelectionFloaties 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.showselectionfloaties
buf = buf & vbCrLf & ".SmartCursoring" & vbTab & .SmartCursoring 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.smartcursoring
buf = buf & vbCrLf & ".SmartCutPaste" & vbTab & .SmartCutPaste 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.smartcutpaste
buf = buf & vbCrLf & ".SmartParaSelection" & vbTab & .SmartParaSelection 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.smartparaselection
buf = buf & vbCrLf & ".SnapToGrid" & vbTab & .SnapToGrid 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.snaptogrid
buf = buf & vbCrLf & ".SnapToShapes" & vbTab & .SnapToShapes 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.snaptoshapes
buf = buf & vbCrLf & ".SpanishMode" & vbTab & .SpanishMode 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.spanishmode
buf = buf & vbCrLf & ".SplitCellColor" & vbTab & .SplitCellColor 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.splitcellcolor
buf = buf & vbCrLf & ".StoreRSIDOnSave" & vbTab & .StoreRSIDOnSave 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.storersidonsave
buf = buf & vbCrLf & ".StrictFinalYaa" & vbTab & .StrictFinalYaa 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.strictfinalyaa
buf = buf & vbCrLf & ".StrictInitialAlefHamza" & vbTab & .StrictInitialAlefHamza 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.strictinitialalefhamza
buf = buf & vbCrLf & ".StrictRussianE" & vbTab & .StrictRussianE 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.strictrussiane
buf = buf & vbCrLf & ".StrictTaaMarboota" & vbTab & .StrictTaaMarboota 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.stricttaamarboota
buf = buf & vbCrLf & ".SuggestFromMainDictionaryOnly" & vbTab & .SuggestFromMainDictionaryOnly 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.suggestfrommaindictionaryonly
buf = buf & vbCrLf & ".SuggestSpellingCorrections" & vbTab & .SuggestSpellingCorrections 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.suggestspellingcorrections
buf = buf & vbCrLf & ".TabIndentKey" & vbTab & .TabIndentKey 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.tabindentkey
buf = buf & vbCrLf & ".TypeNReplace" & vbTab & .TypeNReplace 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.typenreplace
buf = buf & vbCrLf & ".UpdateFieldsAtPrint" & vbTab & .UpdateFieldsAtPrint 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.updatefieldsatprint
buf = buf & vbCrLf & ".UpdateFieldsWithTrackedChangesAtPrint" & vbTab & .UpdateFieldsWithTrackedChangesAtPrint 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.updatefieldswithtrackedchangesatprint
buf = buf & vbCrLf & ".UpdateLinksAtOpen" & vbTab & .UpdateLinksAtOpen 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.updatelinksatopen
buf = buf & vbCrLf & ".UpdateLinksAtPrint" & vbTab & .UpdateLinksAtPrint 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.updatelinksatprint
buf = buf & vbCrLf & ".UpdateStyleListBehavior" & vbTab & .UpdateStyleListBehavior 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.updatestylelistbehavior
buf = buf & vbCrLf & ".UseCharacterUnit" & vbTab & .UseCharacterUnit 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.usecharacterunit
buf = buf & vbCrLf & ".UseDiffDiacColor" & vbTab & .UseDiffDiacColor 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.usediffdiaccolor
buf = buf & vbCrLf & ".UseGermanSpellingReform" & vbTab & .UseGermanSpellingReform 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.usegermanspellingreform
buf = buf & vbCrLf & ".UseLocalUserInfo" & vbTab & .UseLocalUserInfo 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.uselocaluserinfo
buf = buf & vbCrLf & ".UseNormalStyleForList" & vbTab & .UseNormalStyleForList 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.usenormalstyleforlist
buf = buf & vbCrLf & ".UseSubPixelPositioning" & vbTab & .UseSubPixelPositioning 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.usesubpixelpositioning
buf = buf & vbCrLf & ".VisualSelection" & vbTab & .VisualSelection 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.visualselection
buf = buf & vbCrLf & ".WarnBeforeSavingPrintingSendingMarkup" & vbTab & .WarnBeforeSavingPrintingSendingMarkup 'https://docs.microsoft.com/ja-jp/office/vba/api/word.options.warnbeforesavingprintingsendingmarkup
End With
sr.WriteText buf, adWriteChar
With Word.Application.ActiveDocument.ActiveWindow
buf = "" & "ActiveWindow"
buf = buf & vbCrLf & ".Active" & vbTab & .Active 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.active
'buf = buf & vbCrLf & ".ActivePane" & vbTab & .ActivePane 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.activepane
buf = buf & vbCrLf & ".Application" & vbTab & .Application 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.application
buf = buf & vbCrLf & ".Caption" & vbTab & .Caption 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.caption
buf = buf & vbCrLf & ".Creator" & vbTab & .Creator 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.creator
buf = buf & vbCrLf & ".DisplayHorizontalScrollBar" & vbTab & .DisplayHorizontalScrollBar 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.displayhorizontalscrollbar
buf = buf & vbCrLf & ".DisplayLeftScrollBar" & vbTab & .DisplayLeftScrollBar 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.displayleftscrollbar
buf = buf & vbCrLf & ".DisplayRightRuler" & vbTab & .DisplayRightRuler 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.displayrightruler
buf = buf & vbCrLf & ".DisplayRulers" & vbTab & .DisplayRulers 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.displayrulers
buf = buf & vbCrLf & ".DisplayScreenTips" & vbTab & .DisplayScreenTips 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.displayscreentips
buf = buf & vbCrLf & ".DisplayVerticalRuler" & vbTab & .DisplayVerticalRuler 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.displayverticalruler
buf = buf & vbCrLf & ".DisplayVerticalScrollBar" & vbTab & .DisplayVerticalScrollBar 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.displayverticalscrollbar
buf = buf & vbCrLf & ".Document" & vbTab & .Document 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.document
buf = buf & vbCrLf & ".DocumentMap" & vbTab & .DocumentMap 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.documentmap
buf = buf & vbCrLf & ".EnvelopeVisible" & vbTab & .EnvelopeVisible 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.envelopevisible
buf = buf & vbCrLf & ".Height" & vbTab & .Height 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.height
buf = buf & vbCrLf & ".HorizontalPercentScrolled" & vbTab & .HorizontalPercentScrolled 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.horizontalpercentscrolled
buf = buf & vbCrLf & ".Hwnd" & vbTab & .Hwnd 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.hwnd
buf = buf & vbCrLf & ".IMEMode" & vbTab & .IMEMode 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.imemode
buf = buf & vbCrLf & ".Index" & vbTab & .Index 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.index
buf = buf & vbCrLf & ".Left" & vbTab & .Left 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.left
'buf = buf & vbCrLf & ".Next" & vbTab & .Next 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.next
'buf = buf & vbCrLf & ".Panes" & vbTab & .Panes 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.panes
buf = buf & vbCrLf & ".Parent" & vbTab & .Parent 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.parent
If Not .Previous Is Nothing Then buf = buf & vbCrLf & ".Previous" & vbTab & .Previous 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.previous
buf = buf & vbCrLf & ".Selection" & vbTab & .Selection 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.selection
'buf = buf & vbCrLf & ".ShowSourceDocuments" & vbTab & .ShowSourceDocuments 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.showsourcedocuments
buf = buf & vbCrLf & ".Split" & vbTab & .Split 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.split
buf = buf & vbCrLf & ".SplitVertical" & vbTab & .SplitVertical 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.splitvertical
buf = buf & vbCrLf & ".StyleAreaWidth" & vbTab & .StyleAreaWidth 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.styleareawidth
buf = buf & vbCrLf & ".Thumbnails" & vbTab & .Thumbnails 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.thumbnails
buf = buf & vbCrLf & ".Top" & vbTab & .Top 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.top
buf = buf & vbCrLf & ".Type" & vbTab & .Type 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.type
buf = buf & vbCrLf & ".UsableHeight" & vbTab & .UsableHeight 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.usableheight
buf = buf & vbCrLf & ".UsableWidth" & vbTab & .UsableWidth 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.usablewidth
buf = buf & vbCrLf & ".VerticalPercentScrolled" & vbTab & .VerticalPercentScrolled 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.verticalpercentscrolled
buf = buf & vbCrLf & ".View" & vbTab & .View 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.view
buf = buf & vbCrLf & ".Visible" & vbTab & .Visible 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.visible
buf = buf & vbCrLf & ".Width" & vbTab & .Width 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.width
buf = buf & vbCrLf & ".WindowNumber" & vbTab & .WindowNumber 'https://docs.microsoft.com/ja-jp/office/vba/api/word.windownumber
buf = buf & vbCrLf & ".WindowState" & vbTab & .WindowState 'https://docs.microsoft.com/ja-jp/office/vba/api/word.window.windowstate
End With
sr.WriteText buf, adWriteLine
sr.WriteText "WebOptions" & vbTab & "https://docs.microsoft.com/ja-jp/office/vba/api/word.weboptions"
With ActiveDocument.WebOptions
sr.WriteText "ActiveDocument.WebOptions.AllowPNG" & vbTab & .AllowPNG  'https://docs.microsoft.com/ja-jp/office/vba/api/word.weboptions.allowpng
sr.WriteText "ActiveDocument.WebOptions.BrowserLevel( Word.WdBrowserLevel.wdBrowserLevelMicrosoftInternetExplorer6 = 2)" & vbTab & .BrowserLevel  'https://docs.microsoft.com/ja-jp/office/vba/api/word.weboptions.allowpng
sr.WriteText "ActiveDocument.WebOptions.Encoding" & vbTab & .Encoding 'https://docs.microsoft.com/ja-jp/office/vba/api/word.weboptions.Encoding
sr.WriteText "ActiveDocument.WebOptions.ScreenSize (Office.MsoScreenSize)" & vbTab & .ScreenSize
sr.WriteText "ActiveDocument.WebOptions.TargetBrowser (Office.MsoTargetBrowser)" & vbTab & .TargetBrowser
sr.WriteText "ActiveDocument.WebOptions.UseLongFileNames" & vbTab & .UseLongFileNames
End With

' 互換性 Compatibility Word 2010はこれより少ない。
sr.WriteText "Compatibility", adWriteLine
sr.WriteText "wdNoTabHangIndent" & vbTab & "1" & vbTab & ActiveDocument.Compatibility(wdNoTabHangIndent), adWriteLine 'Do not add automatic tab stop for hanging indent.
sr.WriteText "wdNoSpaceRaiseLower" & vbTab & "2" & vbTab & ActiveDocument.Compatibility(wdNoSpaceRaiseLower), adWriteLine 'Do not add extra space for raised/lowered characters.
sr.WriteText "wdPrintColBlack" & vbTab & "3" & vbTab & ActiveDocument.Compatibility(wdPrintColBlack), adWriteLine 'Print colors as black on noncolor printers.
sr.WriteText "wdWrapTrailSpaces" & vbTab & "4" & vbTab & ActiveDocument.Compatibility(wdWrapTrailSpaces), adWriteLine 'Wrap trailing spaces to next line.
sr.WriteText "wdNoColumnBalance" & vbTab & "5" & vbTab & ActiveDocument.Compatibility(wdNoColumnBalance), adWriteLine 'Do not balance columns for continuous section starts.
sr.WriteText "wdConvMailMergeEsc" & vbTab & "6" & vbTab & ActiveDocument.Compatibility(wdConvMailMergeEsc), adWriteLine 'Treat " as "" in mail merge data sources.
sr.WriteText "wdSuppressSpBfAfterPgBrk" & vbTab & "7" & vbTab & ActiveDocument.Compatibility(wdSuppressSpBfAfterPgBrk), adWriteLine 'Suppress Space Before after a hard page or column break.
sr.WriteText "wdSuppressTopSpacing" & vbTab & "8" & vbTab & ActiveDocument.Compatibility(wdSuppressTopSpacing), adWriteLine 'Suppress extra line spacing at top of page.
sr.WriteText "wdOrigWordTableRules" & vbTab & "9" & vbTab & ActiveDocument.Compatibility(wdOrigWordTableRules), adWriteLine 'Combine table borders like Word 5.x for the Macintosh.
sr.WriteText "wdTransparentMetafiles" & vbTab & "10" & vbTab & ActiveDocument.Compatibility(wdTransparentMetafiles), adWriteLine 'Do not blank the area behind metafile pictures.
sr.WriteText "wdShowBreaksInFrames" & vbTab & "11" & vbTab & ActiveDocument.Compatibility(wdShowBreaksInFrames), adWriteLine 'Show hard page or column breaks in frames.
sr.WriteText "wdSwapBordersFacingPages" & vbTab & "12" & vbTab & ActiveDocument.Compatibility(wdSwapBordersFacingPages), adWriteLine 'Swap left and right borders on odd facing pages.
sr.WriteText "wdLeaveBackslashAlone" & vbTab & "13" & vbTab & ActiveDocument.Compatibility(wdLeaveBackslashAlone), adWriteLine 'Convert backslash characters into yen signs.
sr.WriteText "wdExpandShiftReturn" & vbTab & "14" & vbTab & ActiveDocument.Compatibility(wdExpandShiftReturn), adWriteLine 'Do not expand character spaces on the line ending Shift+Return.
sr.WriteText "wdDontULTrailSpace" & vbTab & "15" & vbTab & ActiveDocument.Compatibility(wdDontULTrailSpace), adWriteLine 'Draw underline on trailing spaces.
sr.WriteText "wdDontBalanceSingleByteDoubleByteWidth" & vbTab & "16" & vbTab & ActiveDocument.Compatibility(wdDontBalanceSingleByteDoubleByteWidth), adWriteLine 'Balance SBCS characters and DBCS characters.
sr.WriteText "wdSuppressTopSpacingMac5" & vbTab & "17" & vbTab & ActiveDocument.Compatibility(wdSuppressTopSpacingMac5), adWriteLine 'Suppress extra line spacing at top of page like Word 5.x for the Macintosh.
sr.WriteText "wdSpacingInWholePoints" & vbTab & "18" & vbTab & ActiveDocument.Compatibility(wdSpacingInWholePoints), adWriteLine 'Expand/condense by whole number of points.
sr.WriteText "wdPrintBodyTextBeforeHeader" & vbTab & "19" & vbTab & ActiveDocument.Compatibility(wdPrintBodyTextBeforeHeader), adWriteLine 'Print body text before header/footer.
sr.WriteText "wdNoLeading" & vbTab & "20" & vbTab & ActiveDocument.Compatibility(wdNoLeading), adWriteLine 'Do not add leading (extra space) between rows of text.
sr.WriteText "wdNoSpaceForUL" & vbTab & "21" & vbTab & ActiveDocument.Compatibility(wdNoSpaceForUL), adWriteLine 'Add space for underline.
sr.WriteText "wdMWSmallCaps" & vbTab & "22" & vbTab & ActiveDocument.Compatibility(wdMWSmallCaps), adWriteLine 'Use larger small caps like Word 5.x for the Macintosh.
sr.WriteText "wdNoExtraLineSpacing" & vbTab & "23" & vbTab & ActiveDocument.Compatibility(wdNoExtraLineSpacing), adWriteLine 'Suppress extra line spacing like WordPerfect 5.x.
sr.WriteText "wdTruncateFontHeight" & vbTab & "24" & vbTab & ActiveDocument.Compatibility(wdTruncateFontHeight), adWriteLine 'Truncate font height.
sr.WriteText "wdSubFontBySize" & vbTab & "25" & vbTab & ActiveDocument.Compatibility(wdSubFontBySize), adWriteLine 'Substitute fonts based on font size.
sr.WriteText "wdUsePrinterMetrics" & vbTab & "26" & vbTab & ActiveDocument.Compatibility(wdUsePrinterMetrics), adWriteLine 'Use printer metrics to lay out document.
sr.WriteText "wdWW6BorderRules" & vbTab & "27" & vbTab & ActiveDocument.Compatibility(wdWW6BorderRules), adWriteLine 'Use Word 6.x/95 border rules.
sr.WriteText "wdExactOnTop" & vbTab & "28" & vbTab & ActiveDocument.Compatibility(wdExactOnTop), adWriteLine 'Do not center "exact line height" lines.
sr.WriteText "wdSuppressBottomSpacing" & vbTab & "29" & vbTab & ActiveDocument.Compatibility(wdSuppressBottomSpacing), adWriteLine 'Suppress extra line spacing at bottom of page.
sr.WriteText "wdWPSpaceWidth" & vbTab & "30" & vbTab & ActiveDocument.Compatibility(wdWPSpaceWidth), adWriteLine 'Set the width of a space like WordPerfect 5.x.
sr.WriteText "wdWPJustification" & vbTab & "31" & vbTab & ActiveDocument.Compatibility(wdWPJustification), adWriteLine 'Do full justification like WordPerfect 6.x for Windows.
sr.WriteText "wdLineWrapLikeWord6" & vbTab & "32" & vbTab & ActiveDocument.Compatibility(wdLineWrapLikeWord6), adWriteLine 'Line wrap like Word 6.0.
sr.WriteText "wdShapeLayoutLikeWW8" & vbTab & "33" & vbTab & ActiveDocument.Compatibility(wdShapeLayoutLikeWW8), adWriteLine 'Lay out autoshapes like Word 97.
sr.WriteText "wdFootnoteLayoutLikeWW8" & vbTab & "34" & vbTab & ActiveDocument.Compatibility(wdFootnoteLayoutLikeWW8), adWriteLine 'Lay out footnotes like Word 6.x/95/97.
sr.WriteText "wdDontUseHTMLParagraphAutoSpacing" & vbTab & "35" & vbTab & ActiveDocument.Compatibility(wdDontUseHTMLParagraphAutoSpacing), adWriteLine 'Do not use HTML paragraph auto spacing.
sr.WriteText "wdDontAdjustLineHeightInTable" & vbTab & "36" & vbTab & ActiveDocument.Compatibility(wdDontAdjustLineHeightInTable), adWriteLine 'Adjust line height to grid height in the table.
sr.WriteText "wdForgetLastTabAlignment" & vbTab & "37" & vbTab & ActiveDocument.Compatibility(wdForgetLastTabAlignment), adWriteLine 'Forget last tab alignment.
sr.WriteText "wdAutospaceLikeWW7" & vbTab & "38" & vbTab & ActiveDocument.Compatibility(wdAutospaceLikeWW7), adWriteLine 'Autospace like Microsoft Word 95.
sr.WriteText "wdAlignTablesRowByRow" & vbTab & "39" & vbTab & ActiveDocument.Compatibility(wdAlignTablesRowByRow), adWriteLine 'Align table rows independently.
sr.WriteText "wdLayoutRawTableWidth" & vbTab & "40" & vbTab & ActiveDocument.Compatibility(wdLayoutRawTableWidth), adWriteLine 'Lay out tables with raw width.
sr.WriteText "wdLayoutTableRowsApart" & vbTab & "41" & vbTab & ActiveDocument.Compatibility(wdLayoutTableRowsApart), adWriteLine 'Allow table rows to lay out apart.
sr.WriteText "wdUseWord97LineBreakingRules" & vbTab & "42" & vbTab & ActiveDocument.Compatibility(wdUseWord97LineBreakingRules), adWriteLine 'Use Microsoft Word 97 line breaking rules for Asian text.
sr.WriteText "wdDontBreakWrappedTables" & vbTab & "43" & vbTab & ActiveDocument.Compatibility(wdDontBreakWrappedTables), adWriteLine 'Do not break wrapped tables across pages.
sr.WriteText "wdDontSnapTextToGridInTableWithObjects" & vbTab & "44" & vbTab & ActiveDocument.Compatibility(wdDontSnapTextToGridInTableWithObjects), adWriteLine 'Do not snap text to grid inside table with inline objects.
sr.WriteText "wdSelectFieldWithFirstOrLastCharacter" & vbTab & "45" & vbTab & ActiveDocument.Compatibility(wdSelectFieldWithFirstOrLastCharacter), adWriteLine 'Select entire field with first or last character.
sr.WriteText "wdApplyBreakingRules" & vbTab & "46" & vbTab & ActiveDocument.Compatibility(wdApplyBreakingRules), adWriteLine 'Use line-breaking rules.
sr.WriteText "wdDontWrapTextWithPunctuation" & vbTab & "47" & vbTab & ActiveDocument.Compatibility(wdDontWrapTextWithPunctuation), adWriteLine 'Do not allow hanging punctuation with character grid.
sr.WriteText "wdDontUseAsianBreakRulesInGrid" & vbTab & "48" & vbTab & ActiveDocument.Compatibility(wdDontUseAsianBreakRulesInGrid), adWriteLine 'Do not use Asian rules for line breaks with character grid.
sr.WriteText "wdUseWord2002TableStyleRules" & vbTab & "49" & vbTab & ActiveDocument.Compatibility(wdUseWord2002TableStyleRules), adWriteLine 'Use Microsoft Word 2002 table style rules.
sr.WriteText "wdGrowAutofit" & vbTab & "50" & vbTab & ActiveDocument.Compatibility(wdGrowAutofit), adWriteLine 'Allow tables to extend into margins.
sr.WriteText "wdUseNormalStyleForList" & vbTab & "51" & vbTab & ActiveDocument.Compatibility(wdUseNormalStyleForList), adWriteLine 'Use the Normal style instead of the List Paragraph style for bulleted or numbered lists.
sr.WriteText "wdDontUseIndentAsNumberingTabStop" & vbTab & "52" & vbTab & ActiveDocument.Compatibility(wdDontUseIndentAsNumberingTabStop), adWriteLine 'Do not use hanging indent as tab stop for bullets and numbering.
sr.WriteText "wdFELineBreak11" & vbTab & "53" & vbTab & ActiveDocument.Compatibility(wdFELineBreak11), adWriteLine 'Use Word 2003 hanging-punctuation rules in Asian languages.
sr.WriteText "wdAllowSpaceOfSameStyleInTable" & vbTab & "54" & vbTab & ActiveDocument.Compatibility(wdAllowSpaceOfSameStyleInTable), adWriteLine 'Allow space between paragraphs of the same style in a table.
sr.WriteText "wdWW11IndentRules" & vbTab & "55" & vbTab & ActiveDocument.Compatibility(wdWW11IndentRules), adWriteLine 'Use Word 2003 indent rules for text next to wrapped objects.
sr.WriteText "wdDontAutofitConstrainedTables" & vbTab & "56" & vbTab & ActiveDocument.Compatibility(wdDontAutofitConstrainedTables), adWriteLine 'Do not autofit tables next to wrapped objects.
sr.WriteText "wdAutofitLikeWW11" & vbTab & "57" & vbTab & ActiveDocument.Compatibility(wdAutofitLikeWW11), adWriteLine 'Use Microsoft Word 2003 table autofit rules.
sr.WriteText "wdUnderlineTabInNumList" & vbTab & "58" & vbTab & ActiveDocument.Compatibility(wdUnderlineTabInNumList), adWriteLine 'Underline the tab character between the number and the text in numbered lists.
sr.WriteText "wdHangulWidthLikeWW11" & vbTab & "59" & vbTab & ActiveDocument.Compatibility(wdHangulWidthLikeWW11), adWriteLine 'Do not use proportional width for Korean characters.
sr.WriteText "wdSplitPgBreakAndParaMark" & vbTab & "60" & vbTab & ActiveDocument.Compatibility(wdSplitPgBreakAndParaMark), adWriteLine 'Split apart page break and paragraph mark.
sr.WriteText "wdUseWord2010TableStyleRules" & vbTab & "69" & vbTab & ActiveDocument.Compatibility(wdUseWord2010TableStyleRules), adWriteLine 'Use Microsoft Word 2010 table style rules.
sr.WriteText "wdUseWord2010TableStyleRules" & vbTab & "70" & vbTab & ActiveDocument.Compatibility(wdUseWord2010TableStyleRules), adWriteLine 'Use Microsoft Word 2010 table style rules.

sr.WriteText "BookMarks" & vbTab & wDoc.Bookmarks.Count, adWriteLine
sr.WriteText "ShowHidden" & wDoc.Bookmarks.ShowHidden
wDoc.Bookmarks.ShowHidden = Not wDoc.Bookmarks.ShowHidden
sr.WriteText "Count " & wDoc.Bookmarks.Count
sr.WriteText "DefaultSorting " & wDoc.Bookmarks.DefaultSorting
If wDoc.Bookmarks.Count > 0 Then
For Each wBM In ActiveDocument.Bookmarks
sr.WriteText wBM.Name & vbTab & vbTab & wBM.StoryType, adWriteLine
Next wBM
wDoc.Bookmarks.ShowHidden = Not wDoc.Bookmarks.ShowHidden
End If
' 出力データを保存。既存のファイルは削除。
With CreateObject("Scripting.FileSystemObject")
'sr.SaveToFile .GetParentFolderName(ThisDocument.FullName) & "\" & .GetBaseName(ThisDocument.Name) & "_Settings.txt", adSaveCreateNotExist + adSaveCreateOverWrite
If .FileExists(.BuildPath(tgPath, OutPutFileName)) Then .DeleteFile .BuildPath(tgPath, OutPutFileName)
sr.SaveToFile .BuildPath(tgPath, OutPutFileName), adSaveCreateNotExist
End With
sr.Close
Set sr = Nothing
End Sub
```