多個文本框文字批量替換？為中的每個mshape創(chuàng)建以下宏子以替換單詞文本框內容（）dim mshape as shape dim tmpstring as stringActiveDocument.形

多個文本框文字批量替換？

為中的每個mshape創(chuàng)建以下宏子以替換單詞文本框內容（）dim mshape as shape dim tmpstring as stringActiveDocument.形狀如果M形狀類型=msoTextBox然后tmpString=mShape.TextFrame.TextRange文本范圍.文本mShape.TextFrame.TextRange文本范圍. text=replace（tmpstring，“find content”，“replace content”）end if next end sub用替換內容替換搜索內容

編輯---搜索*---在搜索框中替換要替換的內容，在替換框中輸入要替換的內容確認。

如果你什么都不懂，請問。

爭取最佳答案。

如何在word中全部替換多個文本框中指定內容？

選擇指定范圍內的所有表格，用Ctrl h批量替換

Ctrl選擇要修改的多個文本框，然后單擊“文本工具”列調整文本框中的字體大小。