2016年7月29日金曜日
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
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
' 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
2016年7月24日日曜日
BuffaloのルーターでAWSとVPN接続
Buffalo VR-S1000 VPN to AWS | Ultradairen's Blog
https://ultradairen.wordpress.com/2013/12/22/buffalo-vr-s1000-vpn-to-aws/
登録:
投稿 (Atom)