batica memo

ちょっとしたコマンドや関数など、1つの記事にするほどでもないけど、調べたこととしてメモしておきたいものを書いていきます。
記事にする時間が無い時にメモとして書くこともあります。
後で記事にしたら消します。

所有者限定モードのためこのボードには投稿できません ボードとは?

Wordのドキュメント検査でカスタムXMLデータが削除されない

事象

  1. Wordにてドキュメント検査を行う。
  2. 「カスタムXMLデータ」が見つかる。
  3. カスタムXMLデータの[すべて削除]をクリックし、[再検査]をクリックする。
  4. 再度「カスタムXMLデータ」が見つかる。

調査結果

目次を使用していると、カスタムXMLデータを検知する模様。
「Wordをドキュメント検査後、カスタムXMLデータが削除できない」Microsoft(参照:2020-11-17)

目次や引用等を追加したドキュメントでもカスタム XML 扱いになるようです。

「Word 2013 ドキュメント検査 カスタムXMLデータについて」Microsoft(参照:2020-11-17)

手元でも試してみましたが、確かに目次を追加すると「カスタムXMLデータが見つかりました」と表示されますね。
また「文献目録」を追加した場合も同じように表示されました。
「目次」と「文献目録」は別の機能ですが、同じ参考資料タブにある機能なので、参考資料タブにあるその他の「図表番号の挿入」や「脚注の挿入」などでも試してみたところ、やはり表示されました。
参考資料タブにある機能を使用すると表示されるのかもしれないですね。

Excelのスタイルが削除できない

状況

以下のExcelVBAマクロを実行したが、削除できないセルがある。

Sub delete_name_and_style()

    On Error Resume Next

'名前定義を全削除(名前を関数その他に有効活用している場合はここは削除)

    Dim N As Name
    For Each N In ActiveWorkbook.Names
        N.Delete
    Next

'書式(スタイル)定義を全削除

    Dim M()

    J = ActiveWorkbook.Styles.Count
    ReDim M(J)
    For i = 1 To J
        M(i) = ActiveWorkbook.Styles(i).Name
    Next
    For i = 1 To J
        If InStr("Hyperlink,Normal,Followed Hyperlink", _
                    M(i)) = 0 Then
            ActiveWorkbook.Styles(M(i)).Delete
        End If
    Next

End Sub

試したこと

「消せない、スタイル(Excelで削除できないスタイルが発生した場合)」regreh,Qiita,2019-12-04(参照:2020-10-16)

【Office2019】MicrosoftOfficeアプリケーションエラー(0xc0000142)

発生している問題

突然どのMicrosoftOffice(PowerPoint/Word/Excel)を開いても「0xc0000142」エラーとなり、開けなくなってしまいました。

まとめ

解決方法

  • オンライン修復をする
    • ライセンス認証エラーが起きたら、プロダクトキーを入力してライセンス認証をする

環境

  • PC:Windows 10 Pro
  • Office:Office2019

試したこと

オンライン修復

以下記事を参考に、「オンライン修復」を行いました。
「excel.exe アプリケーションエラー 0xc0000142の原因」Microsoft,2019-04-30(参照:2020-10-14)

こんにちは。
[スタート]を右クリックしアプリと機能を選択して、アプリ一覧にある Microsoft Office Premium を選択し、[変更] からオンライン修復を行ってみてください。

実施したら、「0xc0000142」エラーは解消してOfficeを開けるようになりました。
が、ライセンス認証エラーになり、プロダクトキーを要求されてしまいました……。

ライセンス認証

プロダクトキーを入力して、再度ライセンス認証を行いました。
ライセンス認証エラー解消!

参考資料

「excel.exe アプリケーションエラー 0xc0000142の原因」Microsoft,2019-04-30(参照:2020-10-14)