vcards怎么变文档

vcards怎么变文档？那么，vcards怎么变文档？一起来了解一下吧。

Sub Macro2()
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "[13579]"
.Replacement.Text = "x"
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "[24680]"
.Replacement.Text = "y"
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Text = ""
Selection.Find.Replacement.Text = ""
Selection.Find.MatchWildcards = False
End Sub
最后擦痕。

如果你用同一个id的话，你就在5里面把东西都备份到icloud里面，在6里在同步过来就行了，不用itunes。
如果你用不同的id的话，你就在5里面把东西都备份到icloud里面，然后电脑登陆5的icloud，再导出你备份的东西，形成文件“icloud vcards yidaochu.vfc”。电脑退出5的icloud后，再用6的id登陆icloud，导入上述文件即可。

从OUTLOOK导出VCARD文件的方法很多，但从VCARD格式批量导入OUTLOOK的方法根本没有，原因很简单，OUTLOOK不支持VCARD格式批量导入，每次只能导入一个VCARD文件，但VCARD是一种很有用的格式，从VCARD格式批量导入OUTLOOK的情况很多，最普遍的就是换手机时需要将通讯录导出，再通过OUTLOOK导入到新的手机里，如果你有上百个甚至上千个VCARD格式的联系人需要导入的话，你大概要变成鸡爪手了。网络上能找到的唯一方法：通过一段程序导入，但实际用起来几乎没有可能，除非你本身是一个编程高手，因为那段程序问题很多，需要边运行边调试，不是这里就是那里出现故障。我也试过了，还是非常难搞。 现在终于找到了一个将VCARD格式联系人批量导入OUTLOOK的方法，具体如下： 窗口键 + R调出运行窗口 键入 cmd 回车 将盘符改为你的vcards文件所在的盘，比如你的vcards文件在d盘的contact文件夹内，如下： 键入d:回车 键入cd \contact 回车 键入copy /B *.vcf all_in_one.vcf （将该目录下所有的VCF文件合并成一个文件) 然后就变成一个vcards文件了。 然后，打开OUTLOOK，选择文件-导入和导出向导-导入vcard文件，下一步，选择d盘的contact文件夹内的all_in_one.vcf文件就可以导入到OUTLOOK了。

向大家推荐一个最好的把iPhone地址簿导入Gmail的方法，就是利用Mac的Address Book 输出联系人的list然后导入Gmail。下面介绍方法：
  1：在Mac的Address Book里, 选中所有的联系人然后选择 File -> Export -> Export vCardExport
  2：导出你的文件到你容易找到的地方，例如桌面。vCard文件包含你地址簿里所有的联系人和电话
  3：进入Gmail，在左边栏里选“Contacts”，然后在“Contacts”的子菜单里选”Import Contacts”
  4：找到你先前导出的vCards文件，选中然后导入
  5：Gmail会像变魔术般的把你所有的联系人从地址簿里导入
   一旦联系人导入进Gmail，你就能搜索联系人，通过Gmails Google Voice拨打VOIP电话。

把以下的代码（用宏录制的）copy到VBA中（就是按ALT+F11后，双击左面的PROJECT或THIS DOCUMENT,这时右面就会出现代码窗口）点保存，再回到你的WORD文档，按ALT+F8后运行就OK了
Sub MHR1()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "1"
.Replacement.Text = "x"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "3"
.Replacement.Text = "x"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "5"
.Replacement.Text = "x"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "7"
.Replacement.Text = "x"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "9"
.Replacement.Text = "x"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "2"
.Replacement.Text = "y"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "4"
.Replacement.Text = "y"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "6"
.Replacement.Text = "y"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "8"
.Replacement.Text = "y"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "0"
.Replacement.Text = "y"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

以上就是vcards怎么变文档的全部内容，.。