{"id":1334,"date":"2012-02-28T14:40:24","date_gmt":"2012-02-28T05:40:24","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=1334"},"modified":"2014-10-01T14:03:35","modified_gmt":"2014-10-01T05:03:35","slug":"%e3%80%8c%e3%81%a1%e3%82%83%e3%81%86%e3%81%a1%e3%82%83%e3%81%86%ef%bc%81%e3%80%8d%e3%81%a72%e3%81%a4%e3%81%ae%e6%96%87%e6%9b%b8%e3%82%92%e6%af%94%e8%bc%83%e3%81%99%e3%82%8bword%e3%83%9e%e3%82%af","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=1334","title":{"rendered":"\u300c\u3061\u3083\u3046\u3061\u3083\u3046\uff01\u300d\u30672\u3064\u306e\u6587\u66f8\u3092\u6bd4\u8f03\u3059\u308bWord\u30de\u30af\u30ed"},"content":{"rendered":"

2014\/08\/10 \u8ffd\u8a18\uff1a<\/span>
\n\u3061\u3083\u3046\u3061\u3083\u3046\uff01\u304c\u30d0\u30fc\u30b8\u30e7\u30f3\u30a2\u30c3\u30d7\u3055\u308c\u307e\u3057\u305f\u3002<\/p>\n

\u30fb\u30c6\u30ad\u30b9\u30c8\u6bd4\u8f03\u30bd\u30d5\u30c8\u300c\u3061\u3083\u3046\u3061\u3083\u3046\uff01\u300d\u304c\u30d0\u30fc\u30b8\u30e7\u30f3\u30a2\u30c3\u30d7\u3055\u308c\u307e\u3057\u305f\u3002<\/strong>
\n\/\/www.ka-net.org\/blog\/?p=4724<\/a><\/p>\n

2\u3064\u306e\u30c6\u30ad\u30b9\u30c8\u3092\u6bd4\u8f03\u3057\u3001\u305d\u306e\u9055\u3044\u3092\u691c\u51fa\u3059\u308b\u306e\u306b\u5f79\u7acb\u3064\u30c4\u30fc\u30eb\u3068\u3057\u3066\u300c\u3061\u3083\u3046\u3061\u3083\u3046\uff01<\/a>\u300d\u304c\u3042\u308a\u307e\u3059\u3002
\n\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u3092\u591a\u304f\u6271\u3046\u7de8\u96c6\u8005\u3084\u30e9\u30a4\u30bf\u30fc\u3001\u7ffb\u8a33\u8005\u3068\u3044\u3063\u305f\u65b9\u3005\u306b\u306f\u6709\u540d\u3067\u3001\u975e\u5e38\u306b\u4fbf\u5229\u306a\u30c4\u30fc\u30eb\u3067\u3059\u3002<\/p>\n

\u4eca\u56de\u306f\u3053\u306e”\u3061\u3083\u3046\u3061\u3083\u3046\uff01<\/strong>“\u3092VBA\u3067\u7121\u7406\u3084\u308a\u5236\u5fa1\u3057\u3066\u3001<\/p>\n

\u30fb\u6307\u5b9a\u3057\u305f2\u3064\u306e\u6587\u66f8\u3092\u6bd4\u8f03\u3057\u3066\u3001\u305d\u306e\u7d50\u679c\u3092rtf\u5f62\u5f0f\u3067\u4fdd\u5b58\u3059\u308b<\/span><\/p>\n

\u3068\u3044\u3063\u305f\u64cd\u4f5c\u3092\u81ea\u52d5\u5316\u3057\u3066\u307f\u3088\u3046\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n

<\/p>\n

Option Explicit\r\n\r\nPrivate Declare Function AccessibleObjectFromWindow Lib "oleacc" (ByVal hWnd As Long, ByVal dwId As Long, riid As Any, ByRef ppvObject As IAccessible) As Long\r\nPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hParent As Long, ByVal hChildAfter As Long, ByVal lpszClass As String, ByVal lpszWindow As String) As Long\r\nPrivate Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long\r\nPrivate Declare Function IIDFromString Lib "ole32" (ByVal lpsz As Long, lpiid As Any) As Long\r\nPrivate Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long\r\nPrivate Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long\r\nPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long\r\nPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)\r\n\r\nPrivate Const OBJID_CLIENT = &HFFFFFFFC\r\nPrivate Const WM_COMMAND = &H111\r\nPrivate Const WM_SETTEXT = &HC\r\n\r\nPublic Sub Sample()\r\n  Dim FilePath1 As String\r\n  Dim FilePath2 As String\r\n  \r\n  FilePath1 = "C:\\Test\\File01.txt"\r\n  FilePath2 = "C:\\Test\\File02.txt"\r\n  CompareDocumentChawChaw FilePath1, FilePath2\r\n  FilePath1 = "C:\\Test\\File03.txt"\r\n  FilePath2 = "C:\\Test\\File04.txt"\r\n  CompareDocumentChawChaw FilePath1, FilePath2\r\n  MsgBox "\u51e6\u7406\u304c\u7d42\u4e86\u3057\u307e\u3057\u305f\u3002", vbInformation + vbSystemModal\r\nEnd Sub\r\n\r\nPublic Sub CompareDocumentChawChaw(ByVal FilePath1 As String, ByVal FilePath2 As String)\r\n'\u3061\u3083\u3046\u3061\u3083\u3046\uff01\u30672\u3064\u306e\u6587\u66f8\u3092\u6bd4\u8f03\u3059\u308b\r\n  Dim TimeLimit As Date\r\n  Dim SaveFilePath1 As String\r\n  Dim SaveFilePath2 As String\r\n  Dim hApp As Long\r\n  Dim hBar As Long\r\n  Dim btnState As Long\r\n  Dim IID(0 To 3) As Long\r\n  Dim acc As Office.IAccessible\r\n  Const ChawChawExePath As String = "C:\\Program Files\\ChawChaw\\ChawChaw.exe" '[ChawChaw.exe]\u306e\u30d1\u30b9  \u203b \u5fc5\u8981\u306b\u5fdc\u3058\u3066\u5909\u66f4\r\n  \r\n  With CreateObject("Scripting.FileSystemObject")\r\n    If .FileExists(ChawChawExePath) = False Then\r\n      MsgBox ChawChawExePath & " \u304c\u898b\u3064\u304b\u308a\u307e\u305b\u3093\u3002" & vbCrLf & "\u51e6\u7406\u3092\u4e2d\u6b62\u3057\u307e\u3059\u3002", vbExclamation + vbSystemModal\r\n      Exit Sub\r\n    End If\r\n    If .FileExists(FilePath1) = False Then\r\n      MsgBox FilePath1 & " \u304c\u898b\u3064\u304b\u308a\u307e\u305b\u3093\u3002" & vbCrLf & "\u51e6\u7406\u3092\u4e2d\u6b62\u3057\u307e\u3059\u3002", vbExclamation + vbSystemModal\r\n      Exit Sub\r\n    End If\r\n    If .FileExists(FilePath2) = False Then\r\n      MsgBox FilePath2 & " \u304c\u898b\u3064\u304b\u308a\u307e\u305b\u3093\u3002" & vbCrLf & "\u51e6\u7406\u3092\u4e2d\u6b62\u3057\u307e\u3059\u3002", vbExclamation + vbSystemModal\r\n      Exit Sub\r\n    End If\r\n    SaveFilePath1 = .GetFile(FilePath1).ParentFolder.Path\r\n    If Right$(SaveFilePath1, 1) <> "\\" Then SaveFilePath1 = SaveFilePath1 & "\\"\r\n    SaveFilePath1 = SaveFilePath1 & "[ChawChawed]" & Left$(.GetFile(FilePath1).Name, InStrRev(.GetFile(FilePath1).Name, ".")) & "rtf"\r\n    SaveFilePath2 = .GetFile(FilePath2).ParentFolder.Path\r\n    If Right$(SaveFilePath2, 1) <> "\\" Then SaveFilePath2 = SaveFilePath2 & "\\"\r\n    SaveFilePath2 = SaveFilePath2 & "[ChawChawed]" & Left$(.GetFile(FilePath2).Name, InStrRev(.GetFile(FilePath2).Name, ".")) & "rtf"\r\n  End With\r\n  \r\n  '\u4e8b\u524d\u306b\u30d5\u30a1\u30a4\u30eb\u524a\u9664\r\n  If Len(Dir$(SaveFilePath1)) > 0 Then Kill SaveFilePath1\r\n  If Len(Dir$(SaveFilePath2)) > 0 Then Kill SaveFilePath2\r\n  \r\n  Shell ChawChawExePath, vbNormalFocus '\u3061\u3083\u3046\u3061\u3083\u3046\uff01\u8d77\u52d5\r\n  hApp = FindChawChawWindow()\r\n  If hApp = 0& Then\r\n    MsgBox "[\u3061\u3083\u3046\u3061\u3083\u3046\uff01]\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u304c\u898b\u3064\u304b\u308a\u307e\u305b\u3093\u3067\u3057\u305f\u3002" & vbCrLf & "\u51e6\u7406\u3092\u4e2d\u6b62\u3057\u307e\u3059\u3002", vbExclamation + vbSystemModal\r\n    Exit Sub\r\n  End If\r\n  SendMessage hApp, WM_COMMAND, &HFF01, 0& '\u5de6\u30a6\u30a3\u30f3\u30c9\u30a6\u9078\u629e\r\n  SendMessage hApp, WM_COMMAND, &HE121, 0& '\u3059\u3079\u3066\u6d88\u53bb\r\n  FileContentCopy FilePath1 '\u5bfe\u8c61\u30d5\u30a1\u30a4\u30eb\u306e\u5185\u5bb9\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\r\n  SendMessage hApp, WM_COMMAND, &HE125, 0& '\u6587\u5b57\u5217\u8cbc\u308a\u4ed8\u3051\r\n\r\n  SendMessage hApp, WM_COMMAND, &HFF00, 0& '\u53f3\u30a6\u30a3\u30f3\u30c9\u30a6\u9078\u629e\r\n  SendMessage hApp, WM_COMMAND, &HE121, 0& '\u3059\u3079\u3066\u6d88\u53bb\r\n  FileContentCopy FilePath2 '\u5bfe\u8c61\u30d5\u30a1\u30a4\u30eb\u306e\u5185\u5bb9\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\r\n  SendMessage hApp, WM_COMMAND, &HE125, 0& '\u6587\u5b57\u5217\u8cbc\u308a\u4ed8\u3051\r\n  \r\n  '\u5168\u6587\u6bd4\u8f03\r\n  'SendMessage hApp, WM_COMMAND, &H8015, 0&\r\n  hBar = FindWindowEx(hApp, 0&, vbNullString, "Tool Bar")\r\n  hBar = FindWindowEx(hBar, 0&, vbNullString, "Tool Bar")\r\n  Set acc = Nothing '\u521d\u671f\u5316\r\n  If hBar <> 0& Then\r\n    IIDFromString StrPtr("{618736E0-3C3D-11CF-810C-00AA00389B71}"), IID(0)\r\n    AccessibleObjectFromWindow hBar, OBJID_CLIENT, IID(0), acc\r\n  End If\r\n  If acc Is Nothing Then\r\n    MsgBox "\u51e6\u7406\u304c\u5931\u6557\u3057\u307e\u3057\u305f\u3002", vbExclamation + vbSystemModal\r\n    Exit Sub\r\n  End If\r\n  acc.accDoDefaultAction &H10&\r\n  Sleep 200&\r\n  \r\n  OperateSeparatorDialog '\u4e0d\u9069\u5207\u306a\u533a\u5207\u308a\u6587\u5b57\u30c0\u30a4\u30a2\u30ed\u30b0\u5236\u5fa1\r\n  \r\n  '\u6bd4\u8f03\u51e6\u7406\u5f85\u3061\r\n  TimeLimit = DateAdd("n", 10, Now())  '\u30eb\u30fc\u30d7\u306e\u5236\u9650\u6642\u9593:10\u5206\r\n  Do\r\n    btnState = acc.accState(&H10&) '\u5168\u6587\u6bd4\u8f03 (F5)\u30dc\u30bf\u30f3\u306e\u72b6\u614b\u53d6\u5f97\r\n    If Now() > TimeLimit Then Exit Do  '\u5236\u9650\u6642\u9593\u3092\u904e\u304e\u305f\u3089\u8131\u30eb\u30fc\u30d7\r\n    Sleep 1000&\r\n    DoEvents\r\n  Loop While btnState <> 0&\r\n  Sleep 1000&\r\n\r\n  SendMessage hApp, WM_COMMAND, &HFF01, 0& '\u5de6\u30a6\u30a3\u30f3\u30c9\u30a6\u9078\u629e\r\n  'SendMessage hApp, WM_COMMAND, &HE104, 0& '\u540d\u524d\u3092\u4ed8\u3051\u3066\u4fdd\u5b58\r\n  PostMessage hApp, WM_COMMAND, &HE104, 0& '\u540d\u524d\u3092\u4ed8\u3051\u3066\u4fdd\u5b58\r\n  If OperateSaveAsDialog(SaveFilePath1) = 0& Then\r\n    MsgBox "\u30d5\u30a1\u30a4\u30eb\u306e\u4fdd\u5b58\u306b\u5931\u6557\u3057\u307e\u3057\u305f\u3002" & vbCrLf & "\u51e6\u7406\u3092\u4e2d\u6b62\u3057\u307e\u3059\u3002", vbExclamation + vbSystemModal\r\n    Exit Sub\r\n  End If\r\n  Sleep 2000& '\u4fdd\u5b58\u51e6\u7406\u5f85\u3061\r\n\r\n  SendMessage hApp, WM_COMMAND, &HFF00, 0& '\u53f3\u30a6\u30a3\u30f3\u30c9\u30a6\u9078\u629e\r\n  'SendMessage hApp, WM_COMMAND, &HE104, 0& '\u540d\u524d\u3092\u4ed8\u3051\u3066\u4fdd\u5b58\r\n  PostMessage hApp, WM_COMMAND, &HE104, 0& '\u540d\u524d\u3092\u4ed8\u3051\u3066\u4fdd\u5b58\r\n  If OperateSaveAsDialog(SaveFilePath2) = 0& Then\r\n    MsgBox "\u30d5\u30a1\u30a4\u30eb\u306e\u4fdd\u5b58\u306b\u5931\u6557\u3057\u307e\u3057\u305f\u3002" & vbCrLf & "\u51e6\u7406\u3092\u4e2d\u6b62\u3057\u307e\u3059\u3002", vbExclamation + vbSystemModal\r\n    Exit Sub\r\n  End If\r\n  Sleep 2000& '\u4fdd\u5b58\u51e6\u7406\u5f85\u3061\r\n  \r\n  SendMessage hApp, WM_COMMAND, &HE141, 0& '\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u7d42\u4e86\r\nEnd Sub\r\n\r\nPrivate Sub FileContentCopy(ByVal FilePath As String)\r\n'\u6587\u66f8\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u3066\u5185\u5bb9\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\r\n  With Application.Documents.Open(FileName:=FilePath, ReadOnly:=True)\r\n    .Content.Copy\r\n    .Close wdDoNotSaveChanges\r\n  End With\r\nEnd Sub\r\n\r\nPrivate Sub OperateSeparatorDialog()\r\n'\u4e0d\u9069\u5207\u306a\u533a\u5207\u308a\u6587\u5b57\u30c0\u30a4\u30a2\u30ed\u30b0\u5236\u5fa1\r\n  Dim hDlg As Long\r\n  Dim hSta As Long\r\n  Dim hBtn As Long\r\n  Dim s As String\r\n  Dim buf As String * 255\r\n  \r\n  hDlg = FindWindowEx(0&, 0&, "#32770", "ChawChaw")\r\n  'Debug.Print Hex(hDlg)\r\n  If hDlg = 0& Then Exit Sub\r\n  hSta = FindWindowEx(hDlg, 0&, "Static", vbNullString)\r\n  hSta = FindWindowEx(hDlg, hSta, "Static", vbNullString)\r\n  If hSta = 0& Then Exit Sub\r\n  GetWindowText hSta, buf, Len(buf)\r\n  s = Left$(buf, InStr(buf, vbNullChar) - 1&)\r\n  If InStr(s, "\u4e0d\u9069\u5207\u306a\u533a\u5207\u308a\u6587\u5b57\u304c\u6307\u5b9a\u3055\u308c\u3066\u3044\u308b\u3088\u3046\u3067\u3059") Then\r\n    hBtn = FindWindowEx(hDlg, 0&, "Button", "\u306f\u3044(&Y)")\r\n    SendMessage hDlg, WM_COMMAND, &H6, hBtn '\u306f\u3044(&Y)\u30dc\u30bf\u30f3\u30af\u30ea\u30c3\u30af\r\n    'hBtn = FindWindowEx(hDlg, 0&, "Button", "\u3044\u3044\u3048(&N)")\r\n    'SendMessage hDlg, WM_COMMAND, &H7, hBtn '\u3044\u3044\u3048(&N)\u30dc\u30bf\u30f3\u30af\u30ea\u30c3\u30af\r\n  End If\r\nEnd Sub\r\n\r\nPrivate Function FindChawChawWindow() As Long\r\n'\u3061\u3083\u3046\u3061\u3083\u3046\uff01\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u53d6\u5f97\r\n  Dim TimeLimit As Date\r\n  Dim h As Long\r\n  \r\n  h = 0& '\u521d\u671f\u5316\r\n  TimeLimit = DateAdd("s", 2, Now())  '\u30eb\u30fc\u30d7\u306e\u5236\u9650\u6642\u9593:2\u79d2\r\n  Do\r\n    h = FindWindowEx(0&, 0&, vbNullString, "\u3061\u3083\u3046\u3061\u3083\u3046\uff01")\r\n    If Now() > TimeLimit Then Exit Do  '\u5236\u9650\u6642\u9593\u3092\u904e\u304e\u305f\u3089\u8131\u30eb\u30fc\u30d7\r\n    DoEvents\r\n  Loop While h = 0&\r\n  FindChawChawWindow = h\r\nEnd Function\r\n\r\nPrivate Function OperateSaveAsDialog(ByVal FilePath As String) As Long\r\n'\u540d\u524d\u3092\u4ed8\u3051\u3066\u4fdd\u5b58\u30c0\u30a4\u30a2\u30ed\u30b0\u5236\u5fa1\r\n  Dim TimeLimit As Date\r\n  Dim hDlg As Long\r\n  Dim hBtn As Long\r\n  Dim ret As Long\r\n  \r\n  ret = -1& '\u521d\u671f\u5316\r\n  TimeLimit = DateAdd("s", 5, Now())  '\u30eb\u30fc\u30d7\u306e\u5236\u9650\u6642\u9593:5\u79d2\r\n  Do\r\n    hDlg = FindWindowEx(0&, 0&, "#32770", "Save As")\r\n    If Now() > TimeLimit Then Exit Do  '\u5236\u9650\u6642\u9593\u3092\u904e\u304e\u305f\u3089\u8131\u30eb\u30fc\u30d7\r\n    DoEvents\r\n  Loop While hDlg = 0&\r\n  If hDlg = 0& Then GoTo FncErr:\r\n  hBtn = FindWindowEx(hDlg, 0&, "Button", "\u4fdd\u5b58(&S)")\r\n  If hBtn = 0& Then GoTo FncErr:\r\n  Sleep 500&\r\n  SendDlgItemMessage hDlg, &H47C, WM_SETTEXT, 0&, FilePath '\u30d5\u30a1\u30a4\u30eb\u30d1\u30b9\u30bb\u30c3\u30c8\r\n  'SendMessage hDlg, WM_COMMAND, &H1, hBtn '\u4fdd\u5b58\u30dc\u30bf\u30f3\u30af\u30ea\u30c3\u30af\r\n  PostMessage hDlg, WM_COMMAND, &H1, hBtn '\u4fdd\u5b58\u30dc\u30bf\u30f3\u30af\u30ea\u30c3\u30af\r\n\r\nFncExit:\r\n  OperateSaveAsDialog = ret\r\n  Exit Function\r\n  \r\nFncErr:\r\n  ret = 0&\r\n  GoTo FncExit:\r\nEnd Function<\/pre>\n
\u4e0a\u8a18\u30b3\u30fc\u30c9\u3092\u52d5\u4f5c\u3055\u305b\u308b\u6761\u4ef6\u3068\u3057\u3066\u3001\u4e8b\u524d\u306b\u4e0b\u8a182\u70b9\u306e\u4f5c\u696d\u3092\u884c\u3063\u3066\u304a\u304f\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n
\u30fb\u4e8b\u524d\u306b\u30e9\u30a4\u30bb\u30f3\u30b9\u767b\u9332(\u7121\u6599)\u3092\u3057\u3001\u8d77\u52d5\u6642\u306b\u30c0\u30a4\u30a2\u30ed\u30b0\u304c\u8868\u793a\u3055\u308c\u306a\u3044\u3088\u3046\u306b\u3059\u308b\u3002<\/span>
\n\u30fb\u4e8b\u524d\u306b”\u6bd4\u8f03\u306e\u8a2d\u5b9a”\u3092\u3057\u3066\u304a\u304f\u3002<\/span><\/p>\n
\u307e\u305f\u3001\u4e0a\u8a18\u30b3\u30fc\u30c9\u306f\u3042\u304f\u307e\u3067\u3082”\u7121\u7406\u3084\u308a<\/strong>“\u3061\u3083\u3046\u3061\u3083\u3046\uff01\u306e\u64cd\u4f5c\u3092\u884c\u3063\u3066\u3044\u308b\u3082\u306e\u3067\u3001\u305d\u306e\u52d5\u4f5c\u306e\u6b63\u78ba\u6027\u306f\u4e00\u5207\u4fdd\u8a3c\u3067\u304d\u307e\u305b\u3093<\/span>\u306e\u3067\u3001\u4e88\u3081\u3054\u4e86\u627f\u304f\u3060\u3055\u3044\u3002<\/p>\n
\u4e0a\u8a18\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3059\u308b\u3068\u3001\u5143\u306e\u30d5\u30a1\u30a4\u30eb\u3068\u540c\u3058\u5834\u6240\u306b\u300c[ChawChawed](\u5143\u306e\u30d5\u30a1\u30a4\u30eb\u540d).rtf<\/strong>\u300d\u3068\u3044\u3046\u5f62\u3067\u6bd4\u8f03\u7d50\u679c\u304c\u4fdd\u5b58\u3055\u308c\u307e\u3059\u3002<\/p>\n
\"\"<\/a><\/p>\n
\u4e0a\u8a18”Sample<\/strong>“\u306e\u3088\u3046\u306b\u8907\u6570\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u6bd4\u8f03\u3092\u9023\u7d9a\u3057\u3066\u884c\u3046\u5834\u5408\u306b\u306f\u3001\u4e0a\u8a18\u30b3\u30fc\u30c9\u304c\u6709\u52b9\u306b\u4f7f\u3048\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002
\n\u4e0a\u8a18\u3067\u306f\u30b5\u30f3\u30d7\u30eb\u3068\u3057\u3066\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u4f7f\u7528\u3057\u3066\u3044\u307e\u3059\u304c\u3001Word\u3067\u958b\u3051\u308b\u6587\u66f8\u3067\u3042\u308c\u3070\u826f\u3044\u306e\u3067\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3067\u306a\u304f\u3066\u3082\u554f\u984c\u3042\u308a\u307e\u305b\u3093\u3002<\/p>\n
\u5b9f\u306f\u4e0a\u8a18\u30b3\u30fc\u30c9\u306f\u6570\u5e74\u524d\u306b\u66f8\u3044\u305f\u3082\u306e\u306a\u306e\u3067\u3059\u304c\u3001\u4eca\u65e5\u30d5\u30a1\u30a4\u30eb\u306e\u6574\u7406\u3092\u3057\u3066\u3044\u305f\u3089\u305f\u307e\u305f\u307e\u51fa\u3066\u304d\u3066\u3001Windows 7\u3067\u52d5\u304b\u3057\u3066\u307f\u305f\u3089\u554f\u984c\u7121\u304f\u52d5\u3044\u305f\u306e\u3067\u3001\u307b\u307c\u305d\u306e\u307e\u307e\u30d6\u30ed\u30b0\u306b\u8f09\u305b\u308b\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n
\u788c\u306b\u4fee\u6b63\u3084\u52d5\u4f5c\u78ba\u8a8d\u3092\u3057\u3066\u3044\u307e\u305b\u3093\u306e\u3067\u3001\u7d50\u69cb\u7a74\u304c\u3042\u308b\u3060\u308d\u3046\u3068\u601d\u3044\u307e\u3059\u3002
\n\u4e00\u5fdc\u30b3\u30fc\u30c9\u3092\u66f8\u3044\u305f\u74b0\u5883\u3067\u3042\u308bWindows XP + Word 2003\u3068Windows 7 + Word 2010\u3067\u306e\u52d5\u4f5c\u306f\u78ba\u8a8d\u3057\u307e\u3057\u305f\u304c\u3001\u305d\u308c\u4ee5\u5916\u306e\u74b0\u5883\u3067\u306f\u52d5\u4f5c\u78ba\u8a8d\u3092\u884c\u3063\u3066\u3044\u307e\u305b\u3093\u3002<\/p>\n
\u307e\u305f\u300164\u30d3\u30c3\u30c8\u74b0\u5883\u3067\u306f\u30c6\u30b9\u30c8\u3057\u3066\u3044\u307e\u305b\u3093\u306e\u3067\u300164\u30d3\u30c3\u30c8\u7248\u306eWord\u308464\u30d3\u30c3\u30c8\u7248\u306e\u3061\u3083\u3046\u3061\u3083\u3046\uff01\u3067\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3059\u308b\u969b\u306b\u306f\u3001\u5fc5\u8981\u306b\u5fdc\u3058\u3066\u30b3\u30fc\u30c9\u3092\u4fee\u6b63\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n
\u25a0 \u95a2\u9023Web\u30da\u30fc\u30b8<\/h4>\n
\u30fb\u30c6\u30ad\u30b9\u30c8\u6bd4\u8f03\u30bd\u30d5\u30c8\u300c\u3061\u3083\u3046\u3061\u3083\u3046\uff01\u300d\u304c\u30d0\u30fc\u30b8\u30e7\u30f3\u30a2\u30c3\u30d7\u3055\u308c\u307e\u3057\u305f\u3002<\/strong>
\n\/\/www.ka-net.org\/blog\/?p=4724<\/a>
\n\u30fb2\u3064\u306e\u6587\u66f8\u3092\u6bd4\u8f03\u3059\u308bWord\u30de\u30af\u30ed<\/strong>
\n\/\/www.ka-net.org\/blog\/?p=4734<\/a>
\n\u30fb\u3061\u3083\u3046\u3061\u3083\u3046\uff01 2.0\u3092\u64cd\u4f5c\u3059\u308bWord\u30de\u30af\u30ed<\/strong>
\n\/\/www.ka-net.org\/blog\/?p=4931<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"2014\/08\/10 \u8ffd\u8a18\uff1a \u3061\u3083\u3046\u3061\u3083\u3046\uff01\u304c\u30d0\u30fc\u30b8\u30e7\u30f3\u30a2\u30c3\u30d7\u3055\u308c\u307e\u3057\u305f\u3002 \u30fb\u30c6\u30ad\u30b9\u30c8\u6bd4\u8f03\u30bd\u30d5\u30c8\u300c\u3061\u3083\u3046\u3061\u3083\u3046\uff01\u300d\u304c\u30d0\u30fc\u30b8\u30e7\u30f3\u30a2\u30c3\u30d7\u3055\u308c\u307e\u3057\u305f\u3002 \/\/www.ka-net.org\/blog\/?p=4724 2\u3064\u306e\u30c6\u30ad\u30b9\u30c8 […]","protected":false},"author":1,"featured_media":7134,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_feature_clip_id":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2},"jetpack_post_was_ever_published":false},"categories":[4,49],"tags":[11,45,85],"class_list":["post-1334","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-word-office","tag-office-2","tag-word-","tag-word-vba-2"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t