别跟我说话我有洁癖
1.VBA如何把内容从当前word复制到另一个word文件中
'打开后焦点发生了转移，activedocument已经指向刚打开的文件了
'改为
Sub Macro1()
Dim myDoc
'On Error Resume Next
With ActiveDocument.Tables(1).Cell(Row:=1, Column:=3).Range
Set myDoc = Word.Application.Documents.Open("E:\1.docx")
.Delete
.InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)
End With
End Sub
'(
InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)这行代码中，你确定表2存在吗？我测试时只建一个表，所以改为Tables(1).
)
'也可以这样控制焦点
Sub Macro1()
Dim myDoc
'On Error Resume Next
Set myDoc = Word.Application.Documents.Open("E:\1.docx", , , , , , , , , , , vbHide)
With ActiveDocument.Tables(1).Cell(Row:=1, Column:=3).Range
.Delete
.InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)
End With
End Sub
2.怎样把Word格式的表格复制到Excel上去
具体步骤为： 1、启动Word，并打开包含有需要转换表格的文档。
2、将光标移至Word表格的任意单元格中，然后执行“表格”菜单的“选定表格”命令，选定整个表格。 3、执行“编辑”菜单的“复制”命令，将Word表格拷贝到剪贴板中。
4、启动Excel，然后打开需要转换的工作簿，并将光标移至所需的单元格中。 5、执行“编辑”菜单中的“粘贴”命令，即可将剪贴板中的信息（即我们所需的表格内容）粘贴到Excel中。
除了将Word表格转换到Excel中之外，我们在日常的文字处理工作中还可能碰到将Excel表格转换为Word表格、将WPS97表格转换为Excel表格、将Excel表格转换为WPS97表格，以及将WPS97表格与Word表格之间相互进行转换等表格转换问题，它们的操作方法都与上面基本类似，可参考使用。 至于当我们需要将老版本的WPS表格转换到Word中时，则首先必须保证该文件应以.WPS为后缀名，然后再利用Word打开该文件，这样Word的文档转换功能就会自动将老版本WPS中的表格转换为Word表格。
3.就是我打开了一个文本文档,如果用vb实现把他的内容复制到另一个文
通过剪贴板（Clipboard）实现，当你复制某个文件或网站等中的文字、图片时，就通过相关剪贴板代码将这些内容粘贴到RichTextBox中，可将文件保存为。txt或。
RTF。 2。
具体实现代码见附件代码（我自己编的，是一个简单的剪贴板监视器，你可以完善或重编）。 3。
下面简单介绍一下剪贴板： 使用 Clipboard （剪贴板） ------实现文字、图片、图像的复制、粘贴 用法： ?清空剪贴板 Clipboard。 Clear ?复制文字 Clipboard。
SetText Text ?复制图片 Clipboard。SetData Picture Or Image ?粘贴文字 ？=Clipboard。
GetText ?粘贴图片 ？=Clipboard。GetData 例子： ?Clipboard 处理文字 With Richtextbox1 。
SelStart=0 。SelLength = Len(Richtextbox1。
Text) s=。SelText End With '得到Richtextbox1的所有文件内容 Clipboard。
Clear '清空剪贴板 Clipboard。SetText s '将字符串变量s文本赋给剪贴板 Text1。
Text=Clipboard。GetText '将剪贴板中文本赋给Text1 ?Clipboard 处理图片 Clipboard。
Clear Clipboard。SetData Picture1。
picture '将Picture1中的图片赋给剪贴板 Picture2。Picture=Clipboard。
GetData '将剪贴板中图片赋给Picture2。
4.vba 将 word 字符复制到excel 或txt
你的代码可以用的。
Sub test()
Dim i
Dim Wrd As Range
i = Selection.Font.ColorIndex
For Each Wrd In ActiveDocument.Words
If Wrd.Font.ColorIndex i Then Wrd.Copy
SaveAsTxtFile '调用SaveAsTxtFile
Next Wrd
End Sub
Sub SaveAsTxtFile()
Const 指定文件名 = "autosave01.txt"
Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
Selection.PasteSpecial Link:=False, DataType:=wdPasteText
ActiveDocument.SaveAs2 FileName：=指定文件名， FileFormat:=wdFormatText, Encoding:=936
ActiveDocument.Close
End Sub
5.VBA 用excel模块复制word的表格内容
试试下面的代码：Sub 宏1() Dim wordapp As Object Dim mydoc Dim mypath$, myname$ Dim wdRng As Object Dim pos1%, pos2% '定义找到的字段的首位位置 Application.DisplayAlerts = False Set wordapp = CreateObject("word.application") mypath = ThisWorkbook.Path & "" myname = Dir(mypath & "*.doc*") Set mydoc = wordapp.Documents.Open(mypath & myname) Set wdRng = mydoc.Range wdRng.Find.Execute （"（一）"） pos1 = wdRng.Start Set wdRng = mydoc.Range wdRng.Find.Execute （"五、"） pos2 = wdRng.Start mydoc.Range(pos1, pos2).Copy '选中找到的两个字段中间的内容 mydoc.Close False wordapp.Quit Worksheets("Sheet2").Select Range("A1").Select ActiveSheet.Paste Application.ScreenUpdating = True Application.DisplayAlerts = TrueEnd Sub。
转载请注明出处51数据库 » vbaword文本复制
