【无标题】

代码如下：

Sub FindTextsInTables()
'功能:在关键字 职称 相邻的单元格的值如果为空，那么就输入无，如果有，就不管。
  Dim strText As String
   Dim r, c As Integer
  strText = "职称"                   '定义 变量与字符串
  Application.ScreenUpdating = False  '防止滚屏提高效率
  With Selection           
    .HomeKey Unit:=wdStory            '定义到行首
     With Selection.Find             ' 查找
      .ClearFormatting
      .Text = strText
      .Forward = True
      .Wrap = wdFindStop
      .Execute
    End With
  Do While .Find.Found = True            '如果找到了关键字
      If .Information(wdWithInTable) = True Then '如果所选内容位于表格中
           If .Cells(1).Next.Range = Chr(13) & Chr(7) Then '如果关键字的下一个单元格内容为空
              .Cells(1).Next.Range.Text = "无"         '则输入 五
          End If
      End If
    .Collapse wdCollapseEnd   ' 折叠选区到末尾
    .Find.Execute             ' 查找执行
    Loop                      '查找下一个
  End With
  Application.ScreenUpdating = True   '解除滚屏限制
End Sub

程序会遍历所有表格，并查找表格中含有"职称"的单元格，如果找到，
并且相邻单元格的值为空，则填入无。如果有值，比如 工程师，高级工程师，怎么不管。