{"id":13467,"date":"2021-02-03T12:00:05","date_gmt":"2021-02-03T03:00:05","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=13467"},"modified":"2021-02-05T10:06:35","modified_gmt":"2021-02-05T01:06:35","slug":"%e5%a4%89%e6%9b%b4%e5%b1%a5%e6%ad%b4%e3%82%92%e3%82%aa%e3%83%b3%e3%81%ab%e3%81%97%e3%81%9f%e3%81%be%e3%81%be%e3%81%a7%e6%96%87%e5%ad%97%e5%88%97%e3%81%ae%e7%bd%ae%e6%8f%9b%e3%82%92%e8%a1%8c%e3%81%86wo","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=13467","title":{"rendered":"\u5909\u66f4\u5c65\u6b74\u3092\u30aa\u30f3\u306b\u3057\u305f\u307e\u307e\u3067\u6587\u5b57\u5217\u306e\u7f6e\u63db\u3092\u884c\u3046Word\u30de\u30af\u30ed"},"content":{"rendered":"

MSDN\u30d5\u30a9\u30fc\u30e9\u30e0<\/a>\u306b\u3001\u201c\u5909\u66f4\u5c65\u6b74\u3092\u30aa\u30f3\u306b\u3057\u305f\u72b6\u614b\u3067\u6587\u5b57\u5217\u3092\u7f6e\u63db\u3059\u308b\u30de\u30af\u30ed\u3092\u5b9f\u884c\u3057\u305f\u3068\u3053\u308d\u3001\u5c65\u6b74\u3068\u3057\u3066\u6b8b\u3063\u3066\u3044\u308b\u524a\u9664\u6e08\u307f\u306e\u6587\u5b57\u5217\u3082\u30d2\u30c3\u30c8\u3057\u3066\u3057\u307e\u3046\u306e\u3067\u4e0a\u624b\u304f\u51e6\u7406\u3067\u304d\u306a\u3044\u201d<\/i>\u3001\u3068\u306e\u8cea\u554f\u304c\u3042\u308a\u307e\u3057\u305f\u3002<\/p>\n

\"\"<\/div>
social.msdn.microsoft.com<\/div><\/div>
\"\"<\/figure>
word-VBA）削除済み／置換&#281...<\/div>
https:\/\/social.msdn.microsoft.com\/Forums\/ja-JP\/vbajp\/thread\/606bc516-7722-47d6-9827-509c5c35e551<\/div><\/div>
<\/div><\/div><\/a><\/div><\/div>\n

\u3053\u308c\u306fWord\u30de\u30af\u30ed\u3092\u6271\u3046\u4eba\u306e\u9593\u3067\u306f\u3088\u304f\u77e5\u3089\u308c\u308bWord\u306e\u4ed5\u69d8\u3067\u3001Word MVP\u306e\u65b0\u7530<\/a>\u3055\u3093\u306e\u30d6\u30ed\u30b0\u306b\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9\u30b3\u30fc\u30c9\u3082\u542b\u3081\u3066\u5bfe\u51e6\u6cd5\u304c\u307e\u3068\u3081\u3089\u308c\u3066\u3044\u307e\u3059\u3002<\/p>\n

\u5909\u66f4\u5c65\u6b74\u3092\u30aa\u30f3\u306b\u3057\u305f\u307e\u307e\u3067\u6587\u5b57\u4fee\u6b63\uff08\u7f6e\u63db\u3084\u66f8\u304d\u63db\u3048\u306a\u3069\uff09\u3092\u884c\u3046\u30de\u30af\u30ed\u3092\u5b9f\u884c\u3059\u308b\u5834\u5408\u306b\u306f\u6ce8\u610f\u304c\u5fc5\u8981\u3067\u3059\u306d\u3002\u4ed6\u306e\u30de\u30af\u30ed\u3067\u3082\u540c\u3058\u3053\u3068\u304c\u8d77\u3053\u308a\u3048\u307e\u3059\u3002<\/p>\n

\u4ee5\u4e0b\u306e2\u3064\u306b\u3054\u6ce8\u610f\u304f\u3060\u3055\u3044\u3002<\/p>\n

\uff11\uff0e\u5909\u66f4\u5c65\u6b74\u3092\u30aa\u30f3\u306b\u3057\u305f\u5834\u5408\u3001\u6587\u5b57\u5217\u3092\u66f8\u304d\u76f4\u3057\u305f\u5834\u5408\u3067\u3082\u5c65\u6b74\u3068\u3057\u3066\u524a\u9664\u3057\u305f\u306f\u305a\u306e\u6587\u5b57\u5217\u304c\u30c7\u30fc\u30bf\u3068\u3057\u3066\u6b8b\u308a\u307e\u3059\u3002\u305d\u3053\u3067\u3001\u524a\u9664\u6e08\u307f\u306e\u6587\u5b57\u5217\u3092\u691c\u7d22\u5bfe\u8c61\u304b\u3089\u9664\u5916\u3059\u308b\u5834\u5408\u306b\u306f\u3001\u524a\u9664\u6e08\u307f\u306e\u6587\u5b57\u5217\u3092\u975e\u8868\u793a\u306b\u3057\u307e\u3059\u3002<\/p>\n

\u3068\u3053\u308d\u304c\u3001Range\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3067\u6587\u5b57\u5217\u3092\u691c\u7d22\u3059\u308b\u3068\u3001\u524a\u9664\u6e08\u307f\u306e\u6587\u5b57\u5217\u3092\u975e\u8868\u793a\u306b\u3057\u305f\u5834\u5408\u3067\u3082\u30d2\u30c3\u30c8\u3057\u3066\u3057\u307e\u3044\u307e\u3059\u3002Selection\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3067\u691c\u7d22\u3092\u3059\u308b\u5834\u5408\u306b\u306f\u3001\u524a\u9664\u6e08\u307f\u306e\u6587\u5b57\u5217\u3092\u975e\u8868\u793a\u306b\u3057\u3066\u304a\u3051\u3070\u30d2\u30c3\u30c8\u3057\u307e\u305b\u3093\u3002<\/p>\n

\uff12\uff0e\u5909\u66f4\u5c65\u6b74\u3092\u30aa\u30f3\u306b\u3057\u305f\u5834\u5408\u3001\u30ef\u30a4\u30eb\u30c9\u30ab\u30fc\u30c9\u3092\u7528\u3044\u305f\u7f6e\u63db\u306f\u8aa4\u5909\u63db\u304c\u8d77\u3053\u308b\u3053\u3068\u304c\u3042\u308a\u307e\u3059\u3002<\/p><\/blockquote>\n

https:\/\/www.wordvbalab.com\/code\/1945\/<\/a> \u3088\u308a<\/p>\n

\u8981\u3059\u308b\u306b\u5909\u66f4\u5c65\u6b74\u306e\u8868\u793a\u3092\u30aa\u30d5\u306b\u3057\u3066\u304b\u3089\u51e6\u7406\u3059\u308c\u3070\u826f\u3044\u308f\u3051\u3067\u3059\u304c\u3001\u3075\u3068\u300c\u5909\u66f4\u5c65\u6b74\u306e\u7a2e\u985e\u3092\u5224\u5225\u3057\u3066\u201c\u524a\u9664\u201d\u3092\u9664\u5916\u3059\u308c\u3070\u826f\u3044\u306e\u3067\u306f\u306a\u3044\u304b\uff1f\u300d<\/i>\u3068\u601d\u3044\u3064\u3044\u305f\u306e\u3067\u3001\u5b9f\u969b\u306b\u8a66\u3057\u3066\u307f\u308b\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n

(Revision).Type\u30d7\u30ed\u30d1\u30c6\u30a3\u306b\u3088\u308b\u5909\u66f4\u5c65\u6b74\u306e\u7a2e\u985e\u5224\u5b9a<\/h4>\n

\u3055\u3063\u305d\u304f\u66f8\u3044\u305f\u30c6\u30b9\u30c8\u7528\u306e\u30b3\u30fc\u30c9\u304c\u4e0b\u8a18\u306b\u306a\u308a\u307e\u3059\u3002
\n\u672c\u6587\u4e2d\u306e\u300cWord\u300d\u6587\u5b57\u5217\u3092\u691c\u7d22\u3057\u3066\u3001\u30d2\u30c3\u30c8\u3057\u305fRange\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304b\u3089\u5909\u66f4\u5c65\u6b74\u3092\u8868\u3059Revision\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\u3001Type\u30d7\u30ed\u30d1\u30c6\u30a3\u3067\u5909\u66f4\u5c65\u6b74\u306e\u7a2e\u985e\u3092\u53d6\u5f97\u3059\u308b\u30b3\u30fc\u30c9\u3067\u3059\u3002<\/p>\n

Public Sub Test()\r\n  Dim rng As Word.Range\r\n  \r\n  Set rng = ActiveDocument.Range\r\n  With rng.Find\r\n    .Text = "Word"\r\n    .Forward = True\r\n    .Wrap = wdFindStop\r\n    .Format = False\r\n    .MatchFuzzy = False\r\n    .MatchCase = False\r\n    .MatchWholeWord = False\r\n    .MatchByte = False\r\n    .MatchAllWordForms = False\r\n    .MatchSoundsLike = False\r\n    .MatchWildcards = False\r\n    Do While .Execute\r\n      rng.Select\r\n      Debug.Print "Revisions.Count:" & rng.Revisions.Count, _\r\n                  "Revision.Type:" & rng.Revisions(1).Type\r\n      Stop\r\n    Loop\r\n  End With\r\nEnd Sub<\/pre>\n
\u5b9f\u884c\u3057\u305f\u7d50\u679c\u306f\u4e0b\u56f3\u306e\u901a\u308a\u3067\u3059\u3002<\/p>\n
\"\"<\/a><\/p>\n
\u7a2e\u985e\u306f\u3059\u3079\u3066\u201c\u524a\u9664\u201d\u3092\u8868\u3059\u300c2 (wdRevisionDelete)\u300d\u3068\u306a\u308a\u3001\u305d\u308c\u3069\u3053\u308d\u304b\u5909\u66f4\u5c65\u6b74\u304c\u7121\u3044\u90e8\u5206\u3055\u3048\u3082\u5909\u66f4\u5c65\u6b74\u6570\u304c\u300c1\u300d\u3068\u306a\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n
\u306a\u3093\u3067\u3060\u3088\uff01\uff1f<\/span><\/p>\n
\u601d\u308f\u305a\u30c4\u30c3\u30b3\u3093\u3067\u3057\u307e\u3044\u307e\u3059\u3002
\n\u3055\u3059\u304c\u6709\u540d\u306aWord\u306e\u6319\u52d5\u3001\u4e00\u7b4b\u7e04\u3067\u306f\u3044\u304b\u306a\u3044\u3088\u3046\u3067\u3059\u3002<\/p>\n
XML\u304b\u3089\u306e\u60c5\u5831\u53d6\u5f97<\/h4>\n
\u3053\u306e\u3088\u3046\u306a\u3068\u304d\u3001\u79c1\u306f\u3088\u304fSelection\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3084Range\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306eXML\u30d7\u30ed\u30d1\u30c6\u30a3\u304b\u3089\u53d6\u5f97\u3067\u304d\u308b\u60c5\u5831\u3092\u4f7f\u3044\u307e\u3059(\u4e0b\u8a18\u8a18\u4e8b\u53c2\u7167)\u3002<\/p>\n
\u3059\u3079\u3066\u306e\u30c6\u30fc\u30d6\u30eb\u306e\u7d50\u5408\u3092\u89e3\u9664\u3059\u308bWord\u30de\u30af\u30ed<\/a><\/div>
2013.05.09<\/span>
\u3059\u3079\u3066\u306e\u30c6\u30fc\u30d6\u30eb\u306e\u7d50\u5408\u3092\u89e3\u9664\u3059\u308bWord\u30de\u30af\u30ed <\/a><\/div>
\u3059\u3079\u3066\u306e\u30c6\u30fc\u30d6\u30eb\u306e\u30bb\u30eb\u7d50\u5408\u3092\u89e3\u9664\u3059\u308bWord\u30de\u30af\u30ed\u3092\u8003\u3048\u3066\u307f\u307e\u3057\u305f(Word 2003\u30682010\u3067\u52d5\u4f5c\u3092\u78ba\u8a8d)\u3002\r\nExcel\u306eUnMerge\u306e\u3088\u3046\u306b\u7d50\u5408\u3092\u89e3\u9664\u3059\u308b\u30e1\u30bd\u30c3\u30c9\u304c\u6a19\u6e96\u3067\u7528\u610f\u3055\u308c\u3066\u3044\u306a\u3044\u306e\u3067\u3001\u82e5\u5e72\u8907\u96d1\u306a\u51e6\u7406\u306b\u306a\u3063\u3066\u3044\u307e\u3059\u3002\r\n\u7279\u306b\u6a2a\u65b9\u6cd5\u306e\u7d50\u5408\u306b\u3064\u3044\u3066...<\/div><\/div>
<\/div><\/div>\n
\u4eca\u56de\u3082\u5909\u66f4\u5c65\u6b74\u306e\u201c\u524a\u9664\u201d\u3068\u201c\u633f\u5165\u201d\u3067XML\u306e\u6bd4\u8f03\u3092\u3057\u305f\u3068\u3053\u308d\u3001aml:annotation\u8981\u7d20\u306ew:type\u5c5e\u6027\u306e\u5024<\/span>\u3067\u5224\u5225\u3067\u304d\u305d\u3046\u3060\u3068\u3044\u3046\u4e8b\u304c\u5206\u304b\u308a\u307e\u3057\u305f\u3002<\/p>\n
\u201c\u524a\u9664\u201d\u306eXML<\/h5>\n
<w:p wsp:rsidR="009F28A1" wsp:rsidRDefault="00D0652C">\r\n  <aml:annotation aml:id="0" w:type="Word.Deletion" aml:author="***" aml:createdate="2021-01-28T10:32:00Z">\r\n    <aml:content>\r\n      <w:r wsp:rsidDel="00227F40">\r\n        <w:rPr>\r\n          <w:rFonts w:hint="fareast"\/>\r\n        <\/w:rPr>\r\n        <w:delText>\u3007\u3007\u3007<\/w:delText>\r\n      <\/w:r>\r\n    <\/aml:content>\r\n  <\/aml:annotation>\r\n<\/w:p><\/pre>\n
\u201c\u633f\u5165\u201d\u306eXML<\/h5>\n
<w:p wsp:rsidR="00AB545F" wsp:rsidRDefault="00982971">\r\n  <aml:annotation aml:id="0" w:type="Word.Insertion" aml:author="***" aml:createdate="2021-01-28T14:24:00Z">\r\n    <aml:content>\r\n      <w:r>\r\n        <w:t>\u3007\u3007\u3007<\/w:t>\r\n      <\/w:r>\r\n    <\/aml:content>\r\n  <\/aml:annotation>\r\n<\/w:p><\/pre>\n
\u3053\u308c\u3092\u53d7\u3051\u3066\u6700\u7d42\u7684\u306b\u51fa\u6765\u4e0a\u304c\u3063\u305f\u306e\u304c\u4e0b\u8a18\u306e\u30b3\u30fc\u30c9\u3067\u3059\u3002<\/p>\n
\u5909\u66f4\u5c65\u6b74\u3092\u30aa\u30f3\u306b\u3057\u305f\u307e\u307e\u3067\u6587\u5b57\u5217\u306e\u7f6e\u63db\u3092\u884c\u3046Word\u30de\u30af\u30ed<\/h4>\n
Option Explicit\r\n\r\nPublic Sub Sample()\r\n  Const SrcText As String = "Word" '\u7f6e\u63db\u5143\u6587\u5b57\u5217\r\n  Const DestText As String = "WordXXX" '\u7f6e\u63db\u5148\u6587\u5b57\u5217\r\n  \r\n  ActiveDocument.Range(0, 0).Select\r\n  With Selection.Find\r\n    .ClearFormatting\r\n    .Text = SrcText\r\n    .Forward = True\r\n    .Wrap = wdFindStop\r\n    .Format = False\r\n    .MatchFuzzy = False\r\n    .MatchCase = False\r\n    .MatchWholeWord = False\r\n    .MatchByte = False\r\n    .MatchAllWordForms = False\r\n    .MatchSoundsLike = False\r\n    .MatchWildcards = False\r\n    Do While .Execute\r\n      If Selection.Range.Revisions.Count > 0 Then\r\n        Select Case LCase(GetAnnotationType(Selection.XML))\r\n          Case LCase("Word.Deletion") '\u5909\u66f4\u5c65\u6b74\u30fb\u524a\u9664\u3092\u9664\u5916\r\n          Case Else\r\n            Selection.Text = DestText\r\n            Selection.Collapse Direction:=wdCollapseEnd\r\n        End Select\r\n      Else\r\n        Selection.Text = DestText\r\n        Selection.Collapse Direction:=wdCollapseEnd\r\n      End If\r\n      DoEvents\r\n    Loop\r\n  End With\r\n  Selection.HomeKey Unit:=wdStory\r\n  MsgBox "\u51e6\u7406\u304c\u7d42\u4e86\u3057\u307e\u3057\u305f\u3002", vbSystemModal + vbInformation\r\nEnd Sub\r\n\r\nPrivate Function GetAnnotationType(ByVal SourceXML As String) As String\r\n  Dim elm As Object\r\n  Dim ret As String\r\n  \r\n  With CreateObject("MSXML2.DOMDocument")\r\n    .async = False\r\n    If .LoadXML(SourceXML) = True Then\r\n      If .getElementsByTagName("aml:annotation").Length > 0 Then\r\n        Set elm = .getElementsByTagName("aml:annotation").Item(0)\r\n        ret = elm.getAttribute("w:type")\r\n      End If\r\n    End If\r\n  End With\r\n  GetAnnotationType = ret\r\nEnd Function<\/pre>\n
\u5b9f\u884c\u7d50\u679c\u306f\u4e0b\u56f3\u306e\u901a\u308a\u3067\u3001\u610f\u56f3\u3057\u305f\u901a\u308a\u306b\u6587\u5b57\u5217\u3092\u7f6e\u304d\u63db\u3048\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3057\u305f\u3002<\/p>\n
\"\"<\/a><\/p>\n
\n
\n