对不起，我的英语不好。在
我试图用.jpg文件替换.docx文件中的字符串。首先，我将JPEG转换为BMP并将其移动到剪贴板，然后使用找到。执行用“^c”替换docx文件中的特殊字符串。在
这个替换很好，但是它将一个宽度为15.42cm的图像粘贴到.docx文件中。我试着用即时消息调整大小，但它以一个大的模糊图像结束，而不是一个小图像。我怎么能把它变小？在
我用的是python2.7.2和Win7。谢谢。在from win32com.client import Dispatch
from cStringIO import StringIO
import win32clipboard
import win32com
from PIL import Image
def setImageToClipboard(clip_type, data):
win32clipboard.OpenClipboard()
win32clipboard.EmptyClipboard()
win32clipboard.SetClipboardData(clip_type, data)
win32clipboard.CloseClipboard()
filepath = 'd:/tmp.jpg'
im = Image.open(filepath)
#im = im.resize((10, 10))
output = StringIO()
im.convert("RGB").save(output, "BMP")
data = output.getvalue()[14:]
output.close()
w = win32com.client.Dispatch('Word.Application')
w.Visible = 1
w.DisplayAlerts = 0
doc = w.Documents.Open("d:/clipboard_test.docx")
search = "TEST"
setImageToClipboard(win32clipboard.CF_DIB, data)
w.Selection.Find.ClearFormatting()
w.Selection.Find.Replacement.ClearFormatting()
w.Selection.Find.Execute("TEST", False, True, False, False, False, True, 1, True, ReplaceWith="^c", Replace=2000)
doc.SaveAs("d:/clipboard_test2.docx")
doc.Close()
w.Quit()

using System;
using System.IO;
using Word = Microsoft.Office.Interop.Word;
 
 
namespace SavePicture
{
    public class CreateTemplate
    {
        /// <summary>
        /// 替换成指定字符串
        /// </summary>
        /// <param name="wordPath">要替换的word全路径</param>
        /// <param name="oldText">替换的文字</param>
        /// <param name="newText">替换成的文字</param>
        /// <returns>是否替换成功</returns>
        public static bool ReplaceWord(string wordPath, string oldText, string newText)
        {
            try
            {
                object nothing = System.Reflection.Missing.Value;
                object format = Word.WdSaveFormat.wdFormatDocument;
                object srcFileName = wordPath;
                object wrap = Word.WdFindWrap.wdFindContinue;
 
                Word.ApplicationClass appWord = new Word.ApplicationClass();
                Word.Document wordDocument = appWord.Documents.Open(ref srcFileName, ref format, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing);
                appWord.Selection.Find.ClearFormatting();
 
                appWord.Selection.Find.Replacement.ClearFormatting();
 
 
 
                object objReplace = Word.WdReplace.wdReplaceAll;
                appWord.Selection.Find.ClearFormatting();
                appWord.Selection.Find.Replacement.ClearFormatting();
 
 
                appWord.Selection.Find.Text = oldText;
                appWord.Selection.Find.Replacement.Text = newText;
                appWord.Selection.Find.Execute(ref nothing, ref nothing, ref nothing,
                                               ref nothing, ref nothing, ref nothing,
                                               ref nothing, ref wrap, ref nothing,
                                               ref nothing, ref objReplace, ref nothing,
                                               ref nothing, ref nothing, ref nothing);
 
 
                wordDocument.Save();
                wordDocument.Close();
                return true;
            }
            catch (Exception)
            {
                return false;
 
            }
        }
 
        /// <summary>
        /// 替换word中指定文本为图片
        /// </summary>
        /// <param name="wordPath">word全路径</param>
        /// <param name="textLabel">替换字符串</param>
        /// <param name="imagePath">图片全路径</param>
        /// <returns>是否替换成功</returns>
        public static bool ReplaceImage(string wordPath, string textLabel, string imagePath)
        {
            try
            {
                object nothing = System.Reflection.Missing.Value;
                object missing = Type.Missing;
                object SaveWithDocument = true;
                object LinkToFile = false;
                object format = Word.WdSaveFormat.wdFormatDocument;
                object link = false;
                object confirmConversion = false;
                object objReplace = Word.WdReplace.wdReplaceOne;
                object wrap = Word.WdFindWrap.wdFindContinue;
                object srcFileName = wordPath;
 
                Word.ApplicationClass appWord = new Word.ApplicationClass();
                Word.Document wordDocument = appWord.Documents.Open(ref srcFileName, ref format, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing, ref nothing);
                //替换图片过程
             
                appWord.Selection.Find.ClearFormatting();
                appWord.Selection.Find.Replacement.ClearFormatting();
                bool found;
                appWord.Selection.Find.Text = textLabel;
                appWord.Selection.Find.Replacement.Text = "";
 
                if (File.Exists(imagePath))
                {
                    //替换成图片
                    do
                    {
                        found = appWord.Selection.Find.Execute(ref nothing, ref nothing, ref nothing,
                                                               ref nothing, ref nothing, ref nothing,
                                                               ref nothing, ref wrap, ref nothing,
                                                               ref nothing, ref objReplace, ref nothing,
                                                               ref nothing, ref nothing, ref nothing);
                        if (found)
                        {
                            appWord.Selection.InlineShapes.AddPicture(imagePath, ref LinkToFile, ref SaveWithDocument, ref missing);
                        }
                    } while (appWord.Selection.Find.Found == true);
                }
                wordDocument.Save();
                wordDocument.Close();
                return true;
            }
            catch (Exception)
            {
                return false;
 
            }
        }
 
 
 
    }
}

转载于:https://www.cnblogs.com/y279336671/archive/2012/07/20/2600820.html

下面是一个简单的例子，用于把文档里的 ”hello" 替换成 "world"
        ' Define the search range to be the whole document
        Set myRange = ActiveDocument.Content
        ' Set the Find parameters
        myRange.Find.ClearFormatting
        ' Loop through each match in the document
        Dim cached As Long
        cached = myRange.End
        Do While myRange.Find.Execute("hello")
            myRange.Select
            myRange.Text = "world"
            myRange.Start = myRange.Start + Len(myRange.Find.Text)
            myRange.End = cached
        Loop


参考：
http://stackoverflow.com/questions/29755551/multi-dimensional-array-in-vba-for-microsoft-word-on-mac

正则表达式要放在（）中，替换中的\1代表被替换的第一个表达式，即第一个（）中匹配到内容。