要编写一个程序实现文本替换功能，你可以选择多种编程语言和方法。下面我将提供几种不同编程语言的示例代码，包括Python、VBA和C语言。
Python 示例
```python
def file_replace(file_name, rep_word, new_word):
try:
with open(file_name, 'r') as f_read:
content = f_read.readlines()
except FileNotFoundError:
print("文件不存在，请重新输入。")
return file_replace(file_name, rep_word, new_word)
count = content.count(rep_word)
print(f"文件中共有{count}个[{rep_word}]")
confirm = input("您确定要把所有的[{rep_word}]替换为[{new_word}]吗？(yes/no): ")
if confirm.lower() == 'yes':
with open(file_name, 'w') as f_write:
f_write.writelines(line.replace(rep_word, new_word) for line in content)
print("所有的[{rep_word}]已替换完成！")
else:
print("替换操作已取消。")
使用示例
file_name = input("请输入文件名: ")
rep_word = input("请输入需要替换的单词或字符: ")
new_word = input("请输入新的单词或字符: ")
file_replace(file_name, rep_word, new_word)
```
VBA 示例
如果你使用的是Excel，可以使用VBA来实现文本替换。以下是一个VBA宏示例，用于在当前工作表中替换所有出现的指定文本：
```vba
Sub ReplaceText()
Dim ws As Worksheet
Dim findText As String
Dim replaceText As String
Dim cell As Range
Dim replaceCount As Integer
' 设置当前工作表
Set ws = ThisWorkbook.Sheets(1)
' 设置查找和替换的文本
findText = "已完成"
replaceText = "完成"
' 遍历工作表中的所有单元格
For Each cell In ws.UsedRange
If InStr(cell.Value, findText) > 0 Then
cell.Value = Replace(cell.Value, findText, replaceText)
replaceCount = replaceCount + 1
End If
Next cell
' 输出替换结果
MsgBox "文档中共有" & replaceCount & "个[" & findText & "]"
End Sub
```
C 示例
