[求助]表格的替换问题

no-sir

原文件

员工填写
组长意见

想替换成，凡是左边是组长意见的，右边栏位都改成“同意”

员工填写
组长意见	同意

c81

如果就楼主发布上来的这些信息，是很容易替换的呀！

查找 “组长意见”，替换成^c,

(“组长意见   同意”这个剪切板上事先剪好的内容即可)

如果还不行的话，请楼主将Word文档发上来。

meiyu

建議改為Excel 將後利用這個公式, 就可以很快的完成了~^_^

=IF(A2="组长意见","同意","")

[此贴子已经被作者于2006-11-2 11:47:55编辑过]

no-sir

谢谢楼上两位。

按照二楼的意见，替换后未能实现在两个格子中分别是“组长同意”和“同意”，而是合在一个格子里了。
三楼的意见，对于简单的文档可以，但原文里有很多文字，不仅仅是表格，所以转换成Excel不方便。

不知道是否有其他办法？谢谢楼上两位。

附件：
Konaa3iK.rar (2.9 KB, 下载次数: 7)

2006-11-2 12:47 上传

点击文件名下载附件

[此贴子已经被作者于2006-11-2 12:47:56编辑过]

c81

好象窗口替换不行了，

要编写个小vba才成。

========

我这样写为什么不行呢？

Sub k1()
Dim tb As Table
Dim myString As String
For Each tb In ActiveDocument.Tables
myString = tb.Cell(2, 1).Range.Text
If myString = "组长意见" Then
  tb.Cell(2, 2).Range.Text = "同意"
  End If
 Next
End Sub

[此贴子已经被作者于2006-11-2 18:06:42编辑过]

守柔

QUOTE:

以下是引用c81在2006-11-2 14:02:17的发言：

好象窗口替换不行了，

要编写个小vba才成。

========

我这样写为什么不行呢？

Sub k1()
Dim tb As Table
Dim myString As String
For Each tb In ActiveDocument.Tables
myString = tb.Cell(2, 1).Range.Text
If myString = "组长意见" Then
  tb.Cell(2, 2).Range.Text = "同意"
  End If
 Next
End Sub

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2006-11-3 6:07:29
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0093^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit

Sub Example()
    Dim oTable As Table, myRow As Row
    Application.ScreenUpdating = False    '关闭屏幕更新
    With ActiveDocument
        For Each oTable In .Tables
            Set myRow = oTable.Rows.Last    '指定目标行
            myRow.Cells(1).Range.Text = "组长意见"
            myRow.Cells(2).Range.Text = "同意"
        Next
    End With
    Application.ScreenUpdating = True    '恢复屏幕更新
End Sub
'----------------------
Sub k1()
    Dim tb As Table
    Dim myString As String
    For Each tb In ActiveDocument.Tables
        myString = tb.Cell(2, 1).Range.Text
        myString = VBA.Mid(myString, 1, Len(myString) - 2) '去除单元格结束标记和竖线分隔符
        If myString = "组长意见" Then
            tb.Cell(2, 2).Range.Text = "同意"
        End If
    Next
End Sub
'----------------------
TO C81，请参考：

http://club.excelhome.net/dispbbs.asp?boardid=23&replyid=547819&id=192527&page=1&skin=0&Star=2第13楼。

c81

守版主出手就是很不错的事，谢谢。

原来cell有二种表示方法

学习中...

no-sir

受教了，谢谢

linqiang0816

守柔，您好！

想请问一下“myString = VBA.Mid(myString, 1, Len(myString) - 2) '去除单元格结束标记和竖线分隔符”

这里的VBA是指什么意思，有什么作用？mystring指的是“组长意见”，那么mid函数定义后会变成了什么？怎么会指“去除单元

格结束标记和竖线分隔符”呢？

谢谢！

no-sir

QUOTE:

以下是引用linqiang0816在2006-11-3 19:10:15的发言：

守柔，您好！

想请问一下“myString = VBA.Mid(myString, 1, Len(myString) - 2) '去除单元格结束标记和竖线分隔符”

这里的VBA是指什么意思，有什么作用？mystring指的是“组长意见”，那么mid函数定义后会变成了什么？怎么会指“去除单元

格结束标记和竖线分隔符”呢？

谢谢！

我试着回答一下。刚开始时，myString = tb.Cell(2, 1).Range.Text, 里面包括单元格结束标记和竖线分隔符，第二次把后面两个多余的东东去掉，这时mystring才是“组长意见”。